Confirmação de entrega e leitura

[igadino 0]

Pessoal e possivel adapita uma função que solicita a confirmação de entrega e teitura neste

 

 

'Fim da conexao com o banco de dados
dim strHTML, strHTM, Para2, Para3, Para4, Para5, Para6,Para7, Para8, Para9, Para10, passSet 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.admissao-to.com" 
'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'PORTA DO CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'ATIVAR RECURSO DE SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = " suporte@admissao-to.com"
'SENHA DO USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "suporte@admissao-to.com" 
'TEMPO DE TIMEOUT (EM SEGUNDOS) 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente 
objCDOSYSMail.From = Request.Form("De")&"<"&Request.Form("Email")&">" 'e-mail do remetente 
objCDOSYSMail.To = Request.Form("Para1")&"<"&Request.Form("Email_Para1")&">" 'e-mail do destinatário
'objCDOSYSMail.CC = Request.Form("Cc")&"<"&Request.Form("Email_Cc")&">" 'destinatario para copia, permite múltiplos
'objCDOSYSMail.BCC = Request.Form("Cco")&"<"&Request.Form("Email_Cco")&">" 'destinatário também, porém fica oculto, não aparece no mail, permite múltiplos
objCDOSYSMail.Subject = "Você recebeu um cartão virtual de "&Request.Form("De") 'conteúdo da mensagem 
'StrBody = "<font face='Verdana,Arial,Helvetica' color='#ff0000' size='2'><b>" &Request.Form("Para")& "</b>,</font> <br>"&request("HtmlText")&""
StrBody = strHTML
strHTML = strHTML & "." 
'objCDOSYSMail.TextBody = strBody
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
objCDOSYSMail.HtmlBody = strBody
'envia o e-mail 
objCDOSYSMail.Send 
'destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing

[xanburzum 169]

A confirmação de leitura pode ser solicitada através de um cabeçalho personalizado chamado Disposition-Notification-To

 

<% 
Set MyMail = Server.CreateObject("CDONTS.NewMail") 
MyMail.From = "teste@domain.com" 
MyMail.To = "secgundo_email@domain.com" 
MyMail.Subject = "Teste!" 
MyMail.Body = "Email teste Com notify" 
MyMail.Value("Disposition-Notification-To")="outro_email@domain.com" 
MyMail.Send 
Set MyMail = Nothing 
%>

myMail.fields("urn:schemas:mailheader:disposition-notification-to") = "teste@domain.com" 'ToDo: Digite um endereço de email válido.
myMail.fields("urn:schemas:mailheader:return-receipt-to") = "teste@domain.com"  'ToDo: Digite um endereço de email válido.
	'Set DSN options.
'	Name				   Value	   Description
'	cdoDSNDefault			 0	   No DSN commands are issued.
'	cdoDSNNever			   1	   No DSN commands are issued.
'	cdoDSNFailure			 2	   Return a DSN if delivery fails.
'	cdoDSNSuccess			 4	   Return a DSN if delivery succeeds.
'	cdoDSNDelay			   8	   Return a DSN if delivery is delayed.
'	cdoDSNSuccessFailOrDelay  14	  Return a DSN if delivery succeeds, fails, or is delayed.

'	.DSNOptions = cdoDSNSuccessFailOrDelay
myMail.DSNOptions = 14
myMail.fields.update

[igadino 0]

Já tentei mais não funciona

[xanburzum 169]

pq naun ??? gera algum erro...

você esta usandop o schemas:mailheader:return-receipt-to e urn:schemas:mailheader:disposition-notification-to é para funcionar

[igadino 0]

Ja tentei de varias maneira, ou talvez estou mondando errado voce pode mantah para min

[xanburzum 169]

coloca assim:

 

nome_do_seu_objeto.fields("urn:schemas:mailheader:disposition-notification-to") = "xanburzum@seu_dominio.com" 'ToDo: Digite um endereço de email válido.
nome_do_seu_objeto.fields("urn:schemas:mailheader:return-receipt-to") = "xanburzum@seu_dominio.comom"  'ToDo: Digite um endereço de email válido

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

%>

[igadino 0]

Comigo não funciona

[xanburzum 169]

é gerado algum erro ?

[igadino 0]

Não gera nenhum erro.

[xanburzum 169]

estranho , você usando essas linhas tem que funcionar

 

nome_do_seu_objeto.fields("urn:schemas:mailheader:disposition-notification-to") = "xanburzum@seu_dominio.com" 'ToDo: Digite um endereço de email válido.
nome_do_seu_objeto.fields("urn:schemas:mailheader:return-receipt-to") = "xanburzum@seu_dominio.comom"  'ToDo: Digite um endereço de email válido

você esta colocando o

 

nome_do_seu_objeto.DSNOptions = 14
nome_do_seu_objeto.fields.upda
nome_do_seu_objeto.Send