Sistema de mailing com relatório

[KBR 0]

Galera, boa tarde.

 

Seguinte... já tenho um sistema de mailing bem eficiente utilizando o componente CDOSYS, com paginação e FCKEditor. Bom, seguinte. Preciso saber na verdade quem abre meus emails e quem clica nos mesmos. Alguém tem alguma idéia de como posso fazer isso?

 

Se eu colocar no envio um iframe de confirmação de abertura, será que dá certo? Ou existe algum outro esquema que eu ainda não saquei? Já revirei a net mas não achei nada à respeito. Sei que tem muita gente que oferece disparos com relatório de abertura, cliques e rejeição.

 

Alguém tem alguma idéia de como isso funciona?

 

Att.,

[~Thiago Lara 0]

Opa tranquilo?

 

Eu já ouvi falar de uma flag em uma imagem para confirmação de recebimento, ou seja quando o cara visualizar a sua imagem conta como mais um visualizado.

Já vi isso inclusive no fórum, da uma procurada que você acha...

 

Só não sei ao certo como funciona

 

hehehe

abraços!

[KBR 0]

Thiago, eu desconheço esse esquema. Pesquisei na net e nada achei sobre.

 

Alguém tem alguma outra saída, ou essa mesma só que com uma explicação melhor?

 

Abraços!

[xanburzum 169]

você ja tentou com o solicitar confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to, exemplo

 

<%
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

%>

[KBR 0]

Vou testar e posto o resultado. Valeu amigo!

[KBR 0]

você ja tentou com o solicitar confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to, exemplo

 

<%
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

%>

Sem resultado nenhum, nada acontece. Aliás, o que deveria acontecer?

 

Abraços!

[xanburzum 169]

você configuraou os campos

disposition-notification-to,return-receipt-to certinho...

[KBR 0]

você configuraou os campos

disposition-notification-to,return-receipt-to certinho...

Fiz isso, e nada aconteceu. O e-mail chega normalmente, mas a notificação não vem.

 

<%Dim objCDO

Set objCDO = Server.CreateObject("CDO.Message")

objCDO.From = "mail@xxx.com.br"

objCDO.To = "mail@xxx.com.br"

objCDO.Subject = "" & subject

objCDO.htmlBody = "Detalhes: " & detalhes & " <br> Este e-mail de Vendas. "

objCDO.fields("urn:schemas:mailheader:disposition-notification-to") = "kleber@xxx.com.br"

objCDO.fields("urn:schemas:mailheader:return-receipt-to") = "kleber@xxx.com.br"

objCDO.DSNOptions = 14

objCDO.fields.update

objCDO.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

objCDO.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver") _

="smtp.xxx.com.br"

objCDO.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _

=25

objCDO.Configuration.Fields.Update

 

objCDO.send

Set objCDO = Nothing%>

[xanburzum 169]

o SMTP esta certo ???

comigo funciona normal,

 

tenta colocar o

.DSNOptions = cdoDSNSuccessFailOrDelay