Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recipients not resolved
Message
De
30/03/2007 05:28:16
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01209779
Message ID:
01210263
Vues:
14
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
Fil
Voir

Click here to load this message in the networking platform