Mehrere Dateien als Anhang verschicken.

[Assertor]

Hi,

Zitat von Sir K:

Ich habs mal ausprobiert aber ich bekomme Zugriffsverletzungen gemeldet wenn ich die mail versenden möchte:

Delphi-Quellcode:

var
  iAttachment: TIdAttachmentFile;
  i: Integer;
begin

...
 
i:=0;
while not(MyAttatchments[i] = '') do
  begin
    iAttachment.Create(IdMessage1.MessageParts, MyAttatchments[i]);
    i:=i+1;
  end;

Kein wunder, Du greifst auf eine uninitialisiert Variable zu. Das ist genauso verkehrt wie z.B. MyForm.Create() statt MyForm := TMyForm.Create().

Also eher:

Delphi-Quellcode:

while not(MyAttatchments[i] = '') do
begin
  iAttachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, MyAttatchments[i]);
  i:=i+1;
end;

Ich würde das iAttachment aber ganz weglassen und das so machen:

Delphi-Quellcode:

while not(MyAttatchments[i] = '') do
begin
  TIdAttachmentFile.Create(IdMessage1.MessageParts, MyAttatchments[i]);
  i:=i+1;
end;

Gruß Assertor