excel - 将 Excel 数据表条目拉入 Outlook 电子邮件模板的收件人

Question

目标是将 Excel 数据表/数据透视表连接到 Outlook 电子邮件模板。

有没有办法将原始条目创建者从数据透视表或表字段中拉到收件人部分以发送电子邮件？我正在尝试自动从此数据表中向多个用户发送电子邮件。有关向谁发送电子邮件的信息在表中。

这是我到目前为止所拥有的：

Sub SendMail()
    Dim olApp As Outlook.Application 
    Dim olMail As Outlook.MailItem 
    Dim  blRunning As Boolean

    blRunning = True 
    on Error Resume Next 
    Set olApp = GetObject (,"Outlook.Application") 
    If olApp Is Nothing Then 
        Set olApp = New Outlook.Application 
        blRunning = False 
    End If  
    On Error GoTo 0 

    Set olMail = olApp.CreateItem(olMailItem) 
    With olMail 
        .Subject = "Automatic Entry Support" 
        .Recipients.Add "[e-mail]"  
        .Attachments.Add "C:\Users\J.Doe\Documents\Project\Template draft.xlsx"  
        .Body = "Support message" 
        .Display ("Spell check, data attached?, SEND")
    End With
    If Not blRunning Then olApp.Quit

    Set olApp = Nothing
    Set olMail = Nothing
End Sub

标签： excelvbaoutlook

Answer 1

找到表格的最后一行并 for 遍历收件人。看一下这个：

https://www.rondebruin.nl/win/s1/outlook/mail.htm