Lissa:
This is the code I have been using for SMTP for awhile and it works great and is simple.
Public Function SendEMail_CDO(strBody, strSubject) 'strFrom, strTo, strCC, strSubject, strBody, strAttachment
Dim mail
Dim config
Dim fields
Dim strTo As String
strTo =...