Confirmation avant envoi Sendmail

Version imprimable

bonjour,

j'ai une macro qui me permet d'envoyer un mail par Sendmail mais j'aimerai que lorsque la personne clique sur le bouton que cela affiche une fenetre avec un truc genre "confirmer l'envoi" oui/non
Si elle clique sur oui ça envoi si non ça ne fait rien

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub envoiMailEtFeuilleActive() Rows("13:300").EntireRow.AutoFit Rows("10:10").RowHeight = 45 Rows("11:11").RowHeight = 45 ActiveSheet.Copy ' créée une copie de la feuille active ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning" MsgBox ("Message envoyé") Application.DisplayAlerts = False ActiveWorkbook.Close ' supprime le classeur créé après l'envoi Application.DisplayAlerts = True End Sub
merciiiiiii

Bonjour,

Peut être que ceci pourrait marcher

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub envoiMailEtFeuilleActive()
 
If MsgBox("Confirmer l'envoi?", vbOKCancel, "Confirmation") = vbOK Then
 
    Rows("13:300").EntireRow.AutoFit
    Rows("10:10").RowHeight = 45
    Rows("11:11").RowHeight = 45
    ActiveSheet.Copy ' créée une copie de la feuille active
    ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True
 
 
    ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning"
    MsgBox ("Message envoyé")
    Application.DisplayAlerts = False
    ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
    Application.DisplayAlerts = True
Else
    Exit Sub
End If
End Sub

11/07/2013, 08h56
miliev83

Super rapide et efficace merci :)

Salut c'est encore moi :lol:

Juste un truc j'ai mis un code Msgbox lorsque le message est envoyé mais par exemple si l'adresse mail est manquante ou fausse il m'ouvre la fenetre pour que j'envoi ce mail manuellement mais cest la que le pb se pose : si je ferme cette fenetre et que je n'envoi pas le mail cette fenetre s'affiche quand même alors que le mail n'est pas parti

J'aimerai donc que si la procédure ne va pas jusqu'au bout qu'il ne m'affiche rien, une idée ????

Merciiiii

Bonjour,

A mon avis, il serait plus simple de ne pas afficher le message à partir du moment où la fenêtre outlook s'ouvre, soit si j'ai bien compris quand la cellule Z11 est vide.

Peut être que ceci pourrait faire l'affaire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub envoiMailEtFeuilleActive()
 
If MsgBox("Confirmer l'envoi?", vbOKCancel, "Confirmation") = vbOK Then
 
Rows("13:300").EntireRow.AutoFit
Rows("10:10").RowHeight = 45
Rows("11:11").RowHeight = 45
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveSheet.Protect Password:="x", DrawingObjects:=True, Contents:=True, Scenarios:=True
 
 
ActiveWorkbook.SendMail Recipients:=Range("Z11").Value, Subject:="Planning"
 
If range("Z11").value <> "" then
MsgBox ("Message envoyé")
end if
 
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End If
End Sub

En espérant que cela puisse aider

11/07/2013, 11h24
miliev83

le truc c'est que c'est pas forcément quand la cellule est vide, ça peut être soit :
- que l'adresse contient une faute d'écriture ( une virgule, point d'interrogation etc)
- que la recherchev n'a pas marché et que cela me trouve du coup aucune adresse qui correspond

à ces moment là, le process s'arrête, j'ai ma copie qui a été créé et la fenetre pour envoyer qui s'ouvre pour que je choisir manuellement mon destinaire.

Mais si l'utilateur ferme pour relancer la macro ça affiche "message envoyé" et là c'est la panique à bord lol
11/07/2013, 11h59
EngueEngue

Code:

If range("Z11").value <> "" OR ... OR ... OR then

Remplace par tes conditions
11/07/2013, 13h22
Mr Poulpe

Sinon peut être que tu peux poursuivre la procédure uniquement si la cellule Z11 contient au moins un arobas (en supposant que s'il y a un arobas dedans il s'agit d'une adresse mail)

Par exemple en rajoutant

Code:

if instr(1,range("z11").Value,"@",1) = 0 then exit sub

au début de la procédure
11/07/2013, 14h15
miliev83

Citation:

If range("Z11").value <> "" OR ... OR ... OR then
Remplace par tes conditions

Ok mais comment je définie les cas où l'adresse est fausse ou que le nom de mon destinataire ne correspond à aucun nom de ma liste ?

Citation:

Sinon peut être que tu peux poursuivre la procédure uniquement si la cellule Z11 contient au moins un arobas (en supposant que s'il y a un arobas dedans il s'agit d'une adresse mail)

Par exemple en rajoutant

if instr(1,range("z11").Value,"@",1) = 0 then exit sub

au début de la procédure

Idem, si l'adresse y est mais quelle contient une erreur ?

En fait le top ce serait que si l'utilisateur ferme la fenetre qui s'ouvre pour envoyer manuellement que là ça n'affiche rien
11/07/2013, 14h44
Mr Poulpe

Le problème, c'est que la fenêtre qui s'affiche vient d'outlook et pas de Excel, et de fait, ça me semble assez difficile à piloter depuis VBA Excel. Il faudrait utiliser du code dans outlook, et le donner à chacun des utilisateurs du classeur, ce qui me semble très peu pratique.

Enfin, personnellement je ne vois pas de solution raisonnable à mettre en place.
11/07/2013, 15h00
miliev83

non je ne passe pas par outlook je ne l'ai même pas lol je pense que c'est la fenêtre de l'onglet "courrier electronique" avec la pièce jointe