Question

我是不熟悉StackOverflow的人，因此，如果我遗漏了一些东西，我深表歉意。我已经尝试了一段时间以使其正常工作，但是似乎只有一个小细节无法实现。长话短说，我从公司导出数据，并使用该信息发送包含某些信息的电子邮件。我创建了一个宏，它将为我创建所有内容，包括（电子邮件，插入数据和所有文本）。我唯一的问题是，我的默认邮件签名未包含在底部。我不知道为什么。我以为可能是电子邮件，纯文本，HTML，富文本格式等格式，但事实并非如此。我下面有我的代码。任何帮助是极大的赞赏！我也确实知道，编写代码可能有更整洁的方法，但是我处于时间紧迫的状态。

Sub ManifestRequest()
    On Error GoTo ErrHandler

    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")

    ' CREATE EMAIL OBJECT.
    Dim objMail As Object
    Set objMail = objOutlook.CreateItem(0)

    Dim SelRange As Range
    Set SelRange = ActiveSheet.Range(Selection.Address)
    SelRange.Copy



    With objMail
        .To = ""
        .Subject = "Enter Subject Here" + SelRange
        .Body = "Enter Body Text Here"
        .Display        ' DISPLAY MESSAGE.
    End With

    ' CLEAR.
    Set objMail = Nothing
    Set objOutlook = Nothing


ErrHandler:
    '
End Sub

Excel VBA电子邮件创建

0 个答案: