Excel 中的自动化电子邮件

Question

我正在尝试设计一个 excel 文件，以帮助我的公司进行招聘。

任务是为公司与之交谈的候选人创建一张表，我们将记录候选人的所有记录，包括他们的名字、姓氏、手机和电子邮件地址。您可以在此处查看所有内容的屏幕截图：https://imgur.com/gallery/tvAIx

如您所见，公司与候选人交谈的时间以及他将简历发送给我们的时间都有列。最后还有一个“简历提醒”栏目。它有以下代码=IF(ISBLANK(F2), HYPERLINK("mailto:" & D2 & "?subject=" & $O$3 & "&body=" & $P$3, "Send reminder"), "All good")

这个想法是，如果尚未收到简历，您可以按下单元格，它将为候选人生成一封提醒电子邮件。我想让所有的过程自主，以便它可以从相关单元格中挑选出候选人姓名并向他发送一封通用电子邮件，例如：

"嗨来自单元格的名字,

希望你一切都好。

我们已于 在单元格日期与您进行了交谈。你有机会审查你的简历吗？你有什么问题吗？”

我确信使用 VBA 是可能的，只是不知道怎么做。谢谢。

Answer 1

您应该能够处理基本的 VBA 用法以实现此目的。

以下是为 Office 2000-2016 发送 Outlook 电子邮件的 VBA 代码。来源是http://www.rondebruin.nl

您可以将代码放在请求单元格的 SelectionChange 事件中，并根据您的需要更改 Body、SendTo 等部分。 （显然，在您的情况下，SendTo 地址和 Body 的某些部分将来自您所选单元格行上的特定单元格）

Sub Mail_small_Text_Outlook()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub