1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

begin
  objCDO := CreateOLEObject('MAPI.Session');
  objCDO.Logon('', '', False, False);
  objMsg := objCDO.GetMessage(itemOL.EntryID, itemOL.Parent.StoreID);

   s := objMsg.Sender.Address;
   showmessage(s);
   objMsg := UnAssigned;
   objCDO := UnAssigned;
end                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TTrebaxaOutlAddin.OnConnection(const Application: IDispatch;
  ConnectMode: ext_ConnectMode; const AddInInst: IDispatch;
  var custom: PSafeArray);
var i : integer;
begin
  FApplication:=Application; // <- OutlookObject wird geholt
  FOutlookApplication:=TOwnOutlookApplicaiton.Create(Application);
  FOutlookApplication.OnOptionsPagesAdd:=OnOptionsPagesAdd;
  FInspectors:=TOutlookInspectors.Create(FApplication.Inspectors);
  FInspectors.OnNewInspector:=OnNewInspector;
  for i:=1 to FApplication.Inspectors.Count do begin
    OnNewInspector(FInspectors, IDispatch(FApplication.Inspectors.Item(i)) as _Inspector);
  end;
  FExplorers:=TOutlookExplorers.Create(FApplication.Explorers);
  FExplorers.OnNewExplorer:=OnNewExplorer;
  for i:=1 to FApplication.Explorers.Count do begin
    OnNewExplorer(FExplorers, IDispatch(FApplication.Explorers.Item(i)) as _Explorer);
  end;
end;                    

1:
2:
3:
4:
5:
6:

var olll:TOutlookApplication
OwnApplication : OLEVariant; // <- kommt aus dem OnConnection event und beinhaltet die trusted OutlookAppl.

olll.Assign((OwnApplication AS TOutlookApplication));
oder 
olll := (OwnApplication AS TOutlookApplication)                    

1:
2:
3:
4:
5:
6:
7:
8:

Sub TrustedCode()
    Dim olApp As Outlook.Application
    Set olApp = Application
    Dim oMail As Outlook.MailItem
    Set oMail = _
        olApp.Session.GetDefaultFolder(olFolderInbox).Items(1)
    MsgBox oMail.SenderEmailAddress, vbInformation
End Sub                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TrustedCode();
const
  olFolderInbox = 6;
var
  olApp : OleVariant;
  oMail : OleVariant;
  sAddress : String;
begin
  olApp:= GetActiveOleObject('Outlook.Application');
  oMail:=olApp.Session.GetDefaultFolder(olFolderInbox).Items.Item(1);
  sAddress:=oMail.SenderName;//SenderEmailAddress
  Application.MessageBox( PAnsiChar(sAddress),
                          'Information',
                          Windows.MB_OK+Windows.MB_ICONINFORMATION);
  oMail:= Variants.Unassigned;
  olApp:= Variants.Unassigned;
end;