为了账号安全,请及时绑定邮箱和手机立即绑定

如何在Outlook中添加默认签名

如何在Outlook中添加默认签名

如何在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
查看完整描述

3 回答

  • 3 回答
  • 0 关注
  • 1866 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信