Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ActiveX Email - Anything Out There?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00121787
Message ID:
00122208
Vues:
18
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.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform