SendEmail Free Tool

[Usama El-Mokade]

http://www.4shared.com/file/199140856/ed929f06/SendEmail20.html

SendEmail SendEmail tool and 20 examples (C++ - C# - VB6 - VB.Net - Delphi - MSSQL - MSAccess - ASP - HTML - PHP - VBS)

1. Prosperities:
   • From: (Optional) Set sender email, string
   • FromName: (Optional) Set sender display name, string
   • To: Set send-to email, string
   • ToName: (Optional) Not used, ignore it, string
   • Reply: (Optional) Set reply email will send to this, string
   • Subject: (Optional) Set email subject, string
   • Body: (Optional) Set HTML body, string
   • PlainBody: (Optional) Set plain text body for clients dosn't support html body, string
   • TypeHTML: (Optional) Set True or False, the HTML body type, default=true, bool
   • Priority: Set email priority, 0:Low, 1:Normal, 2:High, default=1, short
   • CharSet: (Optional) Set CharSet of the page, default=windows-1252, string
   • RTL: (Optional) Set RightToLeft Direction, default=false, bool
   • FailTries: (Optional) Set how many times try if fail to send, default=2, short
   • Result: Check it after send email, string
   • hWndTextMessage: (Optional) Set hWnd handle for progress bar, default=0, long
   • hWndProgressBar: (Optional) Set hWnd handle for Text, default=0, long
   • DNSServer: (Optional) Set DNS Server, string
   • SMTPServer: (Optional) Use specific SMTP Server, string
   • SMTPSVRPort: (Optional) Set port for SMTP Server, default=25 'if SSL=false' and default=465 'if SSL=true'), short
   • HelperString: (Optional) Just for developer internally usage, string
   • SMTPUsername: (Optional) Set authenticate SMTP Username 'must SMTPServer specified', string
   • SMTPPassword: (Optional) Set authenticate SMTP Password 'must SMTPServer specified', string
   • SMTPSSL: (Optional) Use 'Secure Socket Layer 3' SMTP Connection 'must SMTPServer specified', default=false, bool
2. Methods:
   • Clear(): Clear all settings, prepare for new email
   • AttachFile(Filename): (Optional) Attach file, string
   • Send(): Send email, and wait until send finish, return 0 if fail
   • Execute(): Send email, like Send method, but don't wait for send, just begin thread and return

From Project ment select References:

Dim SendEM As Object
    Set SendEM = CreateObject("SendMail.Sender")

    SendEM.Clear

    SendEM.FromName = "VB Test"
    SendEM.To = "[e-mail]"
    SendEM.Subject = "VB Test Message" 
    SendEM.Body = ""
    SendEM.CharSet = "windows-1256"
    SendEM.RTL = True

    SendEM.SMTPServer = "smtp.gmail.com"
    SendEM.SMTPSVRPort = 465
    SendEM.SMTPSSL = True
    SendEM.SMTPUsername = "gm_user"
    SendEM.SMTPPassword = "gm_pass"

    SendEM.Send
    MsgBox SendEM.Result

    Set SendEM = Nothing

Notes:
Sender ID Framework SPF Record Wizard
The tool can send emails directly without intermediate SMTP Server, to do that: don't use authenticate SMTP Server, but free email servers (hotmail, yahoo, ...etc ) may category emails from Dynamic IPs as spam or junk ... so, recommended using authenticated SMTP Server.

http://www.4shared.com/file/199140856/ed929f06/SendEmail20.html