No PR_EMAIL_ADDRESS for recipient? [WiredBox.Net

> Just to remind the problem
> If I create a new email and start typing email address in To, Outlook
> suggests some emails in a popup
> Most emails look like Slava Barouline < email[ at ]com > , but sme have only
> address or display name
> The later fill recipients table incorrectly and don't get resolved even if
> I call MailItem.Save in my code
> I suspect Outlook delays resolving for some reason.
> If I save email in Outlook by pressing a button, emails get resolved and
> look OK in recipients table
>
> Here it is (very scary code):
>
> //Save before processing sent email:
> .....
>
> //Save before accessing PR_BODY
> FMailItemToProcess.Save;
> ASubject := FMailItemToProcess.Subject;
> ABody := GetEmailBody;
>
> ...
>
> //Get Recipients List
> AnEmailAddresses := GetRecipientEmailAddresses;
>
> .....
>
> //Get emails from recipients table
>
> function TMessageProcessor.GetRecipientEmailAddresses: TStringList;
> var
> OneMessage: IMessage;
> RecTable:IMAPITable;
> begin
>
> RecTable:=nil;
> OneMessage :=IUnknown(FMailItemToProcess.MAPIOBJECT) as IMessage;
> OleCheck(OneMessage.GetRecipientTable(0,RecTable));
> result := GetRecipientEmailAddressesFromTable(RecTable);
> RecTable := nil;
> OneMessage := nil;
>
> end;
>
> function
> TMessageProcessor.GetRecipientEmailAddressesFromTable(RecTable:IMAPITable):
> TStringList;
> type
> LTSPropTagArray =
> record
> cValues : ULONG;
> aulPropTag : array[0..3] of ULONG;
> end;
> const
> FPropTagArray : LTSPropTagArray = (cValues:4;
> aulPropTag:(
> PR_DISPLAY_NAME,
> PR_EMAIL_ADDRESS,
> PR_ADDRTYPE,
> PR_ENTRYID)
> );
> var
> NRec :integer;
> ListRecTable:IMAPITable;
> RecCount:Ulong;
> lppRows:PSRowSet;
> EMailAddress, AnAddressType, ADisplayName: string;
> i: Integer;
> DistList: IDistList;
> AddrBook: IAddrBook;
> lpcbeid, ulObjectType: ULONG;
> lppeid: PENTRYID;
> ProcessInternalEmails, AskConfirmation: Boolean;
> begin
>
> result := TStringList.Create;
> lppRows:=nil;
> ProcessInternalEmails := False;
> AskConfirmation := True;
>
> OleCheck(RecTable.SetColumns([ at ]FPropTagArray,TBL_BATCH));
> OleCheck(RecTable.GetRowCount(0,RecCount));
>
> dmMain.LogLine('Found ' + IntToStr(RecCount) + ' recipient(s)');
>
> if RecCount>0 then
> try
>
> OleCheck(RecTable.QueryRows(RecCount,TBL_NOADVANCE,lppRows));
> for Nrec:=0 to RecCount-1 do
> begin
>
> // PR_EMAIL_ADDRESS is an optional property
> // therefore we must access it in a try except
> try
> AnAddressType :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-2].Value.lpsza;
> if UpperCase(AnAddressType) = 'MAPIPDL' then
> begin
> dmMain.LogLine('Found private distribution list - trying to
> expand');
>
> //!!! Get DistList
> AddrBook := GetAddressBook;
>
> //The IAddrBook.OpenEntry method opens an address book entry
> //and returns a pointer to an interface that can be used
> //to access the entry.
>
> lpcbeid :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-1].Value.bin.cb;
> lppeid :=
> LPENTRYID(lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-1].Value.bin.lpb);
>
> DistList:=nil;
> ulObjectType:=8; //MAPI_DISTLIST
>
> OleCheck(AddrBook.OpenEntry(
> lpcbeid,
> lppeid,
> [ at ]IID_IDistList,
> MAPI_BEST_ACCESS or MAPI_DEFERRED_ERRORS,
> ulObjectType,
> IUnknown(DistList)));
>
> OleCheck(DistList.GetContentsTable(0,ListRecTable));
>
> with GetRecipientEmailAddressesFromTable(ListRecTable) do
> for i:= 0 to Count - 1 do
> result.AddObject(Strings[i], Objects[i]);
>
> DistList:=nil;
> ListRecTable := nil;
>
> end
>
> //Check Exchange email address type and ProcessInternalEmails
> setting
> else if (UpperCase(AnAddressType) = 'EX')
> and not dmMain.ProcessInternalEmails then
> begin
>
> if ProcessInternalEmails then
> begin
> EMailAddress :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-3].Value.lpsza;
> ADisplayName :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-4].Value.lpsza;
> dmMain.LogLine('Recipient #' + IntToStr(Nrec + 1) + ' - email
> address: ' + EMailAddress + ' , display name: ' + ADisplayName);
> result.AddObject(EMailAddress,
> TStringObject.Create(ADisplayName));
> end
> else
> begin
> EMailAddress :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-3].Value.lpsza;
> ADisplayName :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-4].Value.lpsza;
> dmMain.LogLine('Recipient #' + IntToStr(Nrec + 1) + ' - email
> address: ' + EMailAddress + ' , display name: ' + ADisplayName);
> dmMain.LogLine('Email address has Exchange address type');
>
> //Manual processing
> if AskConfirmation and FIsManualProcessing then
> begin
> if MessageDlg(strExchangeRecipientAddressTypeConfirmation,
> mtConfirmation, [mbYes, mbNo], 0) = mrYes then
> begin
> ProcessInternalEmails := True;
> result.AddObject(EMailAddress,
> TStringObject.Create(ADisplayName));
> end
> else
> begin
> ProcessInternalEmails := False;
> dmMain.LogLine('Email address skipped');
> end;
> AskConfirmation := False;
> end
> //Automatic processing - skip
> else
> dmMain.LogLine('Email address skipped');
>
> end;
>
> end
> else
> begin
>
> //In case PR_EMAIL_ADDRESS is not found, use PR_DISPLAY_NAME
> instead
> ADisplayName :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-4].Value.lpsza;
> try
> EMailAddress :=
> lppRows.aRow[Nrec].lpProps[lppRows.aRow[Nrec].cValues-3].Value.lpsza;
> except
> dmMain.LogLine('Failed to read PR_EMAIL_ADDRESS, using
> PR_DISPLAY_NAME instead');
> EMailAddress := ADisplayName;
> end;
>
> dmMain.LogLine('Recipient #' + IntToStr(Nrec + 1) + ' - email
> address: ' + EMailAddress + ' , display name: ' + ADisplayName);
> result.AddObject(EMailAddress,
> TStringObject.Create(ADisplayName));
> end;
>
> except
> on e: Exception do
> dmMain.LogLine('Failed to read email address from recipient table
> row with error message: ' + e.Message);
> end;
> end;
>
> except
> on e: Exception do
> dmMain.LogLine('Failed to retrieve recipients table with error
> message: ' + e.Message);
> end;
>
> // Free each element in the pRows buffer
> FreeProws(lppRows);
>
> end;