Re : Importer des adresses mails excel via outlook
Bonjour à tous,
Je revois ce mail très intéressant.
Par contre, quelle est la commande pour importer un Groupe de contact.
* En fait j'ai une liste de clients, et aimerais les regrouper par société; c'est à dire créer plusieurs groupes de diffusion dans mes contacts outlook.
* si je mets à jour mon fichier excel par la suite (suppression ou ajout dans les différents groupes) la mise à jour se fait-elle ou je vais dupliquer les groupes de diffusion? je préfère poser la question avant de polluer ma liste de contacts....
Code vba:
Option Explicit
Sub AjoutContact()
Dim olApp As Object, olItem As Object, i&
Set olApp = CreateObject("Outlook.Application")
For i = 2 To [A65536].End(xlUp).Row
Set olItem = olApp.CreateItem(2)
With olItem
.FirstName = Cells(i, 4)
.Email1Address = Cells(i, 6)
.HomeAddressCity = Cells(i, 5)
.Save
End With
Next
End Sub
A vous lire
Nico
Pray for Belgium