Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem with .send using CDO from VFP
Message
 
To
06/07/2004 14:35:30
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00921121
Message ID:
00921134
Views:
52
And recipients?
oMSG.Recipients.Add("display name","SMTP:Email@address",1)
MartinJ

>I am currently doing this:
>
>
lcsubject="Commissary Run Info fm Date: "+lcdatestr+" Jail: "+lcjailabbrev+" Cart: "+lccartabbrev
>
>oMSG = createobject("CDO.Message")
>oMSG.To = ALLTRIM(this.oapplication.osyssetup.cwhemail)
>oMSG.From = ALLTRIM(this.oapplication.osyssetup.cexpemailfm)
>oMSG.Subject = (lcsubject)
>FOR lnloopctr=1 TO 4
>IF NOT EMPTY(lafiles2(lnloopctr))
>oAtt=oMSG.AddAttachment(lafiles2(lnloopctr))
>IF lnloopctr=4
>llemailed=.t.
>ENDIF
>ENDIF
>ENDFOR
>oMSG.TextBody = ("Sent: "+TTOC(DATETIME()))
>
>&& Need to add a confirmation here somehow
>oMSG.Send()
>
>
>Problem: Above works fine when run from the server.
>Now I am running the EXE from a workstation. Get OLE error when hits oMsg.Send()
>
>Ideas?
>Thanks,
>John
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform