TSendMail

[Michael II]

Ich glaube TSendMail verwendet die MAPI Schnittstelle.

Wenn dem so ist: Wenn du ein MAPI fähiges eMail Programm P installiert hast (und dort MAPI eingeschaltet ist), dann sendet TSendMail an P und dann wird deine eMail von P aus gesendet.

Im Help steht:
the e-mail is shown for editing (with the help of any e-mail application available on the computer).


Sende doch deine eMail direkt an den Mailserver via die entsprechende Indy oder ICSOverbyte (SyncSmtpCli oder SslSmtpClient) oder irgend eine andere eMail Komponente.

Mit ICSOverbyte (via Delphi "Tools > GetIt…" installierbar) SycSMTPCli zum Beispiel so:

Delphi-Quellcode:

  
  SyncSmtpCli1.AbortSync;

  SyncSmtpCli1.SignOn := 'swiss.ch';
  SyncSmtpCli1.FromName := '[e-mail]';
  SyncSmtpCli1.HdrFrom := '[e-mail]';
  SyncSmtpCli1.Host := 'mail.swiss.ch';
  SyncSmtpCli1.Password := mailpw;
  SyncSmtpCli1.UserName := mailID;
  SyncSmtpCli1.AuthType := smtpAuthLogin;

  SyncSmtpCli1.HdrTo := ….
  SyncSmtpCli1.RcptName.Clear;
  SyncSmtpCli1.RcptName.Add( SyncSmtpCli1.HdrTo );
  SyncSmtpCli1.HdrSubject := ….
  SyncSmtpCli1.MailMessage.Text := …. 

  SyncSmtpCli1.ConnectSync;
  SyncSmtpCli1.EhloSync;
  SyncSmtpCli1.AuthSync;
  SyncSmtpCli1.MailSync;
  SyncSmtpCli1.QuitSync;

Wobei die obigen Methoden TRUE zurückgeben, wenn OK. D.h. du solltest die Rückgabewerte von ConnectSync bis QuitSync noch sinnvoll auswerten...