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 = "123@123.com"
strSender = 123@123sender.com
strFrom = "123@123.com"
strTo = "replydsafewsgeghew@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
------------------------------------------------------------------------