Never mind.. I figured it out.. with a lot of help from Google of course....
Not sure it will work off any computer... but here goes
Private Sub SubmitEmail()Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
oSmtp.FromAddr = myemailstring
oSmtp.AddRecipientEx "recipientemailatthisaddydotcom", 0
oSmtp.Subject = "My Module"
oSmtp.BodyText = mymsgstring
' Set SMTP server address to "", Do not set user authentication or SSL connection
oSmtp.ServerAddr = ""
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
Oh yes and I downloaded EASendMailObj ActiveX Object 1.0 Type Library