vba 添加outlook 签名_如何在Outlook中添加默认签名

太过爱你忘了你带给我的痛 2022-12-31 12:19 246阅读 0赞

如何在Outlook中添加默认签名

我正在Access中编写一个VBA脚本，用于创建和自动填充几十封电子邮件。到目前为止，它一直是流畅的编码，但我是Outlook的新手。创建mailitem对象后，如何将默认签名添加到电子邮件中？这将是创建新电子邮件时自动添加的默认签名。

理想情况下，我想使用ObjMail.GetDefaultSignature，但我找不到类似的东西。

目前，我正在使用下面的功能(在互联网上的其他地方找到)并引用htm文件的确切路径和文件名。但是这将由几个人使用，他们的默认htm签名文件可能有不同的名称。所以这可行，但它并不理想：Function GetBoiler(ByVal sFile As String) As String'Dick KusleikaDim fso As ObjectDim ts As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)GetBoiler = ts.readall

ts.CloseEnd Function

(称为getboiler(SigString = "C:\\Users\\" & Environ("username") & "\\AppData\\Roaming\\Microsoft\\Signatures\\Mysig.txt"))

编辑

我意识到默认签名首先出现，但是当我使用HTMLBody向电子邮件添加表格时它会消失。所以我想我现在的问题是：如何显示默认签名并仍显示html表？Sub X()

Dim OlApp As Outlook.Application Dim ObjMail As Outlook.MailItem Set OlApp = Outlook.Application Set ObjMail = OlApp.CreateItem(olMailItem)

ObjMail.BodyFormat = olFormatHTML

ObjMail.Subject = "Subject goes here"

ObjMail.Recipients.Add "Email goes here"

ObjMail.HTMLBody = ObjMail.Body & "HTML Table goes here"

ObjMail.DisplayEnd Sub