Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ActiveX Email - Anything Out There?
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00121787
Message ID:
00122208
Views:
17
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.
Previous
Reply
Map
View

Click here to load this message in the networking platform