please help! html -> email mit attachment?

[Dr. Mabuse]

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