带有 Outlook 格式的电子邮件签名答案

【问题标题】：Email Signatures with Outlook Formatting带有 Outlook 格式的电子邮件签名
【发布时间】：2013-12-21 07:18:50
【问题描述】：

好的，所以我在访问表单上的按钮上有以下代码。

Private Sub Request_FTP_Click()

    Dim olApp As Object
    Dim objMail As Object

    On Error Resume Next 'Keep going if there is an error
        Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

        If Err Then 'Outlook is not open
            Set olApp = CreateObject("Outlook.Application") 'Create a new instance
        End If

    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
    .display
    End With
    signature = objMail.Body
    With objMail
        .To = "kristian@hebsdigital.com"
        .Cc = ""
        .Subject = "Please create FTP for " + Property_Name.Value
        .Body = "Hi Ilya, " & vbNewLine & vbNewLine & "Could you please create an FTP for " & Property_Name & vbNewLine & vbNewLine & "Thank you," & signature

        .send
    End With

End Sub

问题是我希望签名使用 Outlook 格式。（颜色、字体等）现在加载如下：

Name
Last Name
HYPERLINK "http://www.hebsdigital.com/"Web • HYPERLINK "http://hebsdigital.com/blog/"Blog

有人有解决办法吗？

【问题讨论】：

标签： email ms-access outlook vba

【解决方案1】：

要获得 HTML 格式，您必须创建 html 格式的字符串，然后使用 .HTMLBody

Outlook 也是一个应用程序，其中CreateObject 不会创建新实例。它将拾取现有实例。

举例

Private Sub Request_FTP_Click()
    Dim olApp As Object, objMail As Object
    Dim Sig as String

    Set olApp = CreateObject("Outlook.Application")

    Set objMail = olApp.CreateItem(olMailItem)

    Sig = "Hi Ilya, <br>" & vbNewLine & vbNewLine & _
              "Could you please create an FTP for <br>" & Property_Name & vbNewLine & _
              "Thank you,<br>" & _
              "<A HREF=""http://www.hebsdigital.com/"">Web</A>" & vbNewLine & _
              "<A HREF=""http://hebsdigital.com/blog/"">Blog </A>"

    With objMail
        .To = "kristian@hebsdigital.com"
        .Cc = ""
        .Subject = "Please create FTP for " & Property_Name.Value
        .htmlbody = Sig

        .Display
    End With
End Sub

【讨论】：