SMTP (Emails senden) mit Delphi7

[_master_]

kannst mit winsock machen oder clientsocket
du musst nur senden:

helo serv
mail from: <[e-mail]>
rctp to: <[e-mail]
data
{ btw. von hier }
From: [e-mail]
To: [e-mail]
Subject: Hallo
Content-Type: text/plain; charset:us-ascii
{ bis hier, ist ein string, nur mit #13#10 abteilen }
Text { der text zum senden }
.
QUIT


aber nach jedem befehl musst du #13#10 senden zb.
SendText('QUIT'#13#10);