I am trying to send a link to the file using VBA Lotus Notes email. When receiving email, it doesn't show hyperlink.
Any help would be highly appreciated.
Thanks.
Here is my code:
Sub EMail()
Dim bcLotus As Office.CommandBarControl
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim stSubject2 As Variant
Dim vaRecipient2 As Variant, vaMsg2 As Variant, vaCopyTo2 As Variant
Dim signatureName As Variant, Recipients2 As Variant, CopyTo2 As Variant
Recipients2 = "xxxxxx"
CopyTo2 = "xxxxxx"
stSubject2 = "Derivatives Incoming USD Expected Watch List"
vaMsg2 = "Please click on the following link to access the file:" & vbCrLf & vbCrLf
vaMsg2L = vaMsg2 & "file:\\xxxxx\xxx.xls"
vaRecipient2 = VBA.Array(Recipients2)
vaCopyTo2 = VBA.Array(CopyTo2)
Set noSession = CreateObject("Notes.NotesSession")
signatureName = noSession.UserName
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
With noDocument
.Form = "Memo"
.SendTo = vaRecipient2
.CopyTo = vaCopyTo2
.CopyTo = "sbaram@btmna.com"
.Subject = stSubject2
.body = vaMsg2 & vbCrLf & vbCrLf & "Thanks," & vbCrLf & vbCrLf & signatureName & vbCrLf & vbCrLf
.SaveMessageOnSend = True
.PostedDate = Now()
.Send 0, vaRecipient2
End With
Set EmbedObject = Nothing
Set obAttachment = Nothing
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing
AppActivate "Microsoft Excel"
MsgBox "The e-mail has successfully been created and distributed.", vbInformation
End Sub
Any help would be highly appreciated.
Thanks.
Here is my code:
Sub EMail()
Dim bcLotus As Office.CommandBarControl
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim stSubject2 As Variant
Dim vaRecipient2 As Variant, vaMsg2 As Variant, vaCopyTo2 As Variant
Dim signatureName As Variant, Recipients2 As Variant, CopyTo2 As Variant
Recipients2 = "xxxxxx"
CopyTo2 = "xxxxxx"
stSubject2 = "Derivatives Incoming USD Expected Watch List"
vaMsg2 = "Please click on the following link to access the file:" & vbCrLf & vbCrLf
vaMsg2L = vaMsg2 & "file:\\xxxxx\xxx.xls"
vaRecipient2 = VBA.Array(Recipients2)
vaCopyTo2 = VBA.Array(CopyTo2)
Set noSession = CreateObject("Notes.NotesSession")
signatureName = noSession.UserName
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
With noDocument
.Form = "Memo"
.SendTo = vaRecipient2
.CopyTo = vaCopyTo2
.CopyTo = "sbaram@btmna.com"
.Subject = stSubject2
.body = vaMsg2 & vbCrLf & vbCrLf & "Thanks," & vbCrLf & vbCrLf & signatureName & vbCrLf & vbCrLf
.SaveMessageOnSend = True
.PostedDate = Now()
.Send 0, vaRecipient2
End With
Set EmbedObject = Nothing
Set obAttachment = Nothing
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing
AppActivate "Microsoft Excel"
MsgBox "The e-mail has successfully been created and distributed.", vbInformation
End Sub