[xanburzum]

Solicitando confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to

CÓDIGO

<%
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.From = email
objCDO.To = contact
'objCDO.CC = "xan@xanburzum.net"
objCDO.Subject = "" & subject    
objCDO.htmlBody = "Detalhes: " & detalhes & " <br>  Este e-mail de Vendas. "
'objCDO.CreateMHTMLBody ("http://teste.xan.net/email.asp?msg=1")
objCDO.fields("urn:schemas:mailheader:disposition-notification-to") = "admin@xan.net"
'Digite um e-mail válido
objCDO.fields("urn:schemas:mailheader:return-receipt-to") = "financeiro@xan.net"  
'Digite um e-mail válido
objCDO.DSNOptions = 14
objCDO.fields.update
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Nome ou IP do servidor SMTP remoto
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="XXX.teste.com"
'Server port
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
objCDO.Configuration.Fields.Update


objCDO.send
Set objCDO = Nothing

%>