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


2 participantes

    [Resolvido]Envio de Email com smtp via CDO

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 08/01/2017

    [Resolvido]Envio de Email com smtp via CDO Empty [Resolvido]Envio de Email com smtp via CDO

    Mensagem  Edgar Massa 6/9/2021, 23:56

    Galera

    Me ajuda, muito boa noite a todos.
    Estou utilizando o código abaixo para envio de e-mails via Gmail, com smtp. Funciona lindo, mas gostaria de saber como adapto esse código pra usar no Outlook/Hotmail?

    Código:
    Sub SendGmail()

       'creating a CDO object
       Dim Mail As CDO.Message
       Set Mail = New CDO.Message
       
       'Enable SSL Authentication
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
       
       'Make SMTP authentication Enabled=true (1)
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       
       'Set the SMTP server and port Details
       'Get these details from the Settings Page of your Gmail Account
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
       "smtp.gmail.com"
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       
       'Set your credentials of your Gmail Account
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
       "edgar.massa.94@gmail.com"
       Mail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
       "********"
       
       'Update the configuration fields
       Mail.Configuration.Fields.Update
       
       'Set All Email Properties
       With Mail
           .Subject = "Write subject here"
           .From = "edgar.massa.94@gmail.com"
           .To = "edgar_massa@hotmail.com"
           '.CC = "user2@gmail.com"
           '.BCC = "user3@gmail.com"
           .textbody = "write your mail here"
           '.AddAttachments ("Folder Address") 'To attach Documents in mail
       End With
       'to send the mail
       Mail.Send
       
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7990
    Registrado : 15/03/2013

    [Resolvido]Envio de Email com smtp via CDO Empty Re: [Resolvido]Envio de Email com smtp via CDO

    Mensagem  Alvaro Teixeira 7/9/2021, 11:08

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7990
    Registrado : 15/03/2013

    [Resolvido]Envio de Email com smtp via CDO Empty Re: [Resolvido]Envio de Email com smtp via CDO

    Mensagem  Alvaro Teixeira 2/5/2023, 16:29

    Olá Edgar,

    Como ficou a situação, os membros do fórum merecem e agradecem o retorno.
    Além disso se a situação ficou esclarecida, deve dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço

    Conteúdo patrocinado


    [Resolvido]Envio de Email com smtp via CDO Empty Re: [Resolvido]Envio de Email com smtp via CDO

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 1/11/2024, 07:24