Erfinde das Rad nicht neu, verwende das
OstroSoft SMTP control (Freeware)
Methods:
SMTP.Connect()
does it all: connects to server, sends message, closes connection
Events:
SMTP_ConnectSMTP()
occurs on connection to server
SMTP_SendSMTP()
occurs on successful e-mail send
SMTP_CloseSMTP()
occurs on closing the connection to server
SMTP_ErrorSMTP(ByVal Number As Long, Description As String)
occurs on error
Properties:
SMTP.Status
Returns status of control
SMTP.MailFrom
Returns/Sets sender e-mail address
SMTP.MessageSubject
Returns/Sets subject of message
SMTP.MessageText
Returns/Sets text of message
SMTP.MessageHTML
Returns/Sets HTML part of message (optional)
SMTP.SendTo
Returns/Sets recipient e-mail address
SMTP.CC
Returns/Sets CC e-mail address
SMTP.BCC
Returns/Sets BCC e-mail address
SMTP.MailDate
Returns/Sets message date (default - system date in format: "12 Feb 2000 23:01:17")
SMTP.Charset
Returns/Sets message charset (default - "us-ascii")
SMTP.Server
Returns/Sets SMTP server name or IP address
You can specify multiple recipients in SendTo, CC and BCC fields, using comma-separated list:
<addr2@yourhost.com>,
addr1@yourhost.com,"recipient name" <addr3@yourhost.com>
Collections:
SMTP.Attachements - Collection of binary attachements
Supports following methods:
SMTP.Attachements.Add sFilePath, [sFileID]
adds new attachement, where sFilePath is a full path to file, [sFileID] - optional attachement ID
SMTP.Attachements.Remove SMTP.Attachements(sFileID)
removes specified attachement, where sFileID - attachement ID or Index
SMTP.Attachements.Count
returns attachement count
SMTP.Attachements(sFileID)
returns a full path to specified attachement, where sFileID - attachement ID or Index