Insert link in email body to attached document in Outlook 365

Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
#1
Hello,

The folowing code worked OK in 2013:

Code:
Private Sub attachementTool()
Dim msg, Dim attach
Set msg = Application.CreateItem(0)
msg.To = "me@gmail.com"
msg.Subject = "test link"
msg.HTMLBody = "<html><body>click <a href=""cid:attachCid1"">here</a> to open attachment <br />" & _ "click <a href=""cid:attachCid2"">here</a> to open attachment</body></html>"
Set attach = msg.Attachments.Add("C:\Users\Me\Desktop\attach1.pdf")
attach.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", "attachCid1"
msg.Save
msg.Send
End Sub
Since I've installed 365, it stopped working.
Now the links created in the email don't link to the file attached.
Does anyone have the same issue?

Please feedback.
Thanks
 

Similar threads

Top