Outlook-Création de dossier

Question

Bonjour à tous,

Je souhaite utiliser Delphi pour ajouter des contacts dans Outlook.

Mais j'ai besoin de les classer dans des sous-dossiers du dossier Contact (olFolderContact).

Comment faire pour créer un dossier ?

Merci.

Julien :)

ptikiwidev · Answer

Je te file mon bout de code qui marche :

iNbDossier,iFolderType : integer
NmSpace  : NameSpace;
vNewFolder,vFolder : variant;

//CONNECTION A OUTLOOK
  Form_Menu.Outlook.Connect;
  NmSpace := Form_Menu.Outlook.GetNamespace('MAPI');
  NmSpace.Logon('','',false,false);

iNbDossier    := NmSpace.GetDefaultFolder(iFolderType).Folders.count + 1 ;
    k             := 1;
    bTrouve       := False;

    //Boucle de recherche du dossier
    while   (bTrouve = False) and (k < iNbDossier) do
      if    (AnsiLowerCase(FolderMAPI.Folders.Item(k).Name) = AnsiLowerCase(sNomDossier)) then
      begin
        bTrouve     := true;
        sNomDossier :=  FolderMAPI.Folders.Item(k).Name;
      end
      else
        inc(k);

    // Si le dossier n'existe pas, on le crée
    if (bTrouve = False) then
    begin
      vFolder     := NmSpace.GetDefaultFolder(iFolderType);
      vNewFolder  := vFolder.Folders.Add(sNomDossier);
    end;

    //On se positionne sur le dossier
    vNewFolder    := FolderMAPI.Folders.Item(k);
    FolderMAPI    := FolderMAPI.Folders.Item(k);

Outlook-Création de dossier

1 réponse

Votre réponse

Discussions similaires