Récuperer son carnet outlook en vb hihihihi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 768 fois - Téléchargée 50 fois

Contenu du snippet

récupéré les adresse email de son carnet d'adresse outlook

Source / Exemple :


Public Declare Function MAPIDetails Lib "MAPI32.DLL" Alias "BMAPIDetails" (ByVal Session&, ByVal UIParam&, Recipient As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long
Public Declare Function MAPIResolveName Lib "MAPI32.DLL" Alias "BMAPIResolveName" (ByVal Session&, ByVal UIParam&, ByVal UserName$, ByVal Flags&, ByVal Reserved&, Recipient As MapiRecip) As Long
Public Type MapiRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
Sub listemail()
  Dim X, I As Long
  Dim a As Object
  Dim out As Object
  Dim mapi As Object
  Dim ctrlists As Integer
  Dim info As MapiRecip
  Set out = CreateObject("Outlook.application")
  Set mapi = out.GetNameSpace("MAPI")
  For ctrlists = 1 To mapi.AddressLists.Count
     Set a = mapi.AddressLists(ctrlists)
         For X = 1 To a.AddressEntries.Count
             I = MAPIResolveName(0, 0, a.AddressEntries(X), 0, 0, info)
             Form1.resultat.Text = Form1.resultat.Text & "Nom  :  " & info.Name & String(45 - Len(info.Name), " ") & " @ : " & Replace(info.Address, "SMTP:", "") & vbCrLf
            ' I = MAPIDetails(0, 0, info, 0, 0) 'pour editer les détail.
             DoEvents
      Next
  DoEvents
  Next
  Set out = Nothing
  Set mapi = Nothing
End Sub

Conclusion :


ne pas utiliser pour faire un virus okay?????
a+

A voir également

Ajouter un commentaire

Commentaires

cs_ayoubinho
Messages postés
2
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
11 novembre 2008
-
merci mais faire de commentaire pour bien comprend
2parmelin
Messages postés
11
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
22 août 2007
-
Marche bien mais la liste s'affiche lentement chez moi (un contact par seconde environ).
Mopii9
Messages postés
91
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
23 mai 2005
-
fou un zip
ICIoBRa
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
-
T'utilise une référence outlook, tu devré la faire télécharger ...
Ca marcherai peux etre ;)
derbiman10
Messages postés
11
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
9 février 2006
-
j'ai un piti probleme a la ligne
Set out = CreateObject("Outlook.application")

vb me génère une erreur HELP ME svp

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.