Tatsächliche Empfänger bei Mapi auslesen

[norwegen60]

Hallo zusammen

ich versende per folgendem Code E-Mails

Delphi-Quellcode:

uses
   Mapi;

function SendEMail(Handle: THandle; Mail: TStrings): Cardinal;
type
   TAttachAccessArray = array [0..0] of TMapiFileDesc;
   PAttachAccessArray = ^TAttachAccessArray;
var
   MapiMessage: TMapiMessage;
   Receip: TMapiRecipDesc;
   Attachments: PAttachAccessArray;
   AttachCount: Integer;
   i1: integer;
   FileName: string;
   dwRet: Cardinal;
   MAPI_Session: Cardinal;
   WndList: Pointer;
begin
   dwRet := MapiLogon(Handle,
     PChar(''),
     PChar(''),
     MAPI_LOGON_UI or MAPI_NEW_SESSION,
     0, @MAPI_Session);

   if (dwRet <> SUCCESS_SUCCESS) then
   begin
     MessageBox(Handle,
       PChar('Error while trying to send email'),
       PChar('Error'),
       MB_ICONERROR or MB_OK);
   end
   else
   begin
     FillChar(MapiMessage, SizeOf(MapiMessage), #0);
     Attachments := nil;
     FillChar(Receip, SizeOf(Receip), #0);

     if Mail.Values['to'] <> '' then
     begin
       Receip.ulReserved := 0;
       Receip.ulRecipClass := MAPI_TO;
       Receip.lpszName := StrNew(PChar(Mail.Values['to']));
       Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to']));
       Receip.ulEIDSize := 0;
       MapiMessage.nRecipCount := 1;
       MapiMessage.lpRecips := @Receip;
     end;

     AttachCount := 0;

     for i1 := 0 to MaxInt do
     begin
       if Mail.Values['attachment' + IntToStr(i1)] = '' then
         break;
       Inc(AttachCount);
     end;

     if AttachCount > 0 then
     begin
       GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount);

       for i1 := 0 to AttachCount - 1 do
       begin
         FileName := Mail.Values['attachment' + IntToStr(i1)];
         Attachments[i1].ulReserved := 0;
         Attachments[i1].flFlags := 0;
         Attachments[i1].nPosition := ULONG($FFFFFFFF);
         Attachments[i1].lpszPathName := StrNew(PChar(FileName));
         Attachments[i1].lpszFileName :=
           StrNew(PChar(ExtractFileName(FileName)));
         Attachments[i1].lpFileType := nil;
       end;
       MapiMessage.nFileCount := AttachCount;
       MapiMessage.lpFiles := @Attachments^;
     end;

     if Mail.Values['subject'] <> '' then
       MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject']));
     if Mail.Values['body'] <> '' then
       MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body']));

     WndList := DisableTaskWindows(0);
     try
     Result := MapiSendMail(MAPI_Session, Handle,
       MapiMessage, MAPI_DIALOG, 0);
     finally
       EnableTaskWindows( WndList );
     end;

     for i1 := 0 to AttachCount - 1 do
     begin
       StrDispose(Attachments[i1].lpszPathName);
       StrDispose(Attachments[i1].lpszFileName);
     end;

     if Assigned(MapiMessage.lpszSubject) then
       StrDispose(MapiMessage.lpszSubject);
     if Assigned(MapiMessage.lpszNoteText) then
       StrDispose(MapiMessage.lpszNoteText);
     if Assigned(Receip.lpszAddress) then
       StrDispose(Receip.lpszAddress);
     if Assigned(Receip.lpszName) then
       StrDispose(Receip.lpszName);
     MapiLogOff(MAPI_Session, Handle, 0, 0);
   end;
end;

Da hierbei das Nachrichtenfenster geöffnet wird, möchte ich nun zum Schluss feststellen, an welchen Empfänger das Mail nun tatsächlich geschickt wurde. Ich gehe mal davon aus, dass er in MapiMessage.lpRecips.lpszName steht, weiß aber leider nicht wie ich auf diesen Wert zugreife. Beim direkten Zugriff kommt es zu einer Zugriffsverletzung.

Kann mir einer helfen?

Danke
Gerd