У меня есть макрос, который работал до тех пор, пока я не обновил 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"