Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating E-mail messages through Outlook
Message
From
04/05/2001 06:05:17
Mark Evans
Business Systems Services (Uk) Limited
Swansea, United Kingdom
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Creating E-mail messages through Outlook
Miscellaneous
Thread ID:
00503388
Message ID:
00503388
Views:
55
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.
Next
Reply
Map
View

Click here to load this message in the networking platform