使用来自 Excel vba 的收件人字段打开 outlook

Question

我想打开 outlook 撰写电子邮件 window，只填写“收件人”字段。

在 c# 中，如果我们写 "mailto:abc@abc.com"，那么它会打开带有收件人字段的撰写电子邮件 window。

是否可以使用 Excel vba?

Answer 1

VBA Hyperlinks.Add 方法就是你想要的（参见 https://msdn.microsoft.com/en-us/library/office/ff822490.aspx）。

...
With ActiveSheet
    .Cells(4,4).Value = "someone@somewhere.com"
    .Hyperlinks.Add Anchor:=.Cells(4, 4), _
    Address:="mailto:someone@somewhere.com"
End With

Answer 2

我试过下面的代码，效果很好。

Sub CreateStatusReportToBoss()
  Dim myItem As Outlook.MailItem

  Dim outApp As Outlook.Application
  Set outApp = New Outlook.Application

  Set myItem = outApp.CreateItem(olMailItem)

  Set myRecipient = myItem.Recipients.Add("mail@abc.com")

  myItem.Subject = "Status Report"
  myItem.Display
End Sub

使用来自 Excel vba 的收件人字段打开 outlook

Open outlook with To field from Excel vba

excel

outlook

vba