Hallo,
ich kann mit meiner Mail-
Unit mittlerweile ziemlich viel, allerdings noch keine Anhänge verschicken. Meine Recherche sah bis jetzt so aus:
Delphi-Quellcode:
with IdMessage do
begin
ContentType := 'multipart/*'; // !
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//!
TIdAttachmentFile.Create(IdMessage.MessageParts, // !
AAttachment.Strings[i]); // !
IdMessage.MessageParts.Add(); // !
Subject := ASubject;
Body := ABody;
end;
Allerdings geht das nicht. Mein Test Programm gibt einfach keine Rückmeldung. Was habe ich den hier falsch gemacht???
Gruß,
Lukas