hoi,
du könntest evtl. auch
MAPIAddress zusätzlich aufrufen.
Das öffnet den Dialog zum hinzufügen von Empfängern.
Du kannst deine Liste übergeben und anzeigen und erhälst am Ende
eine finale Liste (also falls der User einen Empfänger hinzugefügt hat).
in etwa so ...
Delphi-Quellcode:
if Mail.Values['
to'] <> '
'
then
begin
Receip.ulReserved := 0;
Receip.ulRecipClass := MAPI_TO;
Receip.lpszName := StrNew(PAnsiChar(AnsiString(Mail.Values['
to'])));
Receip.lpszAddress := StrNew(PAnsiChar(AnsiString('
SMTP:' + Mail.Values['
to'])));
Receip.ulEIDSize := 0;
MapiMessage.nRecipCount := 1;
MapiMessage.lpRecips := @Receip;
end;
MapiAddress( MAPI_Session,
Handle,
'
Empfänger',
1,
// ein Textfeld nur fuer "To"
'
',
1,
// deine bisherige anzahl
Receip,
// deine bisherige liste
0 ,
0 ,
@new_count,
// neue anzahl
new_list );
// neue liste
MapiMessage.nRecipCount := new_count ;
MapiMessage.lpRecips := new_list;
AttachCount := 0;
vielleicht kannst Du damit weiter arbeiten.
cya