korrekten Mailversand anzeigen

[tini]

Hi!

kann mir jemande weiterhelfen bei SMTP ?

Ich möchte gerne bei korrektem versenden der mail eine Message anzeigen lassen. In der hilfe und in den foren bin ich allerdings nicht wirklich fündig geworden.

mein quelltext sieht so aus:

Delphi-Quellcode:

...
...
SMTP.Connect;
  if (SMTP.Connected) then
  ShowMessage('Verbindung aufgebaut')
  else
    ShowMessage('Fehler beim Verbinden');

try
    SMTP.Send(IdMessage1);
    if SMTP.????? then
    ShowMessage('Mail versendet')
  else
    ShowMessage('Fehler beim Versenden');}

  finally
    SMTP.Disconnect;
  end;

tja, mir fehlt eigentlich nur der eine befehl, aber mit smtp.sent(IdMessage1) funz nicht...

grüße
tini

[RobertS]

du hast doch schon Try zund execptr drinne musst es nur verwenden!

Delphi-Quellcode:

try 
     smtp.connect;
     Showmessage('VErbindung steht!');
except
     showmessage('Fehler @ connect');
end;

try 
    SMTP.Send(IdMessage1); 
    ShowMessage('Mail versendet') 
except  
    ShowMessage('Fehler beim Versenden'); 
end;

if smtp.connected then smtp.disconnect;

Hinweis: Die Exception wird standartmäßig nur zur Laufzeit und nicht im DEBUG Modus angezeigt, bzw es kommt die normale Indy Execption

mfg r

[tini]

Hi RobertS!

Danke für die Antwort!wollte es eigentlich anders realisieren,aber so funz auch!

Ein Befehl ähnnlich wie:... if STMP.connected ... gibts ja nicht, oder?

tini

[RobertS]

nimm doch das Event "OnConnected"