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:schemas:mailheader:return-path").Value = strSender_return
but never get it work.....:-<
doesn any one know any way to send bounce back email to
urn:schemas:mailheader:return-path ?
Here is my code.............
<%
Dim objMessage ' As CDO.Message
dim strSender
dim strFrom
dim strTo
dim strBcc
dim strSubject
dim strBody
strSender_return = "12*@123.com"
strSender =
12*@123sender.com
strFrom = "12*@123.com"
strTo = "re****************@123.com"
strBcc =""
strSubject = "test subject"
strBody = "test body"
Set objMessage = Server.CreateObject("CDO.Message")
With objMessage
Headers("return-path",strSender_return)
Fields("urn:schemas:httpmail:importance").Value = intImportance
Fields("urn:schemas:httpmail:priority").Value = intImportance-1
select case intImportance
case 0
Fields("urn:schemas:mailheader:X-Priority").Value = 5
case 1
Fields("urn:schemas:mailheader:X-Priority").Value = 3
case 2
Fields("urn:schemas:mailheader:X-Priority").Value = 1
case else
Fields("urn:schemas:mailheader:X-Priority").Value = 0
End Select
Fields("urn:schemas:mailheader:X-MSMail-Priority").Value =
intImportance
if not isNull(strSender) and strSender <strFrom then
Fields("urn:schemas:mailheader:return-path").Value =
strSender_return 'strSender
Fields("urn:schemas:mailheader:reply-to").Value = strFrom
end if
Fields.Update()
To = strTo
if not isNull(strSender) 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
------------------------------------------------------------------------