using visual basic to launch Lotus Notes Email

I am writing a program in visual basic 6. I want the vb program to launch Lotus Notes Send mail screen and pass the To, CC, Subject, Bodytext and most importantly, the ATTACHMENT (which located at the harddisk) to the Lotus Notes. So that all the user needs to do is to click the SEND button. I have the following code for your reference, it works EXCEPT that I failed to attach the attachment to the email. Any idea to attach the attachment?

Please supply your sample code if you have written the same workable code before.

Thanks a million. You guys are great!


        Dim MySubject As String
        Dim MyBodyText As String
        Dim MyReceiver As String
        Dim MyAttachment as String
        MyReceiver = rs8.Fields("Email")
        MySubject = "Report arrived"
        MyAttachment = "C:\report.pdf"           <<<<<<<<<<<<<<<<<<
        MyBodyText = "Dear Sir, Report arrived. Thanks and Regards"
        Call SendNotesMail(MySubject, MyAttachment, MyBodyText, MyReceiver)
----------------------------------------------------------------------------------
Public Sub SendNotesMail(Subject As String, Attachment As String, BodyText As String, SendTo As String, Optional CC As String = "", Optional BCC As String = "", Optional SaveIt As Boolean = False)
    '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 intAttach As Integer
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    Dim Server As String
   
    On Error GoTo LotusNotesFail
   
    'Start a session to notes
    Set Session = CreateObject("Notes.NotesSession")
    Server = Session.GetEnvironmentString("MailServer", True)
    MailDbName = Session.GetEnvironmentString("MailFile", True)
    UserName = Session.UserName
   
    'Open the mail database in notes
    Set Maildb = Session.GetDatabase(Server, MailDbName)

    'Set up the new mail document
    Set MailDoc = Maildb.CreateDocument

    With MailDoc
        .Form = "Memo"
        .SendTo = SendTo
        .EnterCopyTo = CC
        .EnterBlindCopyTo = BCC
        .Subject = Subject
        .SaveMessageOnSend = SaveIt

        'Set up the embedded object and attachment and attach it
        Dim aryAttachment() As String

        aryAttachment = Split(Attachment, "|")               <<<<<<<<<<< start look at here
        Dim ric As Object
        Set ric = .CreateRichTextItem("Body")
        ric.AppendText BodyText & Chr$(13)
        For intAttach = LBound(aryAttachment) To UBound(aryAttachment)
          Set EmbedObj = ric.EmbedObject(1454, "", aryAttachment(intAttach), "Attach")
        Next intAttach
        .Save False, False

        'Send the document
        '.PostedDate = Now() 'Gets the mail to appear in the sent items folder
        '.Send False
    End With
   
    DoEvents
    Dim ws As Object
    Set ws = CreateObject("notes.notesuiworkspace")
    DoEvents
    ws.OpenDatabase Server, MailDbName
    ws.EDITDOCUMENT True, MailDoc
   
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set ric = Nothing
    Set ws = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
   
    Exit Sub
 
LotusNotesFail:
    MsgBox ("Cannot open new memo in Lotus Notes. Please make sure you have Lotus Notes running in your computer.")

End Sub