Script de demande de confirmation d'envoi de mail

Bonjour,

J'ai fait un script pour envoyer une partie d'une feuille excel par mail (à un groupe de personne) via un bouton.

Le seul problème c'est que si on appuie par erreur sur le bouton, le mail s'envoi.

Je voudrais ajouter une sécurité supplémentaire dans mon script qui demanderais si on confirme l'envoi du mail.

Si on confirme OUI, le mail s'envoi si c'est NON, on revient à la feuille sans envoi du mail.

Avez-vous une idée de comment mettre cela en place ?

Merci pour votre aide précieuse.

Bonjour,

remplace

.Send

par

.Display

tu auras la possibilité d'annuler le message sur la fenêtre du message qui s'ouvre.

Merci beaucoup. Ca fonctionne.

Petite chose, n'y-a-t-il pas moyen d'avoir une message Box avec un choix OUI/NON ?

Merci beaucoup. Ca fonctionne.

Petite chose, n'y-a-t-il pas moyen d'avoir une message Box avec un choix OUI/NON ?

tu as la possibilité d'annuler le message sur la fenêtre du message qui s'ouvre.

J'ai la fenêtre d'envoi qui s'ouvre et qui reste ouverte en attendant que le valide l'envoi mais je n'ai pas de possibilité d'annuler l'envoi

J'ai la fenêtre d'envoi qui s'ouvre et qui reste ouverte en attendant que le valide l'envoi mais je n'ai pas de possibilité d'annuler l'envoi

pour annuler cette envoi, fait un clic sur la croix en haut à droite de la fenêtre mail.

Je t'ai envoyé une capture car je n'ai pas cette croix.

Je suis sur Excel 365

capture

re,

peux-tu joindre ton fichier excel ?

Bonjour,

Voici un backup du fichier.

J'ai supprimé les adresses mail de destination afin d'évier des erreurs.

Merci

re,

à tester,

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

With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , voici le rapport du Small Orders"
    .Item.To = "mail@mail.com"
    .Item.Subject = "Rapport Small Orders"
    Response = MsgBox("Voulez-vous envoyer le mail", vbYesNo + vbCritical + vbDefaultButton2, "MAIL")
        If Response = vbYes Then
            .Item.Send
        Else
            .Item.Delete
        End If
End With
End Sub

Bonjour,

C'est parfait. Un tout grand merci.

Je vais devoir me plonger dans l'apprentissage en profondeur de VBA

Bonne journée.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton

resolu
Rechercher des sujets similaires à "script demande confirmation envoi mail"