Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Outlook Mail won't send automatically
Message
From
08/05/2001 05:09:37
Mark Evans
Business Systems Services (Uk) Limited
Swansea, United Kingdom
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Outlook Mail won't send automatically
Miscellaneous
Thread ID:
00504601
Message ID:
00504601
Views:
66
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 Winnt 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.
I've compared the various options in Outlook on both machines, but can't find anything that looks like it will cure this problem. I've noticed that you can put (.T.) at the end of the objMessage.Send line, but this seems to be ignored as I can't even get it to bring up this box on my PC using the (.F.) option.

I've included the code below in case it helps.

* 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


Any ideas guys?

Mark.
Next
Reply
Map
View

Click here to load this message in the networking platform