Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Sergey,
this is my SendMail procedure. With lDirectSend = .F. the mail will be
displayed and send manually and everything works fine.
With lDirectSend = .T. which means no display no address I try will
be resolved. I have no idea about what is wrong?
Update: This seems to be a problem with the Redemption.SafeMailItem.
If I try the resolve with the original Outlook MailItem it will
work.
Thx for your help
Manfred
*----------------schnipp-------------------------------------------------
lParameters cAddress, cSubject, cBody, lDirectSend
This.oNamespace.Logon
local oMail, oMailItem, oRecipient
oMailItem = This.oOutlook.CreateItem(olMailItem)
oMail = createobject("Redemption.SafeMailItem")
oMail.Item = oMailItem
oRecipient = oMail.Recipients.Add(cAddress)
oMail.Subject = cSubject
oMail.Body = cBody
if lDirectSend
...if oRecipient.Resolve()
......oMail.Save
......oMail.Send
...else
......error "Outlook.SendMail: Address "+cAddress+;
........." can not be resolved!"
...endif
else
...oMail.Display(.T.) && modal display
...wait window "log off" nowait
...This.oNamespace.Logoff
endif
*---------------------schnapp-------------------------------
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement