1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Btn_envoyer_Click()
Dim Objet1 As Variant
Dim Message1 As Variant
Dim VarE1 As Variant
Dim user As Variant
Dim stDocName1 As Variant
Dim VarE2 As Variant
user = Me.CmdEmpl_login
VarE1 = DLookup("[Emp_Messagerie1]", "T_Employe", "[Emp_ID]=" & VarE2.Value)
VarE2 = DLookup("[Emp_ID]", "T_Employe", "[Emp_Chef]=" & Me.CmdEmpl_login.Value)
Recipient = "VarE1"
ccRecipient = ""
bccRecipient = ""
Subject = "Une commande vous a été envoyé par " + user + " ."
BodyText = "Veuillez consulter Bov_achat pour donner votre accord" |
Partager