Sub SendMail(target As String, attachment As String) Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim ritme As NotesRichTextItem Set db = session.CurrentDatabase Set doc = New NotesDocument(db) doc.Form = "Memo" doc.SendTo = target doc.Subject = "Here's the document you wanted" Call doc.Send(False) End Sub