发邮件不需要用到POP3协议,Smtp指令:
hello <domain>
Mail From :<recevse-path>发送者
Rcpt To:<forward-path>接收者
Data 发邮件数据
Reset
Noop
Turn 角色切换
Quit
Vrfy <string>验证用户名
Expn <string>展开邮件表目
help <string>
初始化:
mail send soml,saml
发邮件小例子:
procedure TForm1.FormCreate(Sender: TObject);
begin
{连接到Smtp服务器}
SMTP1.Connect('210.79.245.3', '25');
end;
procedure TForm1.Button1Click(Sender: TOjbect);
begin
{发送邮件}
with SMTP1do
begin
do
cInput.Headers.Clear;
do
cInput.Headers.Add('To', ToAddress);//name@PoP3服务器地址
do
cInput.Headers.Add('From', FromAddress);
do
cInput.Headers.Add('Subject',Subject);
do
cInput.Headers.Add('Content-Type', 'TEXT/PLAIN charset=US-ASCII');}
SendDoc('smtp://210.79.245.3:25',DocInput.Headers,Memo1.text,'','');
end;
end;