Export de donnée Exchange-Outlook

Question

J'ai besoin de récuperer des données contenu dans le carnet d'adresse d'outlook... Comment faire???

j'attend avec impatience vos idées car je seche...

Merci

ali · Answer

j'effectue actuellement la même chose, disons que je met à jour le carnet d'adresse de la société, et celui de outlook. si ca t'interresse je t'envoi mon programme.
Par contre je seche sur un truc, c'est que je n'arrive pas à mettre mon fichier INI sur la commande( cf frm_main). Si tu peux m'aider, contact moi sur aqureshi@newpartner.com.
Merci

MIRSA · Answer

Pourrais-tu m'envoyer ton programmle de mise a jour du carnet d'adresse sous outlook SVP !
Merci

cs_raphaelle37 · Answer

bonjour,

avez-vous trouvé réussi votre manip car je serais très intéressée étant sur le même sujet.
Merci de m'en tenir informé car je sèche sur mon projet d'import export entre outlook et access
raph

cs_picoti · Answer

Bonjour,

J'ai les mêmes besoins que vous.
Si vous pouvez me renseigner sur vos recherches.

merci,@+.

jfou1161 · Answer

si quelqu'un peut m'envoyer le code à jfr@orgeco.org
Merci

chicopelico · Answer

Sub AfficheContacts_onclick


  Dim oOutlook
  Dim NameSpace
  Dim txtMsg
  Dim iNumDossierOutlook


  txtMsg = "afficher les contacts ?" & VbCrLf
  txtMsg = txtMsg & "Souhaitez vous continuer ?"


  IF Msgbox(txtMsg, VbYesNo + VbQuestion, Titre) = VbYes Then
        
  ' Outlook :
  Set oOutlook = CreateObject("Outlook.Application")


  ' Espace de nom
  Set NameSpace = oOutlook.GetNameSpace("MAPI")


  For iNumDossierOutlook = 1 To NameSpace.Folders.Count
    Set oDossierOutlook = NameSpace.Folders.Item(iNumDossierOutlook)
    document.Write oDossierOutlook.Name & "
"
    For iNumSousDossier = 1 To oDossierOutlook.Folders.Count
      Set oDossier = oDossierOutlook.Folders.Item(iNumSousDossier)
      document.Write "_" & oDossier.Name & "
"
      IF (oDossier.DefaultItemType = 2) Then
        For iNumItem = 1 To oDossier.Items.Count
          Set oFicheContact = oDossier.Items.Item(iNumItem)
          document.Write "__" & oFicheContact.FullName & "
"
           Set oFicheContact = Nothing
         Next
      End IF
      Set oDossier = Nothing
    Next
    Set oDossierOutlook = Nothing
  Next
        Set NameSpace    = Nothing
        Set oOutlook       = Nothing
  Msgbox "Mise &#224; jour termin&#233;e"



  End If
End Sub

j espere avoir pu aider quelqu'un.
par contre si quelqu'un arrive a creer des contacts dans outlook a partir d'un page web (sur un intranet) &#231;a m'interesse enormement ; (en gros j'aimerais arriver a creer l'objet ContactItem a partir d'une page sur un intranet)
Si vous pouviez m'aider &#231;a me ferait gagner beaucoup de temps.
Vous pouvez me contacter a chicopelico@ hotmail.com
Merci d'avance

Export de donnée Exchange-Outlook

6 réponses

Discussions similaires