Vba Excel中的自动化电子邮件

我正试图设计一个excel文件，这将有助于我的公司招聘

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

正如你所看到的，当公司与候选人交谈时，以及当他将简历发送给我们时，都有专栏。最后还有一个“简历提醒”栏。它有以下代码

=IF（ISBLANK（F2），超链接（“mailto:”&D2&“？subject=“&$O$3&”&body=“&$P$3，“发送提醒”），“一切正常”）

这样做的目的是，如果尚未收到简历，您可以按下该单元格，它将为候选人生成一封提醒电子邮件。我想让所有过程都是自主的，这样它就可以从相关单元格中选择候选人姓名，并向他发送一封普通电子邮件，如：

“你好，我是cell的名字

希望你身体健康

我们已经在cell的约会上和你谈过了。你有机会回顾一下你的简历吗？你有什么问题吗？”

---

我相信这是可能的VBA只是不知道如何。谢谢。

为了实现这一点，您应该能够处理基本的VBA使用

下面是发送Office 2000-2016 Outlook电子邮件的VBA代码。来源是

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

---

是的。请看一看或问一个例子。谢谢！我会尽量用这个。

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