bzw. wie erzeuge ich eine unbekannte Anzahl Variablen vom Typ TMapiFileDesc zur Laufzeit (je nachdem wieviel Dateien ich im Ordner finde).
Hier ein bisschen Quelltext
Delphi-Quellcode:
procedure SendmailMapi(...)
var FileAttach: TMapiFileDesc;
...
begin
...
erg := FindFirst(Ordner + '
*.*', faAnyFile, Info);
while (erg = 0)
do
begin
try
if (info.
name <> '
.')
and (info.
name <> '
..')
then begin
// hier würde ich gerne jedes mal eine neue Variable vom Typ TMapiFileDesc erzeugen
// ohne FileAttach2,FileAttach3 usw. vorher als Variable deklariert zu haben
strAnhang := Ordner + Info.
Name;
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($FFFFFFFF);
FileAttach.lpszPathName := PChar(strAnhang);
nFileCount := 1;
lpFiles := @FileAttach;
end;
except
ShowMessage('
Fehler' + #13#10 +
exception(ExceptObject).
Message);
end;
erg := FindNext(Info);
end;
FindClose(Info);
...
// dann Mail versenden --> ist OK
end;