1 2 3 4 5 6 7 8 9 10 11 12 13
|
Private Sub DRP_AfterUpdate()
Dim destinataire As String
destinataire = InputBox("Vous avez entré une DRP. La DFA va être supprimée et un mail automatique va être généré afin que la DFA soit revu en conséquence (mail modifiable dans votre boite d'envoi)." _
& vbCrLf & vbCrLf & "Veuillez entrer les adresses des destinataires du mail ci-dessous.", "Mail d'information de modification de DRP", DFirst("[email DRP]", "VERSION BRICE"))
If destinataire <> "" Then
DoCmd.SendObject , , , destinataire, "", "", "Nouvelle Date Réception Produit: " & [Lot] & " - " & [Nom produit], [Nom produit] & " - " & [type produit] & vbCrLf & [Lot] & vbCrLf & "Nouvelle DRP : " & [DRP] _
& vbCrLf & "Vous devez mettre à jour la DFA et l'ARC en conséquence" & vbCrLf & "(DFA prévue: " & [DFA] & " --- ARC prévu: " & [ARC] & " --- Ces dates ont été supprimées sous Brice.)" _
& vbCrLf & vbCrLf & vbCrLf & "Ce mail a été généré automatiquement par Brice à la suite d'une entrée de DRP", True
[DFA] = ""
[ARC] = ""
End If
End Sub |
Partager