MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Solicitar confirmação de leitura de email via CDO

    Compartilhe

    sergiojcardoso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 21/10/2013

    Solicitar confirmação de leitura de email via CDO

    Mensagem  sergiojcardoso em Dom 25 Out - 21:22

    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.

      Data/hora atual: Qua 7 Dez - 14:14