VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Enviando um e-Mail para cada Cliente (Sending an email to each Customer)

Aqui está um exemplo de como você pode usar o VBA do Outlook para acessar bancos de dados externos.

 Série de Livros nut Project 

  

  

 

 Série VBA Outlook: 

  

  

  

O exemplo está comentado para ajudá-lo a entender o que cada parte do código está fazendo:

Enviando um e-mail para cada cliente

Sub SendEmails()

    Dim conn As Object

    Set conn = CreateObject("ADODB.Connection")

    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database.accdb;"

    

    Dim rs As Object

    Set rs = conn.Execute("SELECT * FROM Customers")

    

    While Not rs.EOF

        Dim MailItem As Object

        Set MailItem = Application.CreateItem(0)

        MailItem.Subject = "Hello"

        MailItem.Body = "Dear " & rs.Fields("CustomerName").Value & ", ..."

        MailItem.To = rs.Fields("EmailAddress").Value

        MailItem.Send

        rs.MoveNext

    Wend

    ' Isso enviará um e-mail para cada cliente

End Sub

 Série DONUT PROJECT 2024 

  

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com