vba to send email and attachments via lotus 8.5

**Domski** · 10-29-2010, 11:01 AM

I'm off out soon so haven't time to specifically answer your questions (I also don't use Lotus any more so can't test anything) but the attached is a more simplified code for sending a workbook as an attachment via Lotus. In this case it's the active workbook but can be quite easily adapted to be any file you want.

To add more than one attachment you would just either repeat these lines with the specific attachment required assigned to stAttachment or create some kind of loop:

  Set noAttachment = noDocument.CreateRichTextItem("stAttachment")

  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)

Hope it helps,

Dom

**dan2010** · 10-30-2010, 11:02 AM

Originally Posted by Domski

To add more than one attachment you would just either repeat these lines with the specific attachment required assigned to stAttachment or create some kind of loop:

  Set noAttachment = noDocument.CreateRichTextItem("stAttachment")

  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)

do u mean this?
eg.

Set noAttachment = noDocument.CreateRichTextItem("c:\Users\Dan\newfolder\filename")

and for multiple attachments,

Set noAttachment = noDocument.CreateRichTextItem("c:\Users\Dan\newfolder\filename1")

  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", c:\Users\Dan\newfolder\filename1)

Set noAttachment = noDocument.CreateRichTextItem("c:\Users\Dan\newfolder\filename2")

  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", c:\Users\Dan\newfolder\filename2)

thanks