Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
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.
algumas vezes, dependendo da stack de serviços de SMTP/POP do server ele pode demorar um pouco mais.
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
%>