如何获得 outlook 的发件人地址 在OutlookApplication1ItemSend 的时候

这个是OFFICE中的outlook不是系统自带的那个

uses ActiveX, ComObj;

const
olFolderInbox = 6; //默认收件箱
olMailItem = $00000000; //文件夹类型为邮件

var
Outlook : OLEVariant;
NameSpace : OLEVariant;
Mails : OLEVariant;
I : Integer;
begin
OleInitialize( nil );
Outlook := CreateOleObject('Outlook.Application');
NameSpace := Outlook.GetNameSpace('MAPI');
Mails := NameSpace.GetFolderFromID(EntryID); //邮件文件夹的EntryID
//可以通过OutLookMAPI.GetDefaultFolder(olFolderInbox)来获得收件箱对象
for I := Mails.Items.Count downto 1 do begin
// Mails.Items[I].SenderName; //发件人
// Mails.Items[I].Subject; //主题
// Mails.Items[I].ReceivedTime; //时间
// Mails.Items[I].Size; //大小
//....
end;
Mails := UnAssigned;
NameSpace := UnAssigned;
Outlook := UnAssigned;
OleUninitialize;
end;