Saber se o E-mail foi Lido.

[wilnet 92]

Boa tarde pessoal,

 

Andei pesquisando na internet, mas nada que me ajuda-se.

 

Gostaria de saber como fazer que, ao enviar uma lista de e-mail, saber se eles foram lidos ou abertos.

 

Grato.

[xanburzum 169]

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

 

<%

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

 

%>

[Igor Meireles 0]

Boa tarde xanburzum,

Teste na minha aplicação e nao funcionou.
Outra dúvida, qual o layout desse aviso q eu vou receber quando a pessoa abrir o email ?

Segue o meu código:

 

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.newfaceinfo.com.br" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = sRemetente 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = USU_SENHAEMAIL
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
objCDOSYSMail.From = sRemetente
objCDOSYSMail.To = sDestinatario
objCDOSYSMail.Bcc = sRemetente
objCDOSYSMail.Subject = sAssunto
objCDOSYSMail.HtmlBody = sMensagem


objCDOSYSMail.Fields("urn:schemas:mailheader:disposition-notification-to") = USU_EMAIL
objCDOSYSMail.Fields("urn:schemas:mailheader:return-receipt-to") = USU_EMAIL
objCDOSYSMail.DSNOptions = 14
objCDOSYSMail.Fields.Update
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.newfaceinfo.com.br"
objCDOSYSMail.Configuration.Fields.Update
objCDOSYSMail.Send

 

Aguardo.

Retira o que disse.

Funcionou perfeitamente, é o servidor de email que demora um pouco pra responder.

[xanburzum 169]

algumas vezes, dependendo da stack de serviços de SMTP/POP do server ele pode demorar um pouco mais.