AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Tatsächliche Empfänger bei Mapi auslesen

Tatsächliche Empfänger bei Mapi auslesen

Ein Thema von norwegen60 · begonnen am 5. Mai 2013
Antwort Antwort
norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#1

Tatsächliche Empfänger bei Mapi auslesen

  Alt 5. Mai 2013, 12:57
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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz