CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 15 22:25:30

SORTIE DE SILVERLIGHT 2 ET DE FLASH PLAYER 10 par Nix

TCB : QUE FAIRE EN SALLE BLANCHE ? par themit

DEBUG : MAKE OBJECT ID - COMMENT CONNAITRE L'éTAT D'UNE VARIABLE LORSQUE CELLE-CI N'EST PAS ACCESSIBLE DANS LE SCOPE COURANT par cyril

IIS7 : CONFIGURATION DES HANDLERS POUR L'UPLOAD DE FICHIER - INTERDIRE CERTAINS FICHIERS DE S'EXéCUTER | ACCéDER à DES FICHIERS .CS, .ASPX par cyril

MICROSOFT ANNONCE LE NOM COMMERCIAL DE WINDOWS 7 par RaptorXP

RE : ECRIRE DANS UN DOCUMENT WORD par alloui78

RE : TXSTRINGRID par cantador

RE : CONNEXION PC ET RECEPTEUR par kaboum

RE : FEUX TRICOLORES par kaboum

+ de logiciels à télécharger

1 263 219 membres
750 nouveaux aujourd'hui
14 422 membres club

Trouver une ressource

Trouvez une ressource parmi 38 860 codes, 1 187 413 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RECUP LES ADRESSES OUTLOOK

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 28/08/2003 Date de mise à jour : 28/08/2003 13:59:35 Vu : 14 588

Auteur : TheWhiteShadow

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Voilà une petite source qui permet de récupérer les adresses du carnet d'adresse outlook.

Je me suis inspiré de la source visual basic :
http://www.vbfrance.com/article.aspx?ID=3487
La source en basic montre aussi comment modifier le carnet en utilisant la dll MAPI32.DLL. Mais pour simplement récupérer les données y'a même pas besoin de dll comme vous pouvez voir la source plus bas.

Les bugs : j'ai Outlook Express 6 et Outlook de Office 2000. J'utilise que celui du 6 et pourtant, mon code ne me révèle que celui de Office 2000 (qui a été installé plus tard). C'est con donc... je vais voir si je peux corriger ça.

