在 Outlook email 之后添加簽名。正文使用 Excel VBA

Question

在 Excel VBA 我想創建一個宏來通過 Outlook 發送一封信。

我需要一個簽名，但我無法創建它，因為我有一個.Body部分，我需要在它后面粘貼一個動態范圍的單元格。

With newEmail
    .Display
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.Paste
    
    .Display
    .Send

我應該在代碼粘貼范圍后添加什么和在哪里添加簽名？

PS .Body之前的范圍是必要的。

Answer 1

在 Excel VBA 中，我想創建一個宏來通過 Outlook 發送一封信。

我需要一個簽名，但我無法創建它，因為我有一個.Body部分，我需要在它之后粘貼一個動態范圍的單元格。

With newEmail
    .Display
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.Paste
    
    .Display
    .Send

在代碼粘貼范圍后，我應該添加什么以及在哪里添加簽名？

PS .Body之前的范圍是必要的。

Answer 2

在Word文檔中新建一個區域，調用Range.insertFile()插入簽名的HTML文件。

Answer 3

如果您在代碼中構建一個簽名並將其存儲在一個變量中，例如 Signature，您可以這樣做......

With newEmail
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "
    
    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    With .GetInspector.WordEditor.Range
        .Collapse 0
        .Paste
        .Collapse 0
        .Text = vbCrLf & Signature
        .Style = "No Spacing"
    End With
    
    .Display
    '.Send
End With

Answer 4

嘗試在末尾添加.body =.body &.HTMLbody