Excel VBA 创建与 VLookup 兼容的电子邮件生成器

Question

我目前有一个电子表格，可以从另一张表格中提取信息。它使用一系列 Vlookup 公式，使用 Sheet1 中的客户详细信息生成消息。为了发送这些电子邮件，我一直在使用两个宏命令。一个简单的复制范围（B4：L36）：

Sub Copy()
Copy Macro
Range("B4:L36").Select
Selection.Copy
End Sub

另一个命令打开一封空白电子邮件：

Sub MailIt()
Dim oMailItem As Object
Dim oOLapp As Object
Set oOLapp = CreateObject("Outlook.application")
Set oMailItem = oOLapp.CreateItem(0)
With oMailItem
.To = ""
.CC = ""
.Subject = ""
.Body = ""
.Display
End With
Set oOLapp = Nothing
Set oMailItem = Nothing
End Sub

然后我将消息作为图片粘贴到电子邮件正文中。我回到我的电子表格并从 E1:J1 范围内复制生成的标题并将其粘贴为我的电子邮件主题。最后，我从 L2 复制收件人地址并将其粘贴到我的电子邮件中并发送。

有没有办法有一个 VBA 命令：

1. 查看 L2 中的地址并将其粘贴为电子邮件中的收件人地址（假设 VLookup 公式不会干扰此操作）。
2. 从 E1:J1 复制标题范围并将其粘贴为电子邮件主题。
3. 复制邮件范围 (B4:L36) 并将其粘贴为电子邮件正文（作为图片）。

作为visual example 电子表格正在做什么，请查看超链接。基本思想是它从 INFO 选项卡中获取详细信息并使用 VLookup 公式在 Proforma 选项卡中生成消息（出于数据保护的原因，我已将消息涂黑）。如果有更好的方法可以做到这一点，请告诉我 - 我总是很乐意了解更多！

我对此进行了大量研究，发现可以创建执行此操作的电子邮件，但是，我正在努力让它发挥作用，希望能得到一些帮助！

谢谢。

Answer 1

每当我需要发送电子表格的一部分时，我通常直接通过 Excel 发送，不包括 Outlook：

Sub SendTheStuff()
    Dim strRecipients As String
    Dim strSubject As String

    strRecipients = Worksheets("Sheet 1").Cells(2, 12).Value   'your client's mail adress, assuming it to be on Sheet 1 of your book, adjust to your needs
    strSubject = Worksheets("Sheet 1").Cells(1, 5).Value   'The content of Sheet 1, Cell "E1" - see if you can combine the range you want into one cell to keep code simple - and adjust the Sheet if necessary

    Worksheets("Sheet 1").Range("B4:L36").Select
    With Selection
        ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            .Item.Subject = strSubject
            .Item.To = strRecipients
            .Item.Attachments.Add "T:\he\Path\To\An\Attachm.ent"   'you may even add a file in case you need to
            .Item.Send
        End With
    End With

ActiveWorkbook.EnvelopeVisible = False

End Sub

此方法使用 Excel 作为邮件客户端，对我来说效果很好 - 试试吧！