Question

这是我第一次使用Outlook的VBA，所以我不确定这是否可行。我要做的是发送一封电子邮件，其中包含电子邮件正文中的链接。

当用户点击该链接时，我希望获得自动回复，以便跟踪我的参与度。我看了这个类似的问题 - Want to trigger Automate reply after click on a link in Outlook mail以获得灵感来解决问题，但这并不完全合适。非常感谢你对此的帮助！

Sub MailURL()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "<HTML><BODY>"
    strbody = strbody & "<a href=""mailto: omar@omar.com"">Relpy here</a>"
    strbody = strbody & "</BODY></HTML>"

    On Error Resume Next
    With OutMail
        .to = "omar@omar.com"
        .Subject = "Testing URL"
        .HTMLBody = strbody
       ' .Send
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Answer 1

没有类似的东西。如果有办法，那将是一个巨大的安全漏洞。

您可以做的最好的事情是使用mailto链接显示新消息（但用户仍然需要单击“发送”）。或者您可以链接到您自己的网站，您可以在其中记录热门内容。

当有人点击我的Outlook电子邮件中的链接时，会收到自动发送的电子邮件

1 个答案: