Sub Send_Email_via_Lotus_Notes_Attachment(receiver As String, subject As String, bodyletter As String, stAttachment As String)
Dim obAttachment As Object, EmbedObject As Object
Const EMBED_ATTACHMENT As Long = 1454
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1...