funkmonsteruk
IS-IT--Management
I have an automated BO report, can i get BO to automaticallty e-mail to some of my collegues using lotus notes?
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function NotesMailSend(strModtager As String, strSubj As String, strBody As String)
On Error GoTo Err_NotesMailSend
Dim objNotes As Object
Dim objNotesDB As Object
Dim objNotesMailDoc As Object
Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.getdatabase("", "")
Call objNotesDB.openmail
Set objNotesMailDoc = objNotesDB.CreateDocument
Call objNotesMailDoc.replaceitemvalue("SendTo", strModtager)
Call objNotesMailDoc.replaceitemvalue("Subject", strSubj)
Call objNotesMailDoc.replaceitemvalue("Body", strBody)
Call objNotesMailDoc.Send(False)
Set objNotes = Nothing
Exit_NotesMailSend:
Exit Function
Err_NotesMailSend:
Resume Exit_NotesMailSend
End Function