MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Solicitar confirmação de leitura de email via CDO

    avatar
    Convidado
    Convidado


    [Resolvido]Solicitar confirmação de leitura de email via CDO Empty [Resolvido]Solicitar confirmação de leitura de email via CDO

    Mensagem  Convidado 26/10/2015, 01: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.
    avatar
    Convidado
    Convidado


    [Resolvido]Solicitar confirmação de leitura de email via CDO Empty Re: [Resolvido]Solicitar confirmação de leitura de email via CDO

    Mensagem  Convidado 19/7/2022, 12:32

    Obrigado

      Data/hora atual: 26/4/2024, 14:16