General information
Category:
COM/DCOM and OLE Automation
Title:
Email resolve problem
If there is a bad email address, is it possible to delete the email address after it has being added to the receipt list.
I’m assuming one has to add it (.Recipients.Add) in order for the resolve to work.
See code below.
Thanks
Anthony
Local loApplication, llActive, loMapiSpace, loInbox, loNew, I , cAttachlemts
#Include office97.h
#include 'pda.h'
With THISFORM
If empty(.txtTo.value)
.txtTo.Setfocus
Messagebox("You must enter an email address", mb_iconstop, .caption)
Return
Endif
loApplication = CreateObject( "Outlook.Application" )
llActive = ( varType( loApplication ) = "O" )
If llActive
loMapiSpace = loApplication.GetNameSpace("MAPI")
loInbox = loMapiSpace.GetDefaultFolder(olFolderOutBox) &&6
loNew = loInbox.Items.Add(olMailItem)
With loNew
With thisform.listmgr1
.init()
.add_items(ALLTRIM(thisform.txtTo.value))
Local I
For I = 1 TO .itemcount
With loNew.Recipients.Add(thisform.listmgr1.array[1,i])
.Type = olTo
If Not .Resolve
Messagebox("Unable to resolve address.")
*****************************************************************************
This is were I would like to Delete the email address
*****************************************************************************
Endif
Endwith
Endfor
Endwith
.to = ALLTRIM(thisform.txtTo.VALUE)
.Subject = ALLTRIM(thisform.txtSubject.VALUE)
.Body = thisform.txtDetails.VALUE
.Importance = thisform.OpgImportance.value - 1
.readReceiptRequested = ThisForm.chkRetReceipt.value
If ThisForm.chkDialog.value = 1
.Display
Else
.Send()
Endif
Endwith
Endif
Endwith
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only