vba - 在 Outlook 365 中插入指向附加文档的链接

Question

我有一个宏在我更新到 Office 365 之前一直在工作。

我可以附加一个或多个文件并在正文中创建一个链接，以便当用户单击该链接时，它会打开附件。如果您有多个附件并且需要编写电子邮件并将用户保持在您需要打开的内容的上下文中，这将非常有用。您可以简单地添加一个链接（例如 [ LINK ]）作为快捷方式，而不必写附件的名称。

这在 2013 年有效：

Set MyAttachment= item.Attachments.item(i) 

MyAttachment.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001E", CStr(AttachRef)

其中 AttachRef 是附件的名称（字符串）。

然后我在电子邮件正文中写下带有地址的链接：

"cid:" & CStr(AttachRef)

一个描述（字符串）可以简单地看作：

[LINK]

使用：

Set Inspector = Application.ActiveInspector()
Set wdDoc = Inspector.WordEditor wdDoc.Hyperlinks.Add Selection.Range, Address:=iAddress, TextToDisplay:=iTextToDisplay

当您尝试打开链接时，MS Office 无法识别该文件，我得到：

“Microsoft Office 已发现潜在的安全问题。此位置可能不安全。cid:NAME”

标签： vbaoutlookoffice365