Envoyer des mails à plusieurs destinataires selectionner depuis LISTBOX

Bonjour à tous

Je cherche le moyen d'envoyer depuis mon formulaire un mail aux destinataires sélectionner dans une listbox multi selections .

Pour ouvrir le formulaire il faut modifier la date dans la colonne H,

dans le formulaire je sélectionne plusieurs destinataires mais je ne

sais pas comment faire pour que cela fonctionne.

Merci d'avance pour votre aide.

Bonne journée à tous

Cross posting

Bonsoir le forum !

Edit modo

@ netparty, je pense qu'avec le moteur de recherche du site vous devriez trouver votre bonheur car ce genre de sujet reviens régulièrement...

@ bientôt

LouReeD

Bonsoir NetParty,

Bonsoir le forum

Voici une solution pour récupérer les destinataires cochés dans la listbox :

- Ajout du bout de code suivant dans la procédure BP_ENVOI_Click()

For i = 0 To ListBox1.ListCount - 1

    If ListBox1.Selected(i) = True Then

        If destinataire = "" Then
            destinataire = ListBox1.List(i)
        Else
            destinataire = destinataire & ";" & ListBox1.List(i)
        End If

    End If

Next i

- Sélection de la référence "Outlook" dans les options de l'éditeur vba

capture d ecran 2022 08 07 003116

Dit moi si cela fonctionne bien comme tu le souhaite

Cordialement,

Bonjour le fil,

@StreetChris82, tu n'es pas obligé de sélectionner la référence Microsoft Outlook (cela évite les indomptabilités entre version)

Voir ceci https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508

@Netparty le CROSS POSTING (le fait de demander la même chose sur plusieurs forum) n'est pas toléré ici et sur XLD
merci de relire la charte du forum

A+

Bonjour @Streetchris82

Merci ton code fonctionne parfaitement

Est-il possible si aucune sélection n'est faite dans la listbox avoir un message d'avertissement comme quoi il n'y a pas de destinataire sélectionné.

Merci et bonne journée

Bonjour à toi

Merci de votre aide et désolé pour le multipost

Bonne journée à tous

Bonjour Christophe,

Dans la sub

Private Sub BP_ENVOI_Click()

Après la boucle

  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      If destinataire = "" Then
        destinataire = ListBox1.List(i)
      Else
        destinataire = destinataire & ";" & ListBox1.List(i)
      End If
    End If
  Next i

Tu mets le code

  ' Vérifier si des destinataires ont été cochés, la variable n'est donc pas vide
  If destinataire = "" Then
    MsgBox "Vous ne pouvez pas envoyer de mail," & vbCr _
    & "si aucun destinataire n'est sélectionné !", vbInformation, "OUPS..."
    Exit Sub
  End If

Ca me semble logique, non

Bonsoir tous le monde

@BrunoM45 : Merci pour l'info et le lien, je vais étudier ton code avec attention.

Cordialement,

Rechercher des sujets similaires à "envoyer mails destinataires selectionner listbox"