Envoie mail à l'enregistrement d'un fichier
dx069
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Dx069 -
Dx069 -
Bonjour,
Je suis nouveaux sur ce site et sollicite votre aide.
J'ai modifié cette macro trouvée ici afin qu'elle envoie un mail à 2 destinataires quand on enregistre le fichier excel (ça marche). Je voudrais savoir s'il est possible et, si oui, comment faire, pour pouvoir choisir entre les 2 destinataires pour que seul celui choisi reçoive le mail
Merci de votre aide.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "xxxx@xxxxx.com"
monmail.Subject = "Modifs"
monmail.Body = "Modifications enregistrées dans le fichier machin"
monmail.Send
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "aaaaaaa@aaaa.com"
monmail.Subject = "Modifs"
monmail.Body = "Modifications enregistrées dans le fichier machin"
monmail.Send
Set ol = Nothing
End Sub
Je suis nouveaux sur ce site et sollicite votre aide.
J'ai modifié cette macro trouvée ici afin qu'elle envoie un mail à 2 destinataires quand on enregistre le fichier excel (ça marche). Je voudrais savoir s'il est possible et, si oui, comment faire, pour pouvoir choisir entre les 2 destinataires pour que seul celui choisi reçoive le mail
Merci de votre aide.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "xxxx@xxxxx.com"
monmail.Subject = "Modifs"
monmail.Body = "Modifications enregistrées dans le fichier machin"
monmail.Send
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "aaaaaaa@aaaa.com"
monmail.Subject = "Modifs"
monmail.Body = "Modifications enregistrées dans le fichier machin"
monmail.Send
Set ol = Nothing
End Sub
A voir également:
- Envoie mail à l'enregistrement d'un fichier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
3 réponses
Bonjour
Essaie de modifier ta macro ainsi :
Cdlmnt
Via
Essaie de modifier ta macro ainsi :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
r=Inputbox("Mail à envoyer : 1 à xxxx@xxxxx.com, 2 à aaaaaaa@aaaa.com ")
if r=1 or r=2 then
if r=1 then dest="xxxx@xxxxx.com" else dest="aaaaaaa@aaaa.com"
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = dest
monmail.Subject = "Modifs"
monmail.Body = "Modifications enregistrées dans le fichier machin"
monmail.Send
End if
End sub
Cdlmnt
Via
