Question

我想打开outlook compose电子邮件窗口，只填写To字段。

在c＃中，如果我们写“mailto：abc@abc.com”，那么它将打开带有To字段的撰写电子邮件窗口。

是否可以使用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中的To字段打开Outlook

2 个答案: