Comment importer plusieurs fichiers de contact vCard VCF dans Outlook 2007 en utilisant VBAComment importer plusieurs fichiers de contact vCard VCF dans Outlook 2007 en utilisant VBA
2
A
Répondre
3
Sub OpenSaveVCard()
Dim objWSHShell As Object
Dim objOL As Outlook.Application
Dim colInsp As Outlook.Inspectors
Dim strVCName As String
Dim vCounter As Integer
Dim ff As String
ff = Dir("d:\contacts\*.vcf")
Do While Len(ff)
strVCName = "d:\contacts\" & ff
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run Chr(34) & strVCName & Chr(34)
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
End If
End If
ff = Dir
Loop
End Sub
0
Ceci est basé sur des http://www.outlookcode.com/codedetail.aspx?id=212. Assurez-vous que seule la fenêtre Outlook principale est ouverte.
Sub OpenSaveVCard()
Dim objWSHShell As Object
Dim objOL As Outlook.Application
Dim colInsp As Outlook.Inspectors
Dim strVCName As String
Dim vCounter As Integer
Dim ff As String
ff = Dir("C:\Contacts\*.vcf")
Do While Len(ff)
strVCName = "C:\Contacts\" & ff
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run Chr(34) & strVCName & Chr(34)
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
End If
End If
ff = Dir
Loop
End Sub
1
J'ai fait face à quelques erreurs, ci-dessous est le celui qui a fonctionné pour moi. Il suffit de changer le chemin du répertoire, cela va fonctionner. Le répertoire devrait contenir des fichiers ".vcf" (n'importe quel nombre au dessus de centaines/thons).
Sub OpenSaveVCard()
Dim objWSHShell As Object
'Dim objOL As Outlook.Application
'Dim colInsp As Outlook.Inspectors
Dim strVCName As String
Dim vCounter As Integer
Dim ff As String
ff = Dir("D:\Contacts\*.vcf")
Do While Len(ff)
On Error Resume Next
strVCName = "D:\Upender\Contacts\" & ff
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run strVCName
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
End If
End If
ff = Dir()
Loop
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
End Sub
Questions connexes
- 1. comment ouvrir vCard bydefault dans Outlook 2007/03?
- 2. importer vcard dans android 2.1
- 3. Formulaire de contact 7 - Microsoft Outlook 2007
- 4. avec VBA Spellcheck dans Outlook 2007 dans une langue donnée
- 5. Télécharger le fichier vCard (.vcf) sur le site IIS7
- 6. Comment lire les catégories Outlook 2007 en utilisant C#
- 7. Importer des contacts du fichier .vcf dans Android 2.1
- 8. imprimer le document par programme avec VBA dans Outlook 2007
- 9. Comment importer facebook contact en utilisant php et se recourber
- 10. Accéder à un autre maibox dans Outlook en utilisant vba
- 11. Énumération des éléments sous un en-tête de groupe sélectionné dans Outlook 2007 avec VBA
- 12. utilisant le ruban Addin Outlook 2007
- 13. Comment faire pour définir par programme l'image de contact dans Outlook 2007?
- 14. Insertion de symboles en texte dans PowerPoint 2007 en utilisant VBA
- 15. Lecture vCalendar et vCard en utilisant .NET?
- 16. Comment persister certaines valeurs dans Outlook vba
- 17. Outlook 2007 plugin
- 18. Importer le nom de fichier dans la zone de liste sans accès au chemin 2007 vba-
- 19. Insérer vCard dans Android
- 20. Outlook 2007 Add-In
- 21. Access 2007 Use VBA
- 22. Convert vCard vrac contacter fichier aux fichiers simples
- 23. Format iCalendar (Outlook 2007)
- 24. css background Outlook 2007
- 25. Comment faire une réunion (dans le calendrier) dans Outlook 2007 en utilisant C#?
- 26. Comment importer plusieurs plugins/parties en utilisant MEF?
- 27. Outlook 2007 + Asp.net C#
- 28. Enregistrer des images dans Outlook 2007
- 29. Exportation de tâches Outlook 2007
- 30. Bibliothèque Python pour générer des fichiers VCF?
Pourriez-vous poster un message que vous avez essayé? – Jeremy
J'ai trouvé une solution et je voulais l'afficher ici. – user202448