Hi I am using mabry controls to send email. It is fantastic and easy to use. You can use SMTP and POP3. have a look at the code below.
Mailer is the name of the mabry Activex Mail Control.
*** To Send Mail
With thisform.mailer
.blocking = .t.
.newMessage()
.To="
fredb@cyberlogic.com.au"
.host = "mail.cyberlogic.net.au" && Mail Server SMTP
.From = "Fred Besterwitch :
Fredb@ie.net.au"
.EmailAddress = "
Fredb@ie.net.au"
.subject = "Test Email"
.Body(0) = "Email Test"
.Action = 3
.flags = 64
.Action = 15
.Action = 8
Endwith
** To Receive Mail
With thisform.mailer
.blocking = .t.
.host = "mail.ie.net.au"
.logonName = "username" && Mail Logon Name
.LogonPassword = "password" && Mail Password
.connecttype = 1
.Action=3
.flags = 4
for x=1 to .PopMessageCount
.messageid = x
.action = 13
.flags = 4
insert into email (messageid,from,to,message,date,subject);
Values(1,.from,.to,.body(0),datetime(),.subject)
Endfor
.Action = 8
Endwith
Hey want to SPAM your enemies use your sales history file with a million records
to send him email
Regards Fred.
Fred Besterwitch, MCP
The harder you work. The luckier you get.