|
|
|
| SendMail component.
|
| property OnHostUnrachable: TNotifyEvent;
|
| The OnHostUnreachable event occurs if the SendMail can not establish connection to SMTP server, specified in SMTPHost property. Possible reasons of this problem is:
|
| 1. | User currently not connected to the Internet;
|
| 2. | Hostname is unknown (check spelling of domain name in SMTPHost property);
|
| 3. | Invalid SMTP port specified (check the number of SMTP port in SMTPPort property);
|
| 4. | Remote server is down (disconnected from Internet).
|
| procedure TForm1.SendMail1HostUnreachable(Sender: TObject);
|
| begin
|
| Application.MessageBox(PChar('Specified SMTP server is unreachable.'#13#10#10'Please check your Internet connection'#13#10'or specify another SMTP host or/and port.'),
|
| PChar(Application.Title),
|
| MB_OK or MB_ICONSTOP);
|
| end;
|
|
|
| void __fastcall TForm1::SendMail1HostUnreachable(TObject *Sender)
|
| {
|
| AnsiString Msg =
|
| "Specified SMTP server is unreachable.\n\n"
|
| "Please check your Internet connection\n"
|
| "or specify another SMTP host or/and port.";
|
| Application->MessageBox(Msg.c_str(),
|
| Application->Title.c_str(),
|
| MB_OK | MB_ICONSTOP);
|
| }
|
| SMTPHost and SMTPPort properties;
|
| OnAnyError event.
|