peterr
Posts: 5971
|
| Posted: 06/24/2005, 6:24 PM |
|
You may need to replace CDONTS code with CDO, which is usually pretty easy and self-explanatory. Various examples are at:
http://www.google.com/search?complete=1&biw=&hl=en&q=convert+cdonts+cdo
Sample CDO code for using a remote SMTP:
set iConf = CreateObject("CDO.Configuration")
set iMsg = CreateObject("CDO.Message")
With iConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_host
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
With iMsg
Set .Configuration = iConf
.To = email_to
.From = email_fromname & "<" & email_from & ">"
.ReplyTo = reply_to
.Subject = email_subject
.TextBody = text_body
.HTMLBody = html_body
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
