>Hi Gregory,
>
> Okay, I got the code to run thru without error, but I do not get the mail I sent to myself. I tried two different email addresses, one inside the firewall, one outside. I have not gotten an undelverible message back, or the message that I sent. and the msgSource.txt file looks like what I get in my inbox, except the table code is in a different encode then what I sent with my code.
>
>Thanks for the help
>
>>Beth,
>>
>>(1) Below all the cdo constants, including the cdoXUnsent (maybe you can leave that line out, do not know)
>>
>>(2) re dbf: maybe the base64 encoding is not correct
>>
>>(3) I do send smtp mail, but with CDO. There's a bit more code you need - if you want it, let me know
>>
>>Good luck
>>
>< < snip > >
_____________________________________
hi Beth,
I'm confused
I did not say - and if I gave you that impression, sorry - that you would be able to send a file, saved with the code I provided
You have a problem with certain attachments.
I'm using that code to prepare a mail, save it as .eml, and then shellexecute it if the mail app of the user is Outlook Express
I only prepare the mail, the user can modify it and send it if he wants to
I do not know what the attachment problem is that you have, but I thought: If I can prepare a mail with attachments that way and Outlook Express accepts it, then Beth will be able to figure out what she is doing wrong
This is the code I use to send an smtpmail with CDO. I was too lazy to make the mail messages myself. I tried to use something that already existed
You may want to use this instead. Very simple and no problem with attachments - you'll have to change a couple of things
It even sends mail if the user has no mail configured (FromId = ["] + sys(0) + ["
])
The user needs internet access or a local mail server though
Hope it helps#define TRUE .t.
#define FALSE .f.
#include
hidden function MailSmtp(Recipient, cc, bcc, subject, msg, attachment)
local Success
Success = TRUE
local ObjMsg, ObjConfig, i, aa[1]
ObjMsg = CreateObject('CDO.Message')
ObjConfig = CreateObject('CDO.Configuration')
do case
case !inlist(vartype(m.ObjMsg), T_OBJECT)
assert FALSE
Success = FALSE
case !inlist(vartype(m.ObjConfig), T_OBJECT)
assert FALSE
Success = FALSE
otherwise
with m.ObjConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = this.smtpServer
.Item(cdoSendUserName) = this.smtpUserId
.Item(cdoSendPassword) = this.smtPassword
.Item(cdoSMTPServerPort) = this.smtpServerPort
.Item(cdoSMTPAuthenticate) = 1
#if FALSE
if( !IsRunTime())
endif
#endif
.Update()
endwith
with ObjMsg
.Configuration = m.ObjConfig
.To = m.Recipient
.CC = iif(empty(m.cc), '', m.cc)
.bcc = iif(empty(m.bcc), '', m.bcc)
.subject = iif(empty(m.subject), '', m.subject)
.TextBody = iif(empty(m.msg), '', m.msg)
if( !empty(m.attachment) )
for i = 1 to StringToArray(m.attachment, @aa)
do case
case (m.i = 1) and empty(m.msg) and inlist(lower(justext(aa[m.i])), 'htm', 'html')
.HTMLbody = FileToStr(aa[m.i])
otherwise
.AddAttachment(aa[m.i])
endcase
endfor
endif
if( empty(.Configuration.fields.Item(cdoSendEmailAddress).Value) )
.Configuration.fields.Item(cdoSendEmailAddress) = 'No@Profile.com'
local FromId
FromId = ["] + sys(0) + [" <No@Profile.com>]
.From = m.FromId
endif
#if FALSE
if( DEBUGMODE_GLOBAL )
acti screen
?'cdoSendEmailAddress', .Configuration.fields.Item(cdoSendEmailAddress).Value
?'cdoSendUserName', .Configuration.fields.Item(cdoSendUserName).Value
?'cdoSendUserReplyEmailAddress', .Configuration.fields.Item(cdoSendUserReplyEmailAddress).Value
?
?'cdoPostUserName', .Configuration.fields.Item(cdoPostUserName).Value
?'cdoPostUserReplyEmailAddress', .Configuration.fields.Item(cdoPostUserReplyEmailAddress).Value
endif
#endif
Private MailQueue_SMTP_Error
MailQueue_SMTP_Error = FALSE
local sError
sError = on('Error')
on error MailQueue_SMTP_Error = TRUE
=.Send()
on error &sError
do case
case m.MailQueue_SMTP_Error
=aerror(ppp)
disp memo like ppp
Success = FALSE
endcase
endwith
endcase
return Success
endfunc
Gregory
