Discussion :

[Renardo]

Bonjour et bon week-end a tous
Je voudrais savoir si a partir de ce code pour envoyer un email il serait possible d'utiliser une liste de choix (a choix multiple ou simple) pour selectionner les adresses et faire une boucle sur le code de façon a envoyer toute les adresses
merci d'avance pour votre aide

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
Private Sub Commande105_Click()
 
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
With Ol_Item
.To = Me.Adresse
.Subject = "Journal Sécurité"
.Body = "Envoi fiche Journal sécurité"
.Attachments.Add "C:\Documents and Settings\Administrateur\Mes documents\JounalSecuArchive.PDF"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
 
End Sub

[Décibel]

Tu crés une zone de liste (Liste10) avec dans les paramêtres "autres/selections multiple/ sur simple.
Puis tu utilises le code suivant :

Code :

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

1
2
3
4
5
6
7
  Set ctl = Liste10 ' ta liste
    For Each Varitm In ctl.ItemsSelected 'Boucle pour récupérer les adresses choisies
 
   'ton code pour envoyer les emails ici
 
 
 Next Varitm

[Renardo]

merci pour ton aide je teste et te dit si sa marche

[Renardo]

bon il me semblait que j'avaits deja essayé
sa marche pas ma liste renvoi une valeur nul
voici le code que j'ai mis

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
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
Set ctl = Liste78
For Each Varitm In ctl.ItemsSelected
 
With Ol_Item
.To = Me.Liste78
.Subject = "rapport anomalie"
.Body = "Envoi fiche rapport anomalie"
.Attachments.Add "C:\Documents and Settings\Administrateur\Mes documents\RapportAnomalie.pdf"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
Next Varitm

[Décibel]

et comme ça :

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
 
Set ctl = Liste78
For Each Varitm In ctl.ItemsSelected
 
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
With Ol_Item
.To = Me.Liste78
.Subject = "rapport anomalie"
.Body = "Envoi fiche rapport anomalie"
.Attachments.Add "C:\Documents and Settings\Administrateur\Mes documents\RapportAnomalie.pdf"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
Next Varitm

[Renardo]

c'est bon j'ai trouvé
il suffit de rajouter le numero de colonne de la liste
voici le bon code

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
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)

Set ctl = Liste78
For Each Varitm In ctl.ItemsSelected
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = Me.Liste78.Column(0)
.Subject = "rapport anomalie"
.Body = "Envoi fiche rapport anomalie"
.Attachments.Add "C:\Documents and Settings\Administrateur\Mes documents\RapportAnomalie.pdf"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
Next Varitm

merci pour ton aide