FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
var  EspaceDeNom : NameSpace; 
begin 
  Outlook.Connect; 
  EspaceDeNom := Outlook.GetNamespace('MAPI'); 
  ...

1
2
3
4
5
6
7
8
var Outlook : OLEVariant; 
begin 
  try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
  except 
    Outlook := CreateOleObject('Outlook.Application'); 
  end; 
  ...

1
2
3
4
5
6
7
var  EspaceDeNom: NameSpace; 
begin 
  ... 
  EspaceDeNom := Outlook.GetNamespace('MAPI'); 
   // Ici on utilise le profil par défaut 
  EspaceDeNom.Logon('', '', False, False); 
  ...

1
2
3
4
5
begin 
  // Déconnectez tous les objets encore actif 
  // ListeDesContacts.Disconnect; 
  EspaceDeNom.Logoff; 
  Outlook.Quit;

1
2
3
4
5
6
var DossierReception: MAPIFolder; 
  
begin 
  DossierReception:=EspaceDeNom.GetDefaultFolder(olFolderInbox); 
  DossierReception.Display; 
  ...

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.OutlookItemSend(ASender: TObject; const Item: IDispatch; 
  var Cancel: WordBool); 
  
var S : String; 
    UnMessage : MailItem; 
begin 
 UnMessage:=Item as MailItem; 
 S:='Ajout d''un mail '+UnMessage.Subject; 
  
 ShowMessage(S); 
  
 //Cancel:=True; //Annule l'envoi de l'item courant. 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.OutlookItemSend(ASender: TObject; const Item: IDispatch; 
  var Cancel: WordBool); 
  
var S : String; 
    UnMessage : MailItem; 
    UneReunion : MeetingItem; 
  
begin 
  // Est-ce l'envoi d'un mail ? 
 If Supports(Item,MailItem,UnMessage) then 
  with UnMessage do 
   S:='Ajout d''un mail '+Subject; 
  
  // Est-ce l'envoi d'une demande de participation à une réunion ? 
 If Supports(Item,MeetingItem,UneReunion) then 
  with UneReunion do 
    S:='Ajout d''un contact '+SubJect+' '+SenderName; 
  
 ShowMessage(S); 
  
 //Cancel:=True; //Annule l'envoi de l'item courant. 
end;