>>I have a client app that sends hundreds of CDO emails a day.
>>
>>All of them include .pdf attachments.
>>
>>Recently, a case arose that requires body text, but no attachment.
>>
>>The email goes out OK but there's no body text.
>>
>>Here's the code
>>
>>PARAMETERS pc_attachmentname, pc_subject, ;
>> pc_mailtext, pc_addresslist
>>
>>
>>loMail = NEWOBJECT("lf_cdomail","cdomaillib")
>>WITH loMail
>> *-- Create error collection
>> .oErrors = CREATEOBJECT("Collection")
>>
>> .cServer = oApp.gc_smtpserver
>> .nServerPort = oApp.ln_cdoserport
>> *-- Use SSL connection
>> .lUseSSL = oApp.ll_cdousessl
>> .nConnectionTimeout = oApp.ln_cdotimeout
>> *-- Do not use cache for cHtmlBodyUrl
>> .lURLGetLatestVersion = oApp.ll_cdogetver
>> *-- Use SMTP Server Port
>> .nSendUsingPort = oApp.ln_cdouseport
>>
>> *-- The following lines are required
>> * if your SMTP server requires basic authentication
>> .nAuthenticate = oApp.ln_cdoauthen
>>
>> .cUserName = oApp.gc_smtpuser
>> .cPassword = oApp.gc_smtppass
>> .cFrom = oApp.gc_smtpfrom
>>
>> *-- Use use testaddr for mail testing
>> IF oApp.gl_mailtest
>> .cTo = oApp.gc_testaddr
>> ELSE
>> .cTo = pc_addresslist
>> ENDIF
>> .cCC = ""
>> .cBCC = ""
>> .cHtmlBody = ""
>>
>> .cAttachment = ""
>>
>> *-- Attachments are optional Comment this line out if there are no attachments
>> IF NOT EMPTY(pc_attachmentname)
>> .cAttachment = pc_attachmentname
>> ENDIF
>> .cSubject = pc_subject
>>
>>
>>
>>
>> .cTextBody = pc_mailtext
>>
>> IF loMail.Send() <> 0
>> DO notice WITH "Mail Sending Error"
>> ENDIF
>>ENDWITH
>>>
>What is cdomaillib.vcx/lf_cdomail.Send() doing?
Al
That's the code I included here.
Anyone who does not go overboard- deserves to.
Malcolm Forbes, Sr.
