Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem with .send using CDO from VFP
Message
From
06/07/2004 14:35:30
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Problem with .send using CDO from VFP
Miscellaneous
Thread ID:
00921121
Message ID:
00921121
Views:
363
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
Next
Reply
Map
View

Click here to load this message in the networking platform