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

    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 : 86
    Registrado : 08/01/2017

    Envio de Email com smtp via CDO Empty Envio de Email com smtp via CDO

    Mensagem  Edgar Massa Ter 07 Set 2021, 4:26 am

    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 : 7613
    Registrado : 16/03/2013

    Envio de Email com smtp via CDO Empty Re: Envio de Email com smtp via CDO

    Mensagem  Alvaro Teixeira Ter 07 Set 2021, 3:38 pm


      Data/hora atual: Sab 01 Out 2022, 7:30 pm