Boa noite pessoal
Fiz um aplicativo que permite ao cliente enviar e-mails de cobrança a partir do banco de dados do cliente.
Acontece que ele quer que sejam enviados e-mails com solicitação de confirmação de leitura
Uso este código para montar o e-mail:
Set Mens = CreateObject("CDO.Message") 'Instancio o objeto criado para a mensagem
Set Config = CreateObject("CDO.Configuration") 'Instancio o objeto criado para a configuração da mensagem
With Config 'Abrimos o Config para a configuração
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sao.terra.com.br" 'Configuramos o servidor smtp
'Cada provedor tem sua configuração. Alguns, como o bol, tem um “s”:smtps.bol.com.br
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 '25 'Configuramos a porta do servidor
'Verifique a porta certa para o seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Configuramos o tipo de cliente. 2 indica uso do Outlook
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Configuramos o mecanismo de autenticação.
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Configuramos o envio de mensagem segura ou simples, usando True ou False
'Alguns provedores requerem conexão segura. Neste caso, usamos True nesta propriedade
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nfe@cliente.com.br" 'Configuramos o email a ser usado para o envio da mensagem
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "br0743" 'Inserimos a senha do email usado na linha de cima
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'Configuramos o tempo da tentativa de conexão
.Fields.Update 'Atualizamos os campos
End With 'Finalizamos a configuração
Alguem sabe como fazer para incluir a solicitação de confirmação de leitura neste código?
Desde já, obrigado.
Fiz um aplicativo que permite ao cliente enviar e-mails de cobrança a partir do banco de dados do cliente.
Acontece que ele quer que sejam enviados e-mails com solicitação de confirmação de leitura
Uso este código para montar o e-mail:
Set Mens = CreateObject("CDO.Message") 'Instancio o objeto criado para a mensagem
Set Config = CreateObject("CDO.Configuration") 'Instancio o objeto criado para a configuração da mensagem
With Config 'Abrimos o Config para a configuração
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sao.terra.com.br" 'Configuramos o servidor smtp
'Cada provedor tem sua configuração. Alguns, como o bol, tem um “s”:smtps.bol.com.br
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 '25 'Configuramos a porta do servidor
'Verifique a porta certa para o seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Configuramos o tipo de cliente. 2 indica uso do Outlook
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Configuramos o mecanismo de autenticação.
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Configuramos o envio de mensagem segura ou simples, usando True ou False
'Alguns provedores requerem conexão segura. Neste caso, usamos True nesta propriedade
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nfe@cliente.com.br" 'Configuramos o email a ser usado para o envio da mensagem
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "br0743" 'Inserimos a senha do email usado na linha de cima
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'Configuramos o tempo da tentativa de conexão
.Fields.Update 'Atualizamos os campos
End With 'Finalizamos a configuração
Alguem sabe como fazer para incluir a solicitação de confirmação de leitura neste código?
Desde já, obrigado.