Sorry dude,
It won't let me attach it for some reason so I'll give you the code.
Mailer1 module
Public Function SendNotesMail(subject As String, Attachment As String, BodyText As String, SaveIt As Boolean, RtnRec As String)
Dim y As Integer, z As String
Dim X
Dim recip(50) As Variant
Dim...