[INDY] TIdSMTP und Anhänge

[ByTheTime]

Okay, nochmal etwas genauer
Hier ist eine Lösung dazu, die aber bei mir nicht funkt

Delphi-Quellcode:

with IdMessage do
  begin
    ContentType := 'multipart/*'; // Wichtig für Anhang!

    From.Address := ASender;
    for i := 0 to ARecipients.Count - 1 do
      Recipients.Add.Address := ARecipients.Strings[i];

    for i := 0 to AAttachment.Count - 1 do // Wichtig für Anhang!
      TIdAttachmentFile.Create(IdMessage.MessageParts, // Wichtig für Anhang!
         AAttachment.Strings[i]); // Wichtig für Anhang!
    IdMessage.MessageParts.Add(); // Wichtig für Anhang!

    Subject := ASubject;
    Body := ABody;
  end;

Die mit " // Wichtig für Anhang!" markierten Zeilen habe ich aus dem verlinkten Thread entnommen, allerdings geht das schief :/

Ich hoffe es findet sich eine Lösung

[ByTheTime]

Okay, nach viel hin und her und unzähligen Fehlversuchen, kann ich nun einen Anhang schicken Hier die Lösung

Delphi-Quellcode:

    with IdMessage do
      begin
        ContentType := 'multipart/' + ExtractFileExt(FileToSend);

        From.Address := ASenderAdress;
        From.Name := ASenderName;
        Subject := ASubject;

        Recipients.EMailAddresses := ARecipients;

        IdText := TIdText.Create(MessageParts, nil);
        IdText.ContentType := 'text/plain';
        IdText.Body.Text := ABody;
      end;

      if FileToSend <> '' then
      begin
        Attachment := nil;

        Attachment := TIdAttachmentFile.Create(IdMessage.MessageParts,
          FileToSend);
        Attachment.FileName := ExtractFileName(FileToSend);
        Attachment.ContentType := 'application/' + ExtractFileExt(FileToSend);
      end;

Irgendwann finde ich auch schon noch raus, wie es mit mehreren geht

P.S: Mit hilfe hiervon!

[ByTheTime]

Okay, nach viel gesuche, ging es nun doch relativ schnell

Delphi-Quellcode:

    with IdMessage do
      begin
        ContentType := 'multipart/*';

        From.Address := ASenderAdress;
        From.Name := ASenderName;

        Subject := ASubject;

        Recipients.EMailAddresses := ARecipients;

        IdText := TIdText.Create(MessageParts, TStringList.Create);
        IdText.ContentType := 'text/plain';
        IdText.Body.Text := ABody;
      end;

      if Trim(Files) <> EmptyStr then
      begin
        try
          IdAttachmentList := TStringList.Create;
          IdAttachmentList.CommaText := Files;

          for i := 0 to IdAttachmentList.Count - 1 do
          begin
            IdMessage.IsEncoded := True;

            IdAttachment := TIdAttachmentFile.Create(IdMessage.MessageParts,
              IdAttachmentList.Strings[i]);
            IdAttachment.FileName :=
              ExtractFileName(IdAttachmentList.Strings[i]);
            IdAttachment.ContentType := 'application/octet-stream';
            IdAttachment.OpenLoadStream;
            IdAttachment.CloseLoadStream;
          end;
        finally
          IdAttachmentList.Free;
        end;
      end;

Hierund hier gab es noch was schönes

Für Verbesserungen, Optimierungen und Vorschläge bin ich gerne offen

Gruß,
Lukas