Send email message via lotus notes with 2 attachments from Access

[Mike D]

OS: Windows XP Professional
Access 2003
Lotus Notes 7

I am trying to send a email message from Access that will have 2 attachments that are excel versions of 2 separate queries.

I can send 1 attachment using the "sendObject" macro but it is not flexible enough to accept 2 attachments.

The twist on all of this is i need to use Notes as my email client as that is what my department uses.

Any hints or tips on where to start would be greatly appreciated.

Mike

[MMcCarthy]

Hi Mike,

Try this code ...

Public Sub SendNotesMail()
Dim notesDb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim notesDbName As String 'THe current users notes mail database name
Dim notesDoc As Object 'The mail document itself
Dim notesRtf As Object 'The attachment richtextfile object
Dim notesSession As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim attach1 As String
Dim attach2 As String
 
    'Start a session to notes
    Set notesSession = CreateObject("Notes.NotesSession")
 
    'Get the sessions username and then calculate the mail file name
    'You may or may not need this as for notesDBname with some systems you
    'can pass an empty string
    UserName = Session.UserName
    notesDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Open the mail database in notes
    Set notesDb = Session.GETDATABASE("", notesDbName)
 
    If notesDb.IsOpen = False Then
         notesDb.OPENMAIL
    End If
 
    'Set up the new mail document
    Set notesDoc = Maildb.CREATEDOCUMENT
    notesDoc.Form = "Memo"
    notesDoc.sendto = "[e-mail]"
    notesDoc.Subject = "Title goes here"
    notesDoc.Body = "User Text............"
    notesDoc.SAVEMESSAGEONSEND = False
 
    'Set up the embedded object and attachment and attach it
    attach1 = "C:\excelfile1.xls"
    Set notesRtf = notesDoc.CREATERICHTEXTITEM("Attachment")
    Set EmbedObj = notesRtf.EMBEDOBJECT(1454, "", attach1, "Attachment")
    MailDoc.CREATERICHTEXTITEM ("Attachment")
 
    attach2 = "C:\excelfile2.xls"
    Set notesRtf = notesDoc.CREATERICHTEXTITEM("Attachment")
    Set EmbedObj = notesRtf.EMBEDOBJECT(1454, "", attach2, "Attachment")
    MailDoc.CREATERICHTEXTITEM ("Attachment")
 
    'Send the document
    notesDoc.SEND 0, Recipient
 
    'Clean Up
    Set notesDb = Nothing
    Set notesDoc = Nothing
    Set notesRtf = Nothing
    Set notesSession = Nothing
    Set EmbedObj = Nothing
 
End Sub
 

[Mike D]

Thanks for the reply, i get an error on line 29

Runtime error 424
Object required

....help????


thanks

Mike

[MMcCarthy]

Sorry Mike, my fault.

Change the line to ...

Set notesDoc = notesDb.CREATEDOCUMENT