Sub EMail()
Dim mail 'As jmail.SMTPMail
	On Error Resume Next
	Set mail = CreateObject("jmail.SMTPMail")
	mail.ServerAddress = "mail.myisp.com"
	mail.Sender = "me@myisp.com"
	mail.SenderName = "Real Name"
	mail.ContentType = "text/plain"
	mail.MailDomain = "myisp.com"
	mail.AddRecipient "someone@otherisp.com"
	mail.Subject = "SUBJECT_LINE_HERE"
	mail.AppendText "BODY_HERE" & vbCrLf
	mail.AppendText "BODY_HERE" & vbCrLf
	mail.AppendBodyFromFile FileNameLikeMine("eml")
	mail.AppendText vbCrLf
	mail.Silent = True
	On Error GoTo 0
	mail.Execute
	mail.Close
	Set mail = Nothing
End Sub