Excel 到 Outlook VBA 预先编写的正文

Question

我有一个不断变化的库存清单（经常添加新内容），我正在尝试为其编写一个可与​​ Outlook 一起使用以发送预先编写的电子邮件响应的子目录。从我在网上找到的信息（例如 Ron de Bruin 的有用专业知识）看来，这应该是可能的，但我一直试图弄清楚是否可以在单击电子邮件超链接时执行代码H 列。

例如，我在 A 列中从第 3 行开始有一个人的名字，在 H 列中从第 3 行开始有他们的电子邮件，这会自动格式化为在 Outlook 中打开新的空白邮件的超链接。我想看看是否可以应用一个宏，它会在每次选择超链接时自动填充主题行和正文消息。这是我目前所拥有的：

Sub SendEmail()

    Dim olApplication As Outlook.Application

    Set olApp = CreateObject("Outlook.Application")

    Dim olMail As Outlook.MailItem

    Set olMail = olApp.CreateItem(olMailItem)

    olMail.To=
    olMail.Subject = "Subject Line"
    olMail.Body = "This is the body of the e-mail"
    olMail.Display

End Sub

到目前为止，我所拥有的内容不可行，因为我不确定是否需要将“.To=”字段作为范围（H 列）引用，或者是否需要在其中粘贴条件语句以基于当一个单元格的超链接被选中时。

Answer 1

您的问题的答案是肯定的。
您需要做的是在 Outlook 中获取最近打开的 Inspector 对象。
请记住，当您单击该链接时，它会自动创建一个 MailItem。
您需要获取新创建的 MailItem 对象才能对其进行操作。

类似：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    On Error GoTo halt
    Application.EnableEvents = False

    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

    Set olApp = GetObject(, "Outlook.Application")

    Do While olApp.Inspectors.Count = 0
        DoEvents
    Loop

    Set olMail = olApp.Inspectors.Item(1).CurrentItem
    With olMail
        .Subject = "I was able to change the subject"
        .Body = "Dear " & Target.Range.Offset(0, -1).Value
        .Display
    End With
forward:
    Application.EnableEvents = True
Exit Sub
halt:
    MsgBox Err.Description
    Resume forward
End Sub

请注意，您需要通过正确引用将 Outlook 绑定到 Excel。
另请注意 Outlook 应该打开，否则您需要添加处理程序。
这只是指出您将如何通过超链接获取新创建的邮件项。高温