Envoie mail à l'enregistrement d'un fichier

Fermé

dx069 Messages postés 2 Date d'inscription samedi 21 octobre 2017 Statut Membre Dernière intervention 21 octobre 2017 - 21 oct. 2017 à 14:09
Dx069 - 25 oct. 2017 à 10:13

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

A voir également:

Envoie mail à l'enregistrement d'un fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Yahoo mail - Guide

3 réponses

Réponse 1 / 3

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
21 oct. 2017 à 14:24

Bonjour

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

Réponse 2 / 3

dx069 Messages postés 2 Date d'inscription samedi 21 octobre 2017 Statut Membre Dernière intervention 21 octobre 2017
21 oct. 2017 à 14:29

Nickel,

un tout grand MERCI

Réponse 3 / 3

Dx069
25 oct. 2017 à 10:13

Re bonjour.

Autre problème auquel je n avais pas pensé.
Il y a plusieurs compte sur la boite Outlook et lors de l envoie du mai il l est demandé le nom utilisateur et le mot de passe.
Y a t il moyen de les encoder directement ?
Merci

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters