Discussion :

[Marc31]

Bonjour à tous,

Actuellement je travaille sur un outil de recherche.
Selon le choix (plusieurs combobox), le resultat s'affiche dans une listbox.
Jusque là tout va bien.
Ensuite lorsque le choix de pluieurs personnes s'affichent dans la listbox, j'aimerais pouvoir selectionner certaines adresses email et appuyer sur un bouton "envoyer" et que cela m'ouvre outlook avec les adresses emails validé.
Si qquelqu'un pouvait m'aider,MERCI et bonne soirée

[Daniel.C]

Bonjour,

Elle se trouve où, l'adresse mail ? Dans la listbox (quelle colonne?) ou sur une feuille (quelle colonne également?).

[Marc31]

En fait sur la feuille excel "BDD" dans la colonne R et dans la listbox elle est à la position 9 (colonne).

[Daniel.C]

En changeant le nom de l'userform et de la listbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim OlApp As Object, M As Object
    Set OlApp = CreateObject("Outlook.application")
    Set M = OlApp.CreateItem(olMailItem)
    With UserForm1.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                M.Recipients.Add .List(i, 8)
            End If
        Next i
    End With
    M.display