Discussion :

[cheikh98]

Bonjour, j'ai un formulaire de recherche multicritères. Une fois que j'ai fait ma recherche j'obtiens des résultats qui sont affichés sous forme de noms dans une listbox et quand je double Click sur un nom un formulaire appelé détail s'ouvre qui contient des informations personnelles (Nom, Prénom, Age, Mail Adresse etc...). Maintenant je voudrais créer un formulaire de mailing qui envoi le même mail aux noms se trouvant dans la litsbox. Le soucis pour moi c'est d'aller récupérer les adresses mails car ils se trouvent dans un formulaire différent du formulaire de recherche.
Voici ce que j'ai fait pour le moment et c'est la ligne en rouge que je voudrai modifier pour y stocker toutes les adresses Mails. Donc si quelqu'un a un idée ou une piste je suis preneur.Merci d'avance.

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
20
21
22
23
24
25
26
Private Sub EnvoyerMessage_Click()
    Dim I as Integer
    Dim oApp As New Outlook.Application
    Dim oEmail As Outlook.MailItem
    Set oEmail = oApp.CreateItem(olMailItem)
    oApp.Session.Logon "", "", True, True
   For I= 0 To Forms!Recherche!Liste.ListCount -1
    oEmail.To = Me.txtTo
  Next I
    oEmail.Subject = Me.txtSubject
    oEmail.Body = Me.txtBody
    oEmail.Cc = Me.txtCc
    If Len(Me.txtAttachments) > 0 Then
        oEmail.Attachments.Add Me.txtAttachments.Value
    End If
    With oEmail
        If Not IsNull(.To) And Not IsNull(.Subject) And Not IsNull(.Body) Then
            .Send
            MsgBox ("Message Envoyé.")
        Else
            MsgBox ("Veuillez S'il Vous Plaît Remplir les Cases Vides.")
        End If
    End With
    Set oEmail = Nothing
    Set oApp = Nothing
End Sub

[loufab]

Bonjour,

Dans ta liste, ajoute l'adresse mail.

ainsi :

Code :

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

1
2
3
4
 
For I= 0 To Forms!Recherche!Liste.ListCount -1
    oEmail.To = oEmail.To & iif(isnull(oEmail.To),""; ";") & Forms!Recherche!Liste.column(N° de la colonne contenant l'adresse mail)
Next I

Attention ! les N° de colonne commence par 0.

Cordialement,