vba to send email and attachments via lotus 8.5

To answer your questions:

1. No change should be necessary because Session.UserName should be your user name. Verify this by stepping through the code in the debugger.

2 and 3. In your posted code the Attachment variable is a string containing the full path and filename of an attachment, so this is the part you need to change. You'll also need to specify a unique rich text item name for each attached file. For example:

        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "C:\file.jpg", "Attachment")

        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "C:\file.pdf", "Attachment")