Alerte par mail
x
bonjour
ci joint tableau gestion de stock
j'aimerai etre alerte par mail quand colonne K passe en rouge
mais je ne trouve pas la formule
merci pour votre aide
l
Bonjour,
Voici du code VBA qui marche avec Access :
Private Sub EnvoiMail(eMail as string)
Dim objMessage As Object
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message avec pj"
objMessage.FROM = "xxxxx@wanadoo.fr"
objMessage.To = eMail
objMessage.TextBody = "Essai d'automation Access."
objMessage.CC = "xxxx@wanadoo.fr"
objMessage.AddAttachment "c:\temp\readme.txt"
objMessage.Send
MsgBox "Le message a été envoyé à " & eMail
Set objMessage = Nothing
End Sub
Voir aussi :
A plus,
Lazade