Stuur html mail via Lotus Notes in een VB.NET applicatie

[Ayla2008]

Hallo,

Op dit moment ben ik een VB.NET applicatie aan het maken die mails verstuurd via lotus notes naar mensen binnen ons bedrijf.
Dit werkt goed maar nu wil ik graag een link toevoegen aan de mail die dan een exe application open doet (in lotus notes noemt dat een 'hotspot').

Ik heb al opzoekingen gedaan op het internet maar ik heb het niet gevonden.

Hier is mijn code tot nu toe:
'

Set up the objects required for Automation into lotus notes 
Dim Maildb As Object 'The mail database 
Dim UserName As String 'The current users notes name 
Dim MailDbName As String 'THe current users notes mail database name 
Dim MailDoc As Object 'The mail document itself 
Dim AttachME As Object 'The attachment richtextfile object 
Dim Session As Object 'The notes session 
Dim EmbedObj As Object 'The embedded object (Attachment) 
'Start a session to notes 
Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name 
'You may or may not need this as for MailDBname with some systems you 
'can pass an empty string 
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes 
Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail 
Else
Maildb.OPENMAIL()
End If
'Set up the new mail document 
MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = recipient
MailDoc.Subject = Subject
MailDoc.Body = bodytext & vbCrLf & vbCrLf

MailDoc.SAVEMESSAGEONSEND = saveit
'Set up the embedded object and attachment and attach it 
If attachment <> "" Then
AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
End If
'Send the document 
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder 
MailDoc.SEND(0, recipient)
'Clean Up 
Maildb = Nothing
MailDoc = Nothing
AttachME = Nothing
Session = Nothing
EmbedObj = Nothing

Heeft iemand een idee?
Bedankt

 

[broeckjl]

AppendDocLink

Hoi,

Na de "New NotesRichTextItem"

Zou je het commando "AppendDocLink" kunnen geven. Uit Help: Call rtitem.AppendDocLink ( doc, doc.Subject( 0 ) & " in " & view.Name )

Eerst wel een "doc" handle maken, naar het document waar een link van wilt mee sturen.

Kom je hier mee verder?

Mail anders gerust naar Mod edit: Helpen doen we via het forum, niet via email o.i.d.

 

[Ayla2008]

Hallo ,

Ik heb je raad opgevolgd en heb nu de volgende code:

Public Sub SendNotesMailtest(ByVal Subject As String, ByVal attachment As String, ByVal recipient() As String, ByVal bodytext As String, ByVal saveit As Boolean) 
'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current users notes mail database name Dim MailDoc As Object 'The mail document itself Dim AttachME As Object 'The attachment richtextfile object Dim Session As Object 'The notes session Dim EmbedObj As Object 'The embedded object (Attachment) 
Dim Body As Object 
'Dim doc As Object 
'Start a session to notes Session = CreateObject("Notes.NotesSession") 
'Get the sessions username and then calculate the mail file name 'You may or may not need this as for MailDBname with some systems you 'can pass an empty string UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 
'Open the mail database in notes Maildb = Session.GETDATABASE("", MailDbName) 
If Maildb.IsOpen = True Then 
'Already open for mail Else 
Maildb.OPENMAIL()
End If 
'Set up the new mail document MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo" 
MailDoc.sendto = recipient
MailDoc.Subject = Subject

Body = New NotesRichTextItem() 
Call Body.AppendDocLink(MailDoc, "Please Click this Link to open the Document(") 
Call Body.AppendText(" CAR for action Please follow this document link for details. Please accept or reject as appropriate ") 
MailDoc.SAVEMESSAGEONSEND = saveit
'Set up the embedded object and attachment and attach it If attachment <> "" Then 
AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") 
EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment") 
End If 
'Send the document MailDoc.PostedDate = Now() 
'Gets the mail to appear in the sent items folder MailDoc.SEND(0, recipient)
'Clean Up 
Maildb = Nothing 
MailDoc = Nothing 
AttachME = Nothing 
Session = Nothing 
EmbedObj = Nothing 
End sub

Spijtig genoeg werkt het nog niet.
Zelfs als ik Body = New NotesRichTextItem() verander in Body = MailDoc.CREATERichTextItem("ProjectDescription") werkt het ook niet.

Ik heb wel niet de DLL van interop.domino. Kan dat misschien het probleem zijn?

Alvast bedankt.