E-mail para vários usuários da tabela do Excel

Question

Eu tenho que enviar vários emails para alguns usuários de uma tabela do Excel. Minha tabela contém vários usuários e para cada um deles eu tenho algumas linhas com algumas ações.

        action              user
        ===============     =====
row1    lore ipsum 1        user1
        lore ipsum 2        
        lore ipsum 4        
        lore ipsum 5        
row2    lore ipsum 3        user2
        lore ipsum 1        
row3    lore ipsum 2        user3

É uma tabela dinâmica e tudo o que preciso fazer é enviar a cada usuário um e-mail desse tipo:

Olá "" usuário "" você tem essas ações neste mês:

"" lore ipsum1 "" "" lore ipsum2 "" "" lore ipsum3 ""

Eu sei que eu poderia usar o Word para fazer isso, mas não posso adicionar as várias ações para os usuários que têm mais de uma linha. Como posso fazer isso? Obrigado

    

Answer 1

Use o VBA no Excel para enviar e-mails (se você tiver o Outlook instalado)

Este exemplo está assumindo uma tabela simples do Excel nesse formato.

SubSendMailsFromList()DimobjOutlookAsObjectDimobjMailAsObjectDimiAsIntegerSetobjOutlook=CreateObject("Outlook.Application")

    With ActiveSheet
         For i = 2 To .Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row

            Set objMail = objOutlook.CreateItem(0)
            objMail.To = CStr(.Cells(i, 1))
            objMail.Subject = .Cells(i, 2)
            objMail.Body = .Cells(i, 3)
            objMail.Send
            Set objMail = Nothing

        Next i
    End With

    Set objOutlook = Nothing
End Sub

1. Configure sua tabela de dados como a captura de tela está mostrando
2. Abra o editor VBA com Alt + F11
3. Copiar & cole o código acima em algum lugar
4. Volte para o Excel e execute a macro com Alt + F8

Você também pode preencher CC, BCC ou usar assinaturas diferentes, se desejar. Se pudermos ver mais de perto sua tabela dinâmica, o código poderá ser modificado para funcionar com sua pasta de trabalho.

Recursos usados

• link