Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Creating E-mail messages through Outlook
Message
De
04/05/2001 06:05:17
Mark Evans
Business Systems Services (Uk) Limited
Swansea, Royaume Uni
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Titre:
Creating E-mail messages through Outlook
Divers
Thread ID:
00503388
Message ID:
00503388
Vues:
54
Hi,

I've developed an application on a Winnt machine, which automatically sends off an e-mail, with an attachment. This works fine on my machine, but when I come to run it on a Win98 machine, I get my e-mail popping up on screen stating that "This message has not been sent". If I click the send button, the e-mail fires off ok.
The code I'm using is below. Anyone got any ideas how to force the message to send, or is there an option in Outlook I need to setup.
* Create the session
objSession = CREATEOBJECT("mapi.session")

* Create a Macro to specify the profile name (profile = "Microsoft Outlook")
MMACMD = 'OBJSESSION.LOGON'+IIF(LEN(MPROFNAME)>0,'("'+MPROFNAME+'")',"")
&MMACMD

* Create the e-mail
objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "BCC"

*Add the attachment 
objMessage.Attachments.Add("bcc.pgp", 0, 1, "c:\cfc\bcc.pgp")

*Add the Recipient 
objRecip = objMessage.Recipients.Add(mmailto)
objRecip.Resolve

*Send it
objMessage.Send

*Clean up 
objSession.Logoff
RELEASE objRecip, objMessage, objSession
Help!

Mark.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform