Hi,
I have a problem with CDO.Message bounce back.
when the email bounce back, the bounce back email will send back to
address:
Sender
or
From
For some reason, I want the return mail send back to return-path:
example:
Fields("urn:sch emas:mailheader :return-path").Value = strSender_retur n
but never get it work.....:-<
doesn any one know any way to send bounce back email to
urn:schemas:mai lheader:return-path ?
Here is my code........... ..
<%
Dim objMessage ' As CDO.Message
dim strSender
dim strFrom
dim strTo
dim strBcc
dim strSubject
dim strBody
strSender_retur n = "12*@123.co m"
strSender =
12*@123sender.c om
strFrom = "12*@123.co m"
strTo = "re************ ****@123.com"
strBcc =""
strSubject = "test subject"
strBody = "test body"
Set objMessage = Server.CreateOb ject("CDO.Messa ge")
With objMessage
Headers("return-path",strSender _return)
Fields("urn:sch emas:httpmail:i mportance").Val ue = intImportance
Fields("urn:sch emas:httpmail:p riority").Value = intImportance-1
select case intImportance
case 0
Fields("urn:sch emas:mailheader :X-Priority").Valu e = 5
case 1
Fields("urn:sch emas:mailheader :X-Priority").Valu e = 3
case 2
Fields("urn:sch emas:mailheader :X-Priority").Valu e = 1
case else
Fields("urn:sch emas:mailheader :X-Priority").Valu e = 0
End Select
Fields("urn:sch emas:mailheader :X-MSMail-Priority").Valu e =
intImportance
if not isNull(strSende r) and strSender <strFrom then
Fields("urn:sch emas:mailheader :return-path").Value =
strSender_retur n 'strSender
Fields("urn:sch emas:mailheader :reply-to").Value = strFrom
end if
Fields.Update()
To = strTo
if not isNull(strSende r) and strSender <strFrom then
Sender = strSender
end if
if not isNull(strBcc) then
BCC = strBcc
end if
From = strFrom
Subject = strSubject
if cint(intType) = 1 then
TextBody = strBody
else
HTMLBody = strBody
end if
Send
End With
Set objMessage = Nothing
%>
thanks
--
westlog104
------------------------------------------------------------------------
Posted via
http://www.codecomments.com
------------------------------------------------------------------------