just did - reckon i have implemented it wrongly....
Public Sub SendMailboxHTMLMessage(DisplayMsg As Boolean, WhoTo As String, WhoCC As String, Mailbox As String, TheSubject As String, TheBody, Optional AttachmentPath)
Dim objOutlook As Object 'Outlook.Application
Dim objOutlookMsg As Object '...