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
Partager