• Home
 · 
• Internet/HTML
 · 
• Generate Lotus Notes E-mail w/ embedded attachment using Visual Basic

Generate Lotus Notes E-mail w/ embedded attachment using Visual Basic

Generate Lotus Notes E-mail w/ embedded attachment using Visual Basic

API Declarations


' Declare local variables

Dim l_db As Database
Dim l_SendTo As String
Dim l_Subject As String
Dim l_Body As String

' Declare Notes COM variables

Dim n_session As New NotesSession
Dim n_dir As NotesDbDirectory
Dim n_db As NotesDatabase
Dim n_doc As NotesDocument
Dim n_object As NotesEmbeddedObject
Dim n_rtitem As NotesRichTextItem



Rate Generate Lotus Notes E-mail w/ embedded attachment using Visual Basic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Works well and is very easy to manipulate!

Function SendNotesMail(p_SendTo As String, _ 
                       p_Subject As String, _
                       p_Body As String, _
                       p_Path As String, _
                       p_NotesPassword As String)
    '==========================================================
    ' Set database
    '==========================================================
    Set l_db = CurrentDb
    
    '==========================================================
    ' Create and initialize Lotus Notes Session
    '==========================================================
    Call n_session.Initialize(p_NotesPassword)
    
    '==========================================================
    ' Set Notes Session
    '==========================================================
    Set n_dir = n_session.GetDbDirectory("")
        
    '==========================================================
    ' Open Mail Database
    '==========================================================
    Set n_db = n_dir.OpenMailDatabase
        
    '==========================================================
    ' Create Mail Document
    '==========================================================
    Set n_doc = n_db.CreateDocument
        
    '==========================================================
    ' Create Form value
    '==========================================================
    Call n_doc.AppendItemValue("Form", "Memo")
    
    '==========================================================
    ' Create SendTo value - person receiving e-mail
    '==========================================================
    Call n_doc.AppendItemValue("SendTo", p_SendTo)
    
    '==========================================================
    ' Create Subject value
    '==========================================================
    Call n_doc.AppendItemValue("Subject", p_Subject)
        
    '==========================================================
    ' Create Body value
    '==========================================================
    Set n_rtitem = n_doc.CreateRichTextItem("Body")
    Call n_doc.AppendItemValue("Body", p_Body)
       
    '==========================================================
    ' Embed Attachment to Body 
    '==========================================================
    Set n_object = n_rtitem.EmbedObject(EMBED_ATTACHMENT, "", p_Path)
        
    '==========================================================
    ' Send Email document
    '==========================================================
    Call n_doc.Send(False)
    
    '==========================================================
    ' Give user message
    '==========================================================
    MsgBox "The e-mail has been sent to " & p_SendTo & ".", vbOKOnly
    
    '==========================================================
    ' Clean up objects
    '==========================================================
    Set l_db = Nothing
    Set n_db = Nothing
    
End Function