Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Outlook Mail won't send automatically
Message
De
08/05/2001 05:09:37
Mark Evans
Business Systems Services (Uk) Limited
Swansea, Royaume Uni
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Titre:
Outlook Mail won't send automatically
Divers
Thread ID:
00504601
Message ID:
00504601
Vues:
64
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.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform