> Public Sub OpenNotes( _ > ByVal txtTo As String, _ > ByVal txtSubject As String, _ > ByVal txtAttachmentName As String) > > Dim _ > Session As Object, _ > Database As Object, _ > Document As Object, _ > RichTextObject As Object > > Dim _ > User As String, _ > Server As String, _ > Mailfile As String > > 'Get a handle to a notes session > Session = CreateObject("Notes.NotesSession") > > User = Session.UserName > Server = Session.GetEnvironmentString("MailServer", True) > Mailfile = Session.GetEnvironmentString("MailFile", True) > Database = Session.GetDatabase(Server, Mailfile) > Document = Database.CreateDocument() > > With Document > > .Form = "Memo" > > .SendTo = txtTo > .Subject = txtSubject > > RichTextItem = .CreateRichTextObject("Body") > RichTextItem.EmbedObject(1454, "", txtAttachmentName) ' EMBED_ATTACHMENT = 1454 > > .Send(False) 'SEND(ByVal ATTACHFORM As Integer, [ByVal RECIPIENTS]) > > End With > Session = Nothing > Database = Nothing > Document = Nothing > > End Sub