for iCount := 1 to myOutlookApp.ActiveExplorer.Selection.Count do begin mailItem := myOutlookApp.ActiveExplorer.Selection.Item(iCount) as _MailItem;
currFolderName := myOutlookApp.ActiveExplorer.CurrentFolder.Name; s_addr := ''; if currFolderName = 'Inbox' then begin FromTo := 'From'; objReply := mailItem.Reply; objRecips := objReply.Recipients; for i := 1 to objRecips.Count do with objRecips.Item(i) do begin s_addr := s_addr + Format('%s <%s> ', [Name, Address]); end; end else begin FromTo := 'To'; for i := 1 to mailItem.Recipients.Count do with mailItem.Recipients.Item(i) do begin s_addr := s_addr + Format('%s <%s> ', [Name, Address]); end; end;
Больше править не буду, в конце концов, совесть-то имей! Задание было чье вообще? Ты хоть MSDN на странице Outlook Objects соизволил открыть, или это мне надо больше, чем тебе? Уверяю, МНЕ оно на фиг не надо, я как с MSO не работал, так и не буду. Надо будет что-нибудь исправить - MSDN в зубы и вперед, грызть гранит науки. Я потерял к твоим вопросам интерес.