Hello community,
I am having a bad time in finding out how to send a mail with a link to a program using a hotspot in LotusScript.
The code below sends an empty email.
'---code---
Sub Initialize()
Dim NotesSession As New NotesSession
NotesSession.Initialize ("Password")
Dim NotesDB As NotesDatabase
Set NotesDB = NotesSession.GetDatabase("ServerName", "mail\" & UserName & ".nsf")
Dim NotesDocument As NotesDocument
Set NotesDocument = NotesDB.CreateDocument
Dim NotesRichItem As NotesRichTextItem
Set NotesRichItem = NotesDocument.CreateRichTextItem("Body")
'Here comes what I need. Something similar to the line below
'NotesRichItem.AppendDocLink "myProgram.exe","Click Here"
NotesDocument.Send False, "Email"
Set NotesSession = Nothing
Set NotesDB = Nothing
Set NotesDocument = Nothing
Set NotesRichItem = Nothing
'--- End code
End Sub
Thanks very much !!!!!!!
I am having a bad time in finding out how to send a mail with a link to a program using a hotspot in LotusScript.
The code below sends an empty email.
'---code---
Sub Initialize()
Dim NotesSession As New NotesSession
NotesSession.Initialize ("Password")
Dim NotesDB As NotesDatabase
Set NotesDB = NotesSession.GetDatabase("ServerName", "mail\" & UserName & ".nsf")
Dim NotesDocument As NotesDocument
Set NotesDocument = NotesDB.CreateDocument
Dim NotesRichItem As NotesRichTextItem
Set NotesRichItem = NotesDocument.CreateRichTextItem("Body")
'Here comes what I need. Something similar to the line below
'NotesRichItem.AppendDocLink "myProgram.exe","Click Here"
NotesDocument.Send False, "Email"
Set NotesSession = Nothing
Set NotesDB = Nothing
Set NotesDocument = Nothing
Set NotesRichItem = Nothing
'--- End code
End Sub
Thanks very much !!!!!!!