Email with Attachment - Freeware JMail

Slighthaze = [color blue]NULL[/color]
[img http://www.sweetpotatosoftware.com/ttimages/email.gif]
[color green]***Requires FREEWARE w3 JMail Free, v 4.3
***Download at http://www.dimac.net/
***If the above link ever gets broken email me at craig@sweetpotatosoftware.com[/color]

PUBLIC oSMTPMail
oSMTPMail = NEWOBJECT("jmail.SMTPMail")
[color green]***If you aren't sure leave this commented out
***let the object figure it out for you if possible
***oSMTPMail .ServerAddress = "mail.mchsi.com"[/color]
oSMTPMail.AddRecipient ("craig1442@mchsi.com")
oSMTPMail.Sender = "Slighthaze@somewhere.com"
oSMTPMail.SenderName = "SlightHaze"
oSMTPMail.Subject = "Sending AutoExec as Attachment..."
oSMTPMail.Body = "Hello World! Here is my AutoExec.bat file."
oSMTPMail.AddAttachMent ("C:\AutoExec.bat")
oSMTPMail.Execute()
RELEASE oSMTPMail

***In order to receive/download email messages you would
***need the professional version of JMail which is NOT freeware
***I am not advocating it, just wanted to provide an example of
***downloading messages and their attachments with JMail
***(Thanks to ShyFox for asking about it)

LOCAL oPop3, oMessages, nMsgCount, nCounter
LOCAL oMsg, oAttaches, nAttachCount, nCounter2, oAtt

oPop3=CREATEOBJECT("jmail.pop3")
oPop3.connect("username","password","mail.somehost.com")
oPop3.DownloadMessages()
oMessages=oPop3.Messages
nMsgCount=oMessages.count()
FOR nCounter = 1 TO nMsgCount
oMsg = oMessages.Item(nCounter)
?oMsg.Date
?From
?FromName
?Priority
?Subject
?Body
oAttaches = oMsg.Attachments
nAttachCount = oAttaches.count()
FOR nCounter2 = 1 TO nAttachCount
oAtt = oAttaches.Item(nCounter2)
? oAtt.ContentType
? oAtt.Size
=STRTOFILE(oAtt.Data,oAtt.Name)
ENDFOR
ENDFOR