R
Rabel
I am changing over to a cdo email messages for my site because they do
not support cdonts anymore - but I have one form that submits to my
phone and my email so the code looks like this
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.crea----ss.com"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "(e-mail address removed)"
.To = "(e-mail address removed); (e-mail address removed)"
.Subject = "testing"
.TextBody = "Name: " & request.form("txtname") & CHR(13) &
"Phone: " & request.form("txtphone") & CHR(13) & "Email: " &
request.form("txtemail") & CHR(13) & "Message: " &
request.form("txtmessage")
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
But it will not send to my phone I tested and the address is working
but I am not sure how to fix this - any help is apprieciated.
Thanks,
Randy
not support cdonts anymore - but I have one form that submits to my
phone and my email so the code looks like this
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.crea----ss.com"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "(e-mail address removed)"
.To = "(e-mail address removed); (e-mail address removed)"
.Subject = "testing"
.TextBody = "Name: " & request.form("txtname") & CHR(13) &
"Phone: " & request.form("txtphone") & CHR(13) & "Email: " &
request.form("txtemail") & CHR(13) & "Message: " &
request.form("txtmessage")
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
But it will not send to my phone I tested and the address is working
but I am not sure how to fix this - any help is apprieciated.
Thanks,
Randy