1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub cmd_mail_Click()
'Déclaration des variables
Dim Msg, Style, Title, Response, Dest As String
'Initialisation des variables
Msg = "Votre demande a bien été envoyé !" ' Définit le message
Style = vbOKOnly + vbInformation ' Définit les boutons
Title = "Félicitation " ' Définit le titre
Dest = "toto@test.fr" ' Définit les destinataires de la notification par mail
'Lignes de commande de la fontion
'La 1er solution est pour moi la meilleur, car l'envoi du mail est transparent
'/*********1ere solution**************/
ActiveWorkbook.SendMail Recipients:=Dest, Subject:="kikou"
'/**********2eme solution*********************/
Application.Dialogs(xlDialogSendMail).Show (Dest)
Response = MsgBox(Msg, Style, Title)
End Sub |
Partager