Indy: Nachricht ablegen in IMAP Verzeichnis

[Ulf346C]

Hallo Forum,

ich ahbe gerade Email Versand eingebaut, das funktioniert auch alles prima.

Nun möchte ich daß die Mail auch in den "Gesendet" Ordner kopieren. An der Stelle bekomme ich aber immer eine Zugriffsverletzung

Code:

      try
        if idImap42.Connect() then begin
          // IdIMAP42.ListSubscribedMailBoxes(memo1.lines);
          IdIMAP42.ListMailBoxes(memo1.lines);
          if not IdIMAP42.SelectMailbox('Sent') then showMessage('unbekannte Box');
          IdIMAP42.AppendMsg('Sent',idmessage1,[]);
          idImap42.disconnect();
        end;
      except
        showMessage('Fehler bei IMAP Kopie');
      end;

Die Mail wird erfolgreich versendet und kommt auch an. Connect() funktioniert, selectMailbox auch.
Bei AppendMsg kommt die Zugriffsverletzung.
Könnte an meiner message irgend etwas falsch sein ? Ich habe schon etliche Varianten versucht.

[Delphi.Narium]

Wie wäre es mit 'ner passenden Fehlermeldung?

Delphi-Quellcode:

try
  if idImap42.Connect() then begin
    // IdIMAP42.ListSubscribedMailBoxes(memo1.lines);
    IdIMAP42.ListMailBoxes(memo1.lines);
    if not IdIMAP42.SelectMailbox('Sent') then showMessage('unbekannte Box');
    IdIMAP42.AppendMsg('Sent',idmessage1,[]);
    idImap42.disconnect();
  end;
except
  on e : Exception do begin
    MessageDlg(e.Message,mtError,[mbOk],0);
  end;
end;

Und wo kommt idMessage1 her?
Ist da was drin?

Delphi-Quellcode:

if not Assigned(idmessage1) then begin
  MessageDlg('Mail ist leer?',mtError,[mbOk],0);
end else 
try
  if idImap42.Connect() then begin
    // IdIMAP42.ListSubscribedMailBoxes(memo1.lines);
    IdIMAP42.ListMailBoxes(memo1.lines);
    if not IdIMAP42.SelectMailbox('Sent') then showMessage('unbekannte Box');
    IdIMAP42.AppendMsg('Sent',idmessage1,[]);
    idImap42.disconnect();
  end;
except
  on e : Exception do begin
    // Sollte bei erfolgreicher Verbindung und anschließendem Fehler
    // vielleicht trotzdem ausgeführt werden?
    idImap42.disconnect(); 
    showMessage(e.Message);
  end;
end;

[Ulf346C]

Danke erstmal !

idmessage1 ist die Nachricht, die ich (vorher) erfolgreich versendet habe

Mit exception bin ich nicht weiter gekommen, es gibt trotzdem einen Ausnahmefehler
Es scheint als ob allein der Aufruf von AppendMsg schon zum Absturz führt

[Delphi.Narium]

Aber Du bekommst doch in e.Message eine Fehlermeldung.

Wie bitte heißt die denn?

Da steht doch mehr als "da passiert vermutlich bei ... ein Absturz"!

Was sagt denn der Debugger?

In welcher Zeile passiert genau der Fehler?

Wenn der Fehler in dieser Zeile passiert

Delphi-Quellcode:

IdIMAP42.AppendMsg('Sent',idmessage1,[]);

könnte es sehr gut sein, dass idmessage1 "kaputt" ist.
Das solltest Du mal überprüfen.

Ansonsten mal den kompletten Quelltext der Unit hier anhängen, damit man sich da mal den ganzen Zusammenhang anschauen kann.

Das bisher bekannte Quelltextfragment ist da leider nicht ausreichend.

[Ulf346C]

Danke !

Aber wie gesagt es erfolge immer ein Absturz an der Stelle, auch mit dem Debugger kam ich nicht weiter.

Ich habe es jetzt ganz pragmatisch gelöst: ich habe das ganze Formular noch einmal von Anfang an neu programmiert, und jetzt geht es :shock:

Nun ja, wie Wege der Daten sind manchmal unergründlich ...