send email through ShellExecute

[ExtraD]

Hi,

i found a piece of code on the internet and it seems to work ok accept its needs an SMTP service installed on the machine. now i saw some comments that you could also use a SMTP thats running on a server.
but how can i address this server?

this is the code i'm using:

Local lcFileName,lcStr && Variables locales
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
lcFileName = Sys(2015)+'.mht'
oMSG = Createobject("CDO.Message")

oMSG.To = gEmTo
WAIT WINDOW gEmTo
oMSG.From = gEmFrom
oMSG.Bcc = gEmBcc

oMSG.Subject = "Hello Email"

oMSG.AddAttachment(DRVPath + HtmlFax + '\' + gType2 + '\print\' + gName)

oMSG.TextBody = "Please see attachement for the details."

oMSG.Send()


thanx,

 

[robsuttonjr]

The following faq in my opinion shows the ideal way to send mail with foxpro but I did add to your code as you requested (see below) faq184-3840

LOCAL lcFileName,lcStr && Variables locales
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
lcFileName = Sys(2015)+'.mht'
oMSG = Createobject("CDO.Message")

oMSG.To = gEmTo
WAIT WINDOW gEmTo
oMSG.From = gEmFrom
oMSG.Bcc = gEmBcc

oMSG.Subject = "Hello Email"

oMSG.AddAttachment(DRVPath + HtmlFax + '\' + gType2 + '\print\' + gName)

oMSG.TextBody = "Please see attachement for the details."

oMsg.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")=2

&& Send Using
oMsg.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")="192.168.100.100"

&&SMTP SERVER
oMsg.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25

&& PORT
oMsg.Configuration.Fields.Update
oMSG.Send()


Regards,

Rob

 

[robsuttonjr]

You can run an smtp server on your own computer/server then you just change the smtp server to "localhost":

http://www.emailarms.com/downloads/1st_smtp.html

Regards,

Rob

 

[Mike Gagnon]

I don't see the need for the Shell Execute API call.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)