Mais où est-ce qu'elles se cachent ces d'adresses de {'@^=` !! Pourquoi ne pas les lire directement... ce serai quand même plus simple :p Si vous avez une idée faites le savoir, sinon j'me tape le debuggage de mon log

aller a+ Twis

Source

{
' Ecrit par TheWhiteShadow
'
' Repris d'une source visual basic :
' http://www.vbfrance.com/article.aspx?ID=3487
'
' Je ne serai pas tenu responsable
' de vos agissements avec ce code...
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, Grids, ValEdit;
type
TForm1 = class(TForm)
ValueListEditor1: TValueListEditor;
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
obj: OleVariant;
i, j: integer;
begin
try
obj := CreateOleObject('outlook.application');
obj := obj.GetNameSpace('MAPI');
for i := 1 to obj.AddressLists.Count do
for j := 1 to obj.AddressLists(i).AddressEntries.Count do
ValueListEditor1.InsertRow(obj.AddressLists(i).AddressEntries(j).Name, obj.AddressLists(i).AddressEntries(j).Address, false);
except
end;
end;
end.

{
' Ecrit par TheWhiteShadow
'
' Repris d'une source visual basic :
' http://www.vbfrance.com/article.aspx?ID=3487
'
' Je ne serai pas tenu responsable
' de vos agissements avec ce code...
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, Grids, ValEdit;

type
  TForm1 = class(TForm)
    ValueListEditor1: TValueListEditor;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  obj: OleVariant;
  i, j: integer;
begin
  try
    obj := CreateOleObject('outlook.application');
    obj := obj.GetNameSpace('MAPI');
    for i := 1 to obj.AddressLists.Count do
      for j := 1 to obj.AddressLists(i).AddressEntries.Count do
        ValueListEditor1.InsertRow(obj.AddressLists(i).AddressEntries(j).Name, obj.AddressLists(i).AddressEntries(j).Address, false);
  except
  end;
end;

end.

Conclusion

Cette source ne doit pas servir à faire un virus, capish ?

Sources du même auteur

LIGNE DE COMMANDES (APP CONSOLE)

BUMP MAPPING

JOUER .XM EN PEU DE CODE (NO .DLL)

DU CODE C/C++ DANS VOS APP DELPHI

RENVERSEUR D'ECRAN

Toutes les sources de TheWhiteShadow

Sources de la même categorie

DÉPLACER LES ITEMS D'UNE TLISTVIEW PAR DRAG AND DROP par krzysiu

DEPLACER LES ITEMS D'UNE LISTBOX VERS UNE AUTRE PAR DRAG AND... par japee

SELECTDIRECTORY AVEC UNE CHECKBOXE. par ROCABDEL

CRÉATION UNE TABLE PARADOX PAR PROGRAMMATION par delyes

UTILITAIRE SUR LA BARRE DE NOTIFICATION par poulinr

Toutes les sources de la catégorie Control

Commentaires et avis

Commentaire de TheWhiteShadow le 31/08/2003 17:04:39

eyey j'ai trouvé où sont stockées les adresses :
C:WINDOWSApplication DataMicrosoftAddress Book dans les fichiers *.wab en Unicode... en trouvant une méthode efficace d'extraction, on peut récupérer toutes les adresses en mémoire, de msn etc...

au fait l'adresse est indiquée par la clé reg :
[HKEY_CURRENT_USERSoftwareMicrosoftWABWAB4Wab File Name]

voilà...

Commentaire de TheWhiteShadow le 31/08/2003 17:11:27

merde les slash sont pas passés... voilà dans l'autre sens :)

eyey j'ai trouvé où sont stockées les adresses :
C:/WINDOWS/Application Data/Microsoft/Address Book/ dans les fichiers *.wab en Unicode... en trouvant une méthode efficace d'extraction, on peut récupérer toutes les adresses en mémoire, de msn etc...

au fait l'adresse est indiquée par la clé reg :
[HKEY_CURRENT_USER/Software/Microsoft/WAB/WAB4/Wab File Name]

Commentaire de hackoustik le 13/10/2003 08:39:22

hello
jai utilisé ton code pour les contacts outlook que jai mis en DLL pour mon scirpt mIRC, mais mon soucis cest que jai une fenetre qui souvre demandant si je veut donner ces donnés, car cela pourrait venir dun virus,
je précise que jai enlever la partie dialog, car jai besoin que tout soit automatisé, jai fait en sorte quil lise et enregistre dasn un fichier texte les donnés,
je ne connait pas delphi, jai un peu programmer en pascal ya longtemps (turbo pascal 4) lolll c pour dire, regarde le code que jai fait, si tu peu me dire squi va pas la dedans, car sa marchesauf que sa enregistre rien, mé g pas derreurs:

function ContactsOutlook(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean):Integer;export;stdcall;
var
fichier : textfile;
     obj: OleVariant;
    i, j: integer;
begin
    AssignFile(fichier,'contacts.txt');
    Rewrite(fichier);
    try
    obj := CreateOleObject('outlook.application');
    obj := obj.GetNameSpace('MAPI');
    for i := 1 to obj.AddressLists.Count do
        for j := 1 to obj.AddressLists(i).AddressEntries.Count do
        write(fichier, string(obj.AddressLists(i).AddressEntries(j).Address) + string(obj.AddressLists(i).AddressEntries(j).Name));
    except
    end;
    closeFile(fichier);
    result:=2;
end;

passe une bonne journée ;)

Commentaire de LaurentLDS le 20/11/2003 10:37:39

Salut,

ton code ne fonction qu'avec Outlook 2000 pr la simple raison que tu utilises l'OLE Automation pr avoir acces a l'Address Book de Outlook, et cette methode de controle ne fonctionne pas avec OE!.

ciao

Commentaire de bigbalaise le 09/07/2007 21:59:59

j'utilise ce code pour lister mes contacts. le code ne fonctionne pas quand il y a une liste de diffusion. on obtient un message d'erreur du type "la methode lastname n'est pas pris en charge par l'objet automation". le pb se pose avec delphi 6 et 7 en utilisant outlook 2003.