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

[Marc31]

Il me marque variable non définie sur (olMailItem), c'est quoi une string?

[Daniel.C]

Bonjour,

Dans la fenêtre VBE, va dans le menu "Outils" puis "Références". Coche la référence "Microsoft Outlook nn Object Library"; "nn" dépend de ta version d'Office; ça devrait être "11.0" pour Office 2003.

c'est quoi une string?

C'est une chaîne de caractères, comme "toto" ou "7791ZH77". Une variable "string" est une variable qui contient une telle chaîne.

[Marc31]

SUPER merci beaucoup ça marche!!!!

Je mets le code ci dessous si cela peux aider quelqu'un d'autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton2_Click()
 
    Dim OlApp As Object
    Dim M As Object
    Dim i As Integer
 
 
    Set OlApp = CreateObject("Outlook.application")
    Set M = OlApp.CreateItem(olMailItem)
    With UserForm8.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
 
End Sub

Encore merci et bonne journée