Récuperer son carnet outlook en vb hihihihi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 088 fois - Téléchargée 52 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+
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
1 nov. 2008 à 23:00
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
23 nov. 2005 à 14:17
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
26 janv. 2005 à 18:36
fou un zip
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
4 sept. 2003 à 22:28
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
25 août 2003 à 12:29
j'ai un piti probleme a la ligne
Set out = CreateObject("Outlook.application")

vb me génère une erreur HELP ME svp
Afficher les 12 commentaires

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.