Hello,
dim receiptto
receiptto="a2z@ yahoo.com"
set cdoconfig=Creat eObject("CDO.co nfiguration")
set cdomsg=CreateOb ject("CDO.Messa ge")
with cdoconfig.Field s
.Item("http://schemas.microso ft.com/cdo/configuration/sendusing")=2
..Item("http://schemas.microso ft.com/cdo/configuration/smtpserver")="m ail8.webmail.co m"
'this is the SMTP server setting in my outlook.
.Update
end with
with cdomsg
set .Configuration= cdoconfig
..Fields("urn:s chemas:mailhead er:disposition-notification-to")=receiptt o
.Fields("urn:sc hemas:mailheade r:return-receipt-to") =receiptto
.From="a2zwd@ya hoo.com"
.To="mymail@yah oo.com"
.Subject="Sampl e mail"
.HTMLBody="<b>< font color=#ff0000 size=3
face='arial'>He llo</font></b>"
.DSNOptions=4
.Fields.update
.Send
end with
set cdoconfig=nothi ng
set cdomsg=nothing
Response.Write "Mail sent"
I am getting the error ar .Send (Internal Server error 500
If i didnt use configuration, sending mail correctly. (Simple from, to,
subject, htmlbody, send).
Thanx in advance
dim receiptto
receiptto="a2z@ yahoo.com"
set cdoconfig=Creat eObject("CDO.co nfiguration")
set cdomsg=CreateOb ject("CDO.Messa ge")
with cdoconfig.Field s
.Item("http://schemas.microso ft.com/cdo/configuration/sendusing")=2
..Item("http://schemas.microso ft.com/cdo/configuration/smtpserver")="m ail8.webmail.co m"
'this is the SMTP server setting in my outlook.
.Update
end with
with cdomsg
set .Configuration= cdoconfig
..Fields("urn:s chemas:mailhead er:disposition-notification-to")=receiptt o
.Fields("urn:sc hemas:mailheade r:return-receipt-to") =receiptto
.From="a2zwd@ya hoo.com"
.To="mymail@yah oo.com"
.Subject="Sampl e mail"
.HTMLBody="<b>< font color=#ff0000 size=3
face='arial'>He llo</font></b>"
.DSNOptions=4
.Fields.update
.Send
end with
set cdoconfig=nothi ng
set cdomsg=nothing
Response.Write "Mail sent"
I am getting the error ar .Send (Internal Server error 500
If i didnt use configuration, sending mail correctly. (Simple from, to,
subject, htmlbody, send).
Thanx in advance
Comment