Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Condition pour l'envoi d'e-mail automatisé (VBA)

Y

YohanSC

XLDnaute Nouveau
Bonjour à tous,

J'ai un code qui me permet d'envoyer les mdp et les noms d'utilisateur suivant une base de données. (envoi via outlook)

Cependant, je souhaiterais ajouter une condition car dans la colonne G , il se peut qu'il n’y ai pas d'adresse e-mail ( donc ne rien faire et passer à la cellule suivante)

Merci pour votre aide

Voici la macro :
Private Sub CommandButton1_Click()

Dim lemail As Variant
Dim ligne As Integer
For ligne = 1 To 150

Set lemail = CreateObject("Outlook.Application")

With lemail.createItem(olMailItem)

.Subject = "Vos données de connexion"

.To = Range("G" & ligne)

.Body = "Cher(e)s étudiant(e)s," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre login ainsi que votre mot de passe" & vbCrLf & "Nom utilisateur : " & Range("D" & ligne) & vbCrLf & "Mot de passe : " & Range("E" & ligne) & vbCrLf & "Voici le lien : " & vbCrLf & vbCrLf & "Cordialement,"

.Send
End With
Next ligne
ActiveWorkbook.Save
End Sub
 
Solution
Bonjour,
Bonjour,

Proposition :

VB: 
Private Sub CommandButton1_Click()

    Dim lemail As Variant
    Dim ligne As Integer

    '
    ' L'objet Outlook.Application n'a pas besoin d'être créé autant de fois que de lignes
    Set lemail = CreateObject("Outlook.Application")
  
    For ligne = 1 To 150

        '
        ' Tester la cellule avant de créer un mail
        ' Si arobase dans cellule alors traiter la ligne
        If InStr(Range("G" & ligne), "@") > 0 Then
            With lemail.createItem(olMailItem)

                .Subject = "Vos données de connexion"

                .To = Range("G" & ligne)

                .Body = "Cher(e)s étudiant(e)s," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre login ainsi que votre mot...
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour Yohan, le forum

En ajoutant une condition pour tester la colonne G + ligne
VB: 
Private Sub CommandButton1_Click()

Dim lemail As Variant
Dim ligne As Integer
For ligne = 1 To 150
    If  IsEmpty(Range("G" & ligne)) = False Then   ' Test si cellule G + Ligne est vide
    Set lemail = CreateObject("Outlook.Application")
        With lemail.createItem(olMailItem)
            .Subject = "Vos données de connexion"
            .To = Range("G" & ligne)
            .Body = "Cher(e)s étudiant(e)s," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre login ainsi que votre mot de passe" _
            & vbCrLf & "Nom utilisateur : " & Range("D" & ligne) & vbCrLf & "Mot de passe : " & Range("E" & ligne) & vbCrLf & "Voici le lien : " _
            & vbCrLf & vbCrLf & "Cordialement,"
            .Send
        End With
    End If
Next ligne
ActiveWorkbook.Save
End Sub

*J'ai modifié légèrement le code
@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,
Bonjour,

Proposition :

VB: 
Private Sub CommandButton1_Click()

    Dim lemail As Variant
    Dim ligne As Integer

    '
    ' L'objet Outlook.Application n'a pas besoin d'être créé autant de fois que de lignes
    Set lemail = CreateObject("Outlook.Application")
  
    For ligne = 1 To 150

        '
        ' Tester la cellule avant de créer un mail
        ' Si arobase dans cellule alors traiter la ligne
        If InStr(Range("G" & ligne), "@") > 0 Then
            With lemail.createItem(olMailItem)

                .Subject = "Vos données de connexion"

                .To = Range("G" & ligne)

                .Body = "Cher(e)s étudiant(e)s," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre login ainsi que votre mot de passe" & vbCrLf & "Nom utilisateur : " & Range("D" & ligne) & vbCrLf & "Mot de passe : " & Range("E" & ligne) & vbCrLf & "Voici le lien : " & vbCrLf & vbCrLf & "Cordialement,"

                .Send
            End With
        End If
    Next ligne
    Set lemail = Nothing ' Destruction de l'objet applicaiton
    ActiveWorkbook.Save
End Sub

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
205
TooFatBoy
  • Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
660
halecs93
  • Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
397
patricktoulon
M
  • Résolu(e)
XL 2019 Excel - générer .PDF avec envoie mail
Réponses
12
Affichages
2 K
Mika07
M
  • Question
Microsoft 365 VBA Création Question liste destinataire
Réponses
6
Affichages
408
youky(BJ)
J
  • Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
573
J@ba
J
Z
  • Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
899
kiki29
D
  • Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
2 K
David62800
D
H
  • Question
XL 2019 Dupliquer macro pour l'envoi de mail
Réponses
4
Affichages
915
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…