我用了delphi6中的nmsmtp和delphi7中的idsmtp,如果我的发送方和接受方是一个地址, 就可以发送邮件成功,但是如果不是一个地址,总是不成功. 是这样写的.
D7中
with IdSMTP1 do
begin
if Connected then Disconnect;
Host := '263.net.cn';
Port := 25;
Username := 'huanglei';
Connect();
ShowMessage('ok');
//这样可以成功
QuickSend('263.net.cn','练习','[email protected]','[email protected]','成功了');
//不能成功
quicksend('263.net.nc','sdfa','[email protected]','[email protected]'); showmessage('success');
Disconnect;
end;
D6中
with NMSMTP do
begin
if connected then Disconnect;
Host := '263.net.cn';
Port := 25;
UserID := 'huanglei';
try
Connect;
showmessage('连接成功');
except
exit;
end;
//不可以成功
PostMessage.FromAddress := '[email protected]';
//可以成功
posmessage.fromaddress = '[email protected]';
PostMessage.FromName := '湖北永安桥梁检测';
PostMessage.Subject := '吊索信息数据';
PostMessage.Body.Add('如果可以看到,就是成功!'); PostMessage.ToAddress.Text := '[email protected]'; try
SendMail;
showmessage('ok');
finally
Disconnect;
end;
end;帮忙啊,急
D7中
with IdSMTP1 do
begin
if Connected then Disconnect;
Host := '263.net.cn';
Port := 25;
Username := 'huanglei';
Connect();
ShowMessage('ok');
//这样可以成功
QuickSend('263.net.cn','练习','[email protected]','[email protected]','成功了');
//不能成功
quicksend('263.net.nc','sdfa','[email protected]','[email protected]'); showmessage('success');
Disconnect;
end;
D6中
with NMSMTP do
begin
if connected then Disconnect;
Host := '263.net.cn';
Port := 25;
UserID := 'huanglei';
try
Connect;
showmessage('连接成功');
except
exit;
end;
//不可以成功
PostMessage.FromAddress := '[email protected]';
//可以成功
posmessage.fromaddress = '[email protected]';
PostMessage.FromName := '湖北永安桥梁检测';
PostMessage.Subject := '吊索信息数据';
PostMessage.Body.Add('如果可以看到,就是成功!'); PostMessage.ToAddress.Text := '[email protected]'; try
SendMail;
showmessage('ok');
finally
Disconnect;
end;
end;帮忙啊,急
你改TOADDRESS绝对不会出问题!