Bom dia, Enviando e-mail via ASP, é possível saber se o destinatário recebeu? Obrigado!
Início›Asp Classico›Enviando e-mail via ASP, é possível saber se o destinatário recebeu?NNeto DinizzPublicado em 8 de nov.Enviando e-mail via ASP, é possível saber se o destinatário recebeu?#asp classico#e-mailBom dia, Enviando e-mail via ASP, é possível saber se o destinatário recebeu? Obrigado!Discussão (1)Entre ou cadastre-se para participar da discussãoEntrarCriar contaXxanburzum· 28 de jan.Olha este exemplo; Solicitando confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to <%Dim objCDOSet objCDO = Server.CreateObject("CDO.Message")objCDO.From = emailobjCDO.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álidoobjCDO.fields("urn:schemas:mailheader:return-receipt-to") = "financeiro@xan.net" 'Digite um e-mail válidoobjCDO.DSNOptions = 14objCDO.fields.updateobjCDO.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing")=2'Nome ou IP do servidor SMTP remotoobjCDO.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") _="XXX.teste.com"'Server portobjCDO.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _=25objCDO.Configuration.Fields.Update objCDO.sendSet objCDO = Nothing %>CurtirResponder
<%
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
%>