VBA表单mailto超链接输出到客户问题

Question

我有一个在 Excel 表中查找电子邮件地址的表单，该表单在创建 mailto 超链接时效果很好。它们看起来像这样......

但是我想显示这个人的真实姓名，像这样，而且我有可用的字符串...

我的问题是这是否可以通过构建链接的方式来完成，或者这是电子邮件客户端通过从地址簿进行匹配来完成的事情？ 我更愿意训练地址簿，而不是只创建电子邮件地址。

另外这是我所拥有的示例

Link = "mailto:" & EmpForm.Label10
whoTo = EmpForm.TextBox3 'which I want to use in the TO:whoever
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True

Answer 1

如果您发送邮件的电子邮件地址存在于其通讯簿中，Outlook 新邮件窗口将显示您的姓名，否则将显示完整的电子邮件地址。

Answer 2

不要从 Excel 中访问链接，而是删除此部分：

ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True

您可以从 Excel 创建邮件。因此，您可以设置所需的参数。
这是一个代码示例（找到here）：

' requires a reference to the Microsoft Outlook 8.0 Object Library    
Sub SendAnEmailWithOutlook()
' creates and sends a new e-mail message with Outlook
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
    Set OLF = GetObject("", _
        "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set olMailItem = OLF.Items.Add ' creates a new e-mail message
    With olMailItem
        .Subject = "Subject for the new e-mail message" ' message subject
        Set ToContact = .Recipients.Add("name@domain.com") ' add a recipient
        Set ToContact = .Recipients.Add("name@company.com") ' add a recipient
        ToContact.Type = olCC ' set latest recipient as CC
        Set ToContact = .Recipients.Add("name@org.net") ' add a recipient
        ToContact.Type = olBCC ' set latest recipient as BCC
        .Body = "This is the message text" & Chr(13) 
        ' the message text with a line break
        .Attachments.Add "C:\FolderName\Filename.txt", olByValue, , _
            "Attachment" ' insert attachment
'        .Attachments.Add "C:\FolderName\Filename.txt", olByReference, , _
             "Shortcut to Attachment" ' insert shortcut
'        .Attachments.Add "C:\FolderName\Filename.txt", olEmbeddedItem, , _
             "Embedded Attachment" ' embedded attachment
'        .Attachments.Add "C:\FolderName\Filename.txt", olOLE, , _
             "OLE Attachment" ' OLE attachment
        .OriginatorDeliveryReportRequested = True ' delivery confirmation
        .ReadReceiptRequested = True ' read confirmation
        '.Save ' saves the message for later editing
        .Send ' sends the e-mail message (puts it in the Outbox)
    End With
    Set ToContact = Nothing
    Set olMailItem = Nothing
    Set OLF = Nothing
End Sub

要创建收件人字段，您可以使用：

arrTo = Split(whoTo,"@")
whoTo = UCase(arrTo[0]) & " " & UCase(arrTo[1]) & "<" & whoTo & ">"