[INDY] TIdSMTP und Anhänge

[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!