Dateien per EMail versenden

[DevilsCamp]

Ich habe in de CL folgendes gefunden:
Datei per E-Mail versenden


Nun ist meine Frage:
Wie schaffe ich es, dem Element lpFiles des Records TMapiMessage ein ARRAY zu übergeben, damit ich mehrere Dateien versenden kann?


Ich habe folgendes versucht:

Delphi-Quellcode:

type
  TStrArray = array of String;

function SendFileMail(const FileName: TStrArray; const Subject, BodyText,
  RecipAdress: string): string;
var
  mMessage     : TMapiMessage;
  mlpFiles     : array of TMapiFileDesc;
  mRecips      : TMapiRecipDesc;
  i            : Integer;
begin
// Sonstiger Code
  SetLength(mlpFiles, Length(FileName));

  for i := 0 to High(mlpFiles) do
  begin
    with mlpFiles[i] do
    begin
      flFlags := 0;
      nPosition := 0;
      lpszPathName := PChar(FileName[i]);
      lpszFileName := nil;
      lpFileType := nil;
    end;
  end;

  with mMessage do
  begin
    lpszSubject := PChar(Subject);
    lpszNoteText := PChar(BodyText);
    lpszMessageType := nil;
    lpszDateReceived := nil;
    lpszConversationID := nil;
    flFlags := 0;
    lpOriginator := nil;
    nRecipCount := 1;
    lpRecips := @mRecips;
    nFileCount := Length(FileName);

    if nFileCount > 0 then
      lpFiles := mlpFiles[0]
    else
      lpFiles := nil;
  end;

  // Restlicher Code
end;

Leider bekomme ich dann die Fehlermeldung

Code:

[Fehler] Unit1.pas(97): Inkompatible Typen: 'MapiFileDesc' und 'PMapiFileDesc'

Versuche ich folgendes:

Delphi-Quellcode:

    if nFileCount > 0 then
      lpFiles := @mlpFiles[0]
    else
      lpFiles := nil;

Dann wird das Programm kompiliert, die Funktion MAPISendMail gibt dann aber den Wert MAPI_E_FAILURE zurück.

Bei

Delphi-Quellcode:

    if nFileCount > 0 then
      lpFiles := @mlpFiles
    else
      lpFiles := nil;

Bekomme ich sogar folgenden Fehler:

Code:

---------------------------
Zugriffsverletzung bei Adresse 00404298 in Modul 'mail_test.exe'. Schreiben von Adresse 00000000.
---------------------------

Ich denke zwar, dass es mit einem Statischem Array funktionieren würde, da ich aber nicht weiß, aus wievielen Dateien der Anhang besteht, ist die Wahl des dynamischen Arrays wohl besser.

Ich hoffe, mir kann jemand helfen.

[DevilsCamp]

So "Rätsel" gelöst:

Delphi-Quellcode:

if nFileCount > 0 then
      lpFiles := @mlpFiles[0]
    else
      lpFiles := nil;

Ist schon der Richige Weg, allerdings muss ich beim füllen des Datei-Arrays folgendes zuweisen:

Delphi-Quellcode:

nPosition := Cardinal(-1);

Dann klappt's auch mit dem Nachbarn ähm mit dem Versenden mehrerer Dateien ;)

[Mushroomfreak07]

OK genau das Problem habe ich auch!
Ich habe das ganze mal soweit wie möglich nachgebaut,... nur mit ist noch nicht ganz klar wie ich :

var
S: String;
…
S := SendFileMail('C:\Eigene Dateien\_Test\Neu.txt', 'Betreff', 'Meine Nachricht',
'[e-mail]');

if Length(S) > 0 then
begin
Beep;
MessageDlg('Die Datei konnte nicht per E-Mail versendet werden!' + #10#13#10#13 +
'Meldung:' + #10#13 + S, mtError, [mbOK], 0);
end;


--------------

der part aussieht wenn ich 3 Dateien verschicken will...

S := SendFileMail('C:\Eigene Dateien\_Test\Neu.txt','C:\Eigene Dateien\_Test\Neu1.txt','C:\Eigene Dateien\_Test\Neu2.txt', 'Betreff', 'Meine Nachricht',
'[e-mail]');




so ????



und dann meckert er an genau der stelle : [Error] Unit1.pas(113): Incompatible types: 'String' and 'TStrArray'




wäre super wenn mir jmd helfen kann

mach anderer wird ja das ähnliche Problem haben..

vllt. kann einer von euch ja sogar mal seine fertige Musterlösung posten???

Soweit erstmal danke

und Frohe Weihnachten