Электронная почта для нескольких пользователей из таблицы Excel

Question

Я должен отправить несколько электронных писем некоторым пользователям из таблицы Excel. Моя таблица содержит несколько пользователей, и для каждого из них у меня есть строка с некоторыми действиями.

        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

Это сводная таблица, и все, что мне нужно сделать, это отправить каждому пользователю почту такого типа:

Здравствуйте, "" пользователь "" у вас есть эти действия в этом месяце:

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

Я знаю, что мог бы использовать Word, чтобы сделать это, но я не могу добавить несколько действий для пользователей, которые имеют более одной строки. Как я могу это сделать? Спасибо

Answer 1

Используйте VBA в Excel для отправки почты (если у вас установлен Outlook)

Этот пример предполагает простую таблицу Excel в этом формате.

Sub SendMailsFromList()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim i As Integer

    Set objOutlook = 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. Настройте свою таблицу данных, как показано на скриншоте
2. Откройте редактор Excels VBA с помощью Alt+F11
3. Скопируйте и вставьте код где-то выше
4. Вернитесь в Excel и выполните макрос с помощью Alt+F8.

Вы также можете заполнить CC, BCC или использовать другие подписи, если хотите. Если мы сможем поближе взглянуть на вашу сводную таблицу, код можно изменить для работы с вашей рабочей книгой.

Использованные ресурсы

• http://msdn.microsoft.com/en-us/library/office/gg508919.aspx