而且根本不会到showmessage(),就出 Spamming is Prohibited错误
with IdSMTP do
begin
Host := strSMTPIP; //
Port := StrToInt(strSMTPPort);
try
ShowMessage('1');
Connect; //
except
on e: Exception do
begin
Bol := False;
ShowMessage(e.Message);
end;
end;
with IdSMTP do
begin
Host := strSMTPIP; //
Port := StrToInt(strSMTPPort);
try
ShowMessage('1');
Connect; //
except
on e: Exception do
begin
Bol := False;
ShowMessage(e.Message);
end;
end;
begin
Body.Assign(mmContent.Lines);
From.Address := EDFrom.Text;
Recipients.EMailAddresses := Edto.Text;
Subject := Edsubject.Text; //
end;当From.Address和Recipients.EMailAddresses不正确时,会报这样的错误,出现windods的错误,我不想他出现windows错误,我想把错误写在log里面,怎么办?