XL 2016 envoi mails a plusieurs destinateurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chakershaker

XLDnaute Junior
Bonjour forum, je cherche si possible d'envoyer un mail à plusieurs destinateur à la fois si je coche les optionbuttoms correspondants. merci beaucoup s'il ya des solutions
Capture.PNG
 

Pièces jointes

Solution
Bonjour,
VB:
Private Sub CommandButton1_Click()

'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
        .Introduction = "bonjour , ci joint: Inventaire F2"
         D = ""
         For Each ctrl In Me.Controls
            Select Case True
                Case Not TypeName(ctrl) = "OptionButton"
                Case Not ctrl ' non coché
                Case D = "": D = ctrl.Caption
                Case Else: D = D & ";" & ctrl.Caption
            End Select
        Next
        .Item.To = D
        '.Item.Send
    End With...
Bonjour,
VB:
Private Sub CommandButton1_Click()

'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
        .Introduction = "bonjour , ci joint: Inventaire F2"
         D = ""
         For Each ctrl In Me.Controls
            Select Case True
                Case Not TypeName(ctrl) = "OptionButton"
                Case Not ctrl ' non coché
                Case D = "": D = ctrl.Caption
                Case Else: D = D & ";" & ctrl.Caption
            End Select
        Next
        .Item.To = D
        '.Item.Send
    End With
    
Unload Me

End Sub
 
Bonjour,
VB:
Private Sub CommandButton1_Click()

'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
        .Introduction = "bonjour , ci joint: Inventaire F2"
         D = ""
         For Each ctrl In Me.Controls
            Select Case True
                Case Not TypeName(ctrl) = "OptionButton"
                Case Not ctrl ' non coché
                Case D = "": D = ctrl.Caption
                Case Else: D = D & ";" & ctrl.Caption
            End Select
        Next
        .Item.To = D
        '.Item.Send
    End With
   
Unload Me

End Sub
oui, ça bien marché juste après ajout
.Item.Send
Merci beaucoup
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
358
  • Question Question
Réponses
5
Affichages
167
Réponses
10
Affichages
135
Réponses
10
Affichages
204
Retour