Thanks again.
But still no luck on my side.
Must be my lotus notes version i am on 6.5.2
If i insert:
Activeworkbook.sendmail ArRecipients
before section:
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "NewMemo"
MailDoc.sendto = ArRecipients
MailDoc.Subject = UCase(Subject)
MailDoc.Body = UCase(BodyText)

this at least opens up two new mail messages ( as i have two pdfs) in notes but only attaches the current workbook (macro) in the email and not the pdf's.

Can you think of a way around this?

Thanks