General information
Category:
Internet applications
Title:
Outlook Mail won't send automatically
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only