Envoi de mail

Question

Voici ce que j'essai de faire : 1. Si colonne C = "OUI" alors l'ajouter aux destinataires 2. Quand je clique sur "Envoyer" le mail est envoyé à tout les destinataires sélectionnés. Merci...

fred2406 · Answer

Un essai fais avec outlook qui affiche pour le moment le message mais on peu l'envoyer directement en mettant en commentaire la ligne .display et activer la ligne .send Fred...

LouReeD · Answer

Bonsoir @ vous deux !

Sympa le code !

Je vais le mettre de coté.

Ceci dit, j'ai modifié le code "double-clic" afin de ne pas entrer dans la cellule et de faire en sorte que l'effacement du OUI se fasse également par double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("C2:C6")) Is Nothing Then
        If ActiveCell.Value = "OUI" Then
            ActiveCell.Value = ""
        Else
            ActiveCell.Value = "OUI"
        End If
    End If
End Sub

et un test avant l'envoie (si utile) :

Public Sub EnvoiAutomatiqueMail()
    If [G3].Value = "" Then
        MsgBox ("Pas de destinataire !")
        Exit Sub
    End If
[...]

Voilà, si cela peut vous intéresser

@ bientôt

LouReeD

fred2406 · Answer

N'oublie pas de clore le sujet si le problème est résolu : Merci Fred...