Question

我有Excel电子表格审核供应商文档，其中包含到期日期。我创建了一个VBA宏，当我选择（Ctrl + M）时，会根据到期日期发送一封电子邮件，要求更新特定文档。

一切都很美好，就像魅力一样。

我的问题是如何在电子邮件末尾添加Outlook签名？我想根据打开电子表格的人来接收它，这样如果Charlie Brown想要触发一封电子邮件，最后会包括Charlie Brown的Signature。

它已经自动填写查理布朗作为发件人，所以我应该能够做到这一点。

有什么建议吗？

Answer 1

如果您使用excel获取新邮件项目签名，您将获得用户可以确认的可疑活动的标记

Dim OApp, OMail As Object
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)

Dim sig As String
sig = OMail.HTMLbody

如果你知道签名的名称，你可以去浏览它

Dir (CStr(Environ$("userprofile")) & "\appdata\roaming\microsoft\signatures\")

Answer 2

这是一个例子

Option Explicit
Sub AddSignature()
    Dim olApp As Object
    Dim olMail As Object

    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    With olMail
        .Display olMail.HTMLbody '<- adding default signature
    End With

    With olMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .HTMLbody = "Hello." & "<br>" & .HTMLbody '<- adding default signature
        .Display
'        .Send
    End With

    Set olMail = Nothing
    Set olApp = Nothing
    End Sub

also see Insert Signature in mail来自 Ron de Bruin

如何在Excel上添加签名

2 个答案: