Guten Tag Delphianer,
mit nachfolgender Procedure kann ich einmal eine Mail versenden. Ein erneutes Aufrufen der Procedure erzeugt eine Fehlermeldung (Fehler bei der Verbindung).
wenn ich den try except-Block auskommentiere wird nur ein Fehlerbildschirm ohne Angabe des Fehlers angezeigt.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMSFmDruckeUndExport.MailmitIndy;
var
 pBody: TStringList;
 pAttachment: TIdAttachmentFile;
begin
  pBody := TStringList.Create;
  pBody.Clear;
  pBody.Add('Hallo');
 
  idsmtp1.Host := 'XXXXXX.XXXXXXX.de';
  idsmtp1.Username := 'XXX@XXXXXXXX.de';
  idsmtp1.Password := 'XXXXXXXX';
  idsmtp1.Port := 25;

  idmsg1.Clear;
  idmsg1.ClearBody;
  idmsg1.ClearHeader;
  idmsg1.From.Text := 'bps@bps-nienburg.de';
  idmsg1.Sender.Text := 'ich bins';
  idmsg1.Recipients.EMailAddresses := 'verkauf@bps-nienburg.de';
  idmsg1.Subject := 'testmail';
  idmsg1.Body := pBody;
  pAttachment := TIdAttachmentFile.Create(idmsg1.MessageParts,
                                                         'd:\erntetag2012.jpg');
 
  try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
   pBody.Free;
   pAttachment.Free;
  except
   ShowMessage('Fehler bei der Verbindung!');
   pBody.Free;
   pAttachment.Free;
  end;
end;

Wo kann nur der Fehler liegen?
Vielen Dank im voraus für die Hilfe.
HPB

Das pBody.Clear; brauchst gar nicht aufrufen, da du ja die Liste direkt davor erzeugst. Und neu erzeugte Listen sind von Haus aus leer.

Du solltest auch den Fehler selbst abfangen und dir ausgeben lassen. Würdest du das tun, würdest du sehen, warum es wohl kein zweites Mal klappt.

markieren

Delphi-Quellcode:

try
  // ...
except on Ex : Exception do
  ShowMessage(Ex.Message);
end;

Es hat wohl keiner Lust uns den Inhalt der Fehlermeldung zu nennen?

Aber was ist das bitte für eine Speicherschutzbehandulng, mit dem Try Except?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMSFmDruckeUndExport.MailmitIndy;
var
 pBody: TStringList;
 pAttachment: TIdAttachmentFile;
begin
  pBody := TStringList.Create;
  try
    //pBody.Clear; ist noch leer
    pBody.Add('Hallo');
 
    idsmtp1.Host := 'XXXXXX.XXXXXXX.de';
    idsmtp1.Username := 'XXX@XXXXXXXX.de';
    idsmtp1.Password := 'XXXXXXXX';
    idsmtp1.Port := 25;

    idmsg1.Clear;
    idmsg1.ClearBody;
    idmsg1.ClearHeader;
    idmsg1.From.Text := 'bps@bps-nienburg.de';
    idmsg1.Sender.Text := 'ich bins';
    idmsg1.Recipients.EMailAddresses := 'verkauf@bps-nienburg.de';
    idmsg1.Subject := 'testmail';
    idmsg1.Body := pBody;
    pAttachment := TIdAttachmentFile.Create(idmsg1.MessageParts, 'd:\erntetag2012.jpg');
    try
      idsmtp1.Connect;
      idsmtp1.Send(idmsg1);
      idsmtp1.Disconnect();
    finally
      pAttachment.Free;
    end;
  finally
    pBody.Free;
  end;
end;

Und eventuell um Alles noch ein Try-Except drumrum.

zusammenfalten · markieren

Delphi-Quellcode:

try

  ...

except
  on E: Exception do begin
    //ShowMessage(E.Message);
    E := 'Fehler beim Versenden der Mail.' + sLineBreak + sLineBreak + E.Message;
    raise;
  end;
end;

PS: Was mag wohl passieren, wenn es zwischen dem Try und Except, bei einem der Free knallt?

Hallo,

mache mal aus

zusammenfalten · markieren

Delphi-Quellcode:

try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
   pBody.Free;
   pAttachment.Free;
  except
   ShowMessage('Fehler bei der Verbindung!');
   pBody.Free;
   pAttachment.Free;
  end;
end;

dieses hier:

zusammenfalten · markieren

Delphi-Quellcode:

try
 try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
  except
    on E:Exception do
    ShowMessage('Fehler bei der Verbindung! ' +E.Message);
  end;
finally
   pBody.Free;
   pAttachment.Free;
end;

Hilfe eventuell beim Fehlerfinden.

Grüße
Klaus

Ähhhm, ich bin mir grade nicht sicher, ob indy nicht die Freigabe des Attachments übernimmt.
Laß mal probehalber das pAttachment.Free weg, bzw. entferne gleich die ganze pAttachment-Variable (wenn Ersteres was half).

Vielen Dank für die Antworten.
Ich habe nun den Fehler im try except-Block, wie vorgeschlagen, abgefangen. Aber es wird keine Fehlercode oder sonst etwas ausgegeben. Siehe hierzu auch den Screenshot-Anhang. Kann es sein dass ich den Port in der Firewall freigeben muß? Aber nein, sonst hätte ich ja nicht das Erstemal senden können!?

zusammenfalten · markieren

Delphi-Quellcode:

try
     idsmtp1.Connect;
     idsmtp1.Send(idmsg1);
     idsmtp1.Disconnect();
except

     on E : Exception do
     begin
      ShowMessage('Fehler beim Versenden der Mail!' + sLineBreak + sLineBreak +
       E.Message);
      raise;
    end;
end;

Kann ich sonst noch etwas tun?
Mit Gruß
HPB

Hallo,

vielleicht solltest Du das Verbinden mit dem MailServer und dem Verschicken der Mails trennen.

In etwa so:
- zum Mailserver verbinden
- alle Mails verschicken
- Verbindung zum Mailserver trennen.

Du machst es zur Zeit so:
- zum Mailserver verbinden
- eine Mail verschicken
- Verbindung zum Mailserver trennen.

- zum Mailserver verbinden
- eine Mail verschicken
- Verbindung zum Mailserver trennen.

- zum Mailserver verbinden
- eine Mail verschicken
- Verbindung zum Mailserver trennen.


Vielleicht mag der Server es nicht innerhalb von kurzer Zeit vom gleichen User kontaktiert zu werden?

Grüße
Klaus

Zitat von Klaus01:

Hallo,

vielleicht solltest Du das Verbinden mit dem MailServer und dem Verschicken der Mails trennen.

Grüße
Klaus

Ja Klaus, da scheint was dran zu sein.
Ich habe nun den Fehler näher eingegrenzt. Siehe hierzu den Anhang (EIdSMTPReplayErrorFehler).

Ich habe die Verbindung zum Server in das FormCreate-Ereignis gelegt. Die Verbindung schliessen im FormDeactivate-Ereignis. Allem zu Trotz die Fehlermeldung bleibt die Selbe.
Mit Gruß
HPB

.. dann bohre mal Dein Exception handling auf:

zusammenfalten · markieren

Delphi-Quellcode:

 
 on e: EIdSMTPReplyError do
   begin
    if e.EnhancedCode.Available then
       begin
         ShowMessage(e.Message + #13#10 + '--' + #13#10 + e.EnhancedCode.ReplyAsStr);
       end
    else
      begin
        showMessage(e.Message);
      end;
   end;
 on e: Exception do
   begin
     showMessage(e.Message);
   end;

code von hier

Grüße
Klaus

Irgendetwas scheint da nicht zu stimmen:

markieren

Delphi-Quellcode:

ShowMessage('Fehler beim Versenden der Mail!' + sLineBreak + sLineBreak +
       E.Message);

was kommt:
"Fehler bei der Verbindung"

Zitat:

Allem zu Trotz die Fehlermeldung bleibt die Selbe.

"EIdSMTPReplayErrorFehler"

Das legt für mich den Schluß nahe, das der Fehler ganz irgendwo anders auftritt.
Gruß
K-H