我有一个宏,一直工作,直到我更新到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”