|
You can control sending mail by using CDO. You might wish to use our include files on this one though. The following code shows how you might code it..
' Include /ISAPI/EmailProcessing.inc
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
iMsg.Configuration.Fields.Item(smtpConfig)=2
iMsg.Configuration.Fields.Item(cdoSMTPServer)=getSmtpServer()
iMsg.Configuration.Fields.Item(cdoSMTPServerPort)=25
iMsg.Configuration.Fields.Update
iMsg.From=fromaddr
iMsg.To=ToAddr
iMsg2.CC=CarbonCopy
iMsg2.BCC=BlindCarbonCopy
iMsg2.subject=mysubject
iMsg2.textbody=iMsg2.textbody
If Attachment = "Yes" then
'... additional processing
iMsg2.AddAttachment thefilesending
end if
iMsg2.Send()
|
Send Mail / CDO