Set oMailClient = CreateObject("Notes.NotesSession") 'Notes Automation object
On Error GoTo 0
SendAttMail = CreateNotesMail(oMailClient, Pi_sEmail, Pi_sCC, Pi_sSubject, Pi_sBody, _
Pi_sClient)
oMailClient.Close
Set oMailClient = Nothing