Attachment löschen

[rokli]

Moin Slipstream,

das mit dem Delete werd ich nochmal testen (und den Rest Deines Codes natürlich auch)!

@HolgerX: Der .CLEAR funktioniert nun auch! Ich hatte den Clear auch versucht, aber wohl an der falschen Stelle, nämlich nicht auf MailMessage.MessageParts.Clear , sondern auf meiner Definition Anhang.Clear , was natürlich falsch war.

Vielen Dank Euch Beiden!

Gruß

[rokli]

So, hier nochmal das komplette Testmailprogramm:

Delphi-Quellcode:

   try
      MailSmtp.Username            := edtMailUser.Text;      // name@domain
      MailSmtp.Password            := edtMailPwd.Text;      // pwd von name@domain

      MailSmtp.Host               := edtMailServer.Text;
      MailSmtp.Port               := StrToInt(edtMailPort.Text);

      MailMessage.Priority                     := mpNormal;
      MailMessage.From.Address               := edtMailFromAdr.Text;   // Absender-Mail-Adresse
      MailMessage.Recipients.EMailAddresses   := edtRecipients.Text;
      MailMessage.Subject                      := edtSubject.Text;
      MailMessage.Body.Add(edtBody.Text);

      MailMessage.MessageParts.Clear;   // <<== die Lösung allen Übels!

      if edtAttach.Text <> '' then
         Anhang   := TidAttachmentFile.Create(MailMessage.MessageParts, edtAttach.Text);
      if edtAttach2.Text <> '' then
         Anhang   := TidAttachmentFile.Create(MailMessage.MessageParts, edtAttach2.Text);

      MailSmtp.Connect;
      MailSmtp.Send(MailMessage);

      MailSmtp.Disconnect(true);
   except
      on E : Exception do
      begin
         Showmessage('Fehler: ' + E.Message);
      end;
   end;

Gruß

[hoika]

Hallo,
was ich noch anmerken will
MailMessage.Destroy

benutzt man eigentlich nicht.

Richtig wäre
MailMessage.Free

Aber durch das Clear hast du ja eh schon eine andere Lösung.

[rokli]

wenns nicht klappen will, kommt man auf die dümmsten Ideen ..

[HolgerX]

Hmm..

Da Du ja immer die gleiche IsMessage verwendest, und diese nicht immer neu erstellt, solltest Du auch


MailMessage.Body.Text := edtBody.Text;

oder

Delphi-Quellcode:

MailMessage.Body.Clear;
MailMessage.Body.Add(edtBody.Text);

verwenden, damit der 'neue' Body nicht immer am 'alten' angehängt wird.

[rokli]

Der Text ist bei dieser Anwendung immer der Gleiche. Alle, in diesem Falle, Lieferanten bekommen die gleiche Mail; lediglich im Betreff wird die Kreditorennummer ausgetauscht und die Anlagen sind individuelle Statistiken.

Gruß