Récuperer son carnet outlook en vb hihihihi

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Crevette)