XL 2019 automatisation d'envoi par macro

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2020

• #2

Bonsoir le fil

=>fifi63 (Bienvenue sur le forum)

Et j'aimerai qu'un mail s'envoi automatiquement (par Outlook ouvert ou pas

Cliquez pour agrandir...

Et moi j'aimerais que les nouveaux membres du forum prennent le temps de lire la charte du forum et se recoiffent avant de poser leur question
🙄
🙂

 

Vote positif 0 Vote négatif

F

fifi63

XLDnaute Nouveau

• 20 Décembre 2020

• #3

bonsoir,
j'ai lu la chartre en septembre 2019 lors de mon inscription.
En quoi ma demande est-elle hors chartre pour avoir une tel réponse ( le mot aimerai )?
Si c est le cas je suis désolé j'aurai du écrire "désirerais"
cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2020

• #4

Re

[message toujours en mode humour de fin de week-end - inodore et indolore]
Les emoticones dans mon précédent message indiquait le ton du message (humour et ironie)
Alors je vais essayer d'être plus clair 😉
Ci-dessous extrait de la charte

Demandeur
1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée.
Ne pas hésiter à l’utiliser.

Cliquez pour agrandir...

Ta question du jour a été posée plus de 683 fois sur le forum
C'est ce que voulait dire le message#2
(avec mon style habituel)
[/message toujours en mode humour de fin de week-end - inodore et indolore]

 

Vote positif 0 Vote négatif

F

fifi63

XLDnaute Nouveau

• 20 Décembre 2020

• #5

Merci pour ta réponse.
Je viens de trouver une vidéo sur le forum pour le bouton.
Je vais chercher un peu mieux en ce qui concerne l'envoi du mail. Les réponses trouvées actuellement ne correspondent pas à ce que je désirerais faire.

cordialement

fifi

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2020

• #6

Re

Un exemple trouvé dans les archives

Envoi mail via gmail si modification fichier(Resolu)

bonjour a tous et d avance merci du temps que vous prendrez pour m aidez. Pour commencer je debute en programmation vb alors voila mon souci . je desire que si mon fichier en excel 2010 est modifier,un mail systematique soit envoyer a plusieurs personnes pour leur signaler la modification ce...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

F

fifi63

XLDnaute Nouveau

• 21 Décembre 2020

• #7

bonjour,
j ai trouvé sur le forum une partie de ce que je recherchai.(macro et bouton)
Par contre je ne trouve pas la ligne de macro à rajouter qui permettrai d'envoyer le mail sans que Outlook soit ouvert.
Peux ton joindre le lien du fichier automatiquement au mail ?(le fichier est sur le réseau de l'entreprise)
cela n'est peux être pas possible.

ci joint macro:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sub mail()
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "mon mail "
monmail.To = "autre mail "
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportées au planning de fabrication"
monmail.Send
Set ol = Nothing
End Sub

merci d'avance
fifi

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Décembre 2020

• #8

Bonjour

Ta macro ainsi rédigée ne peut fonctionner

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sub mail()
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "mon mail "
monmail.To = "autre mail "
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportées au planning de fabrication"
monmail.Send
Set ol = Nothing
End Sub

Ta macro Mail devrait être dans un module standard et ta procédure évenementielle sera donc

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Mail
End Sub

Et dans un module standard donc

VB:

Sub mail()
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "mon mail "
monmail.To = "autre mail "
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportées au planning de fabrication"
monmail.Send
Set ol = Nothing
End Sub

 

Vote positif 0 Vote négatif

F

fifi63

XLDnaute Nouveau

• 21 Décembre 2020

• #9

bonjour
merci ça marche nickel.
dernier point :comment joindre un lien au mail.
j'ai copié le lien à la suite de la ligne :
monmail.Body = "Modifications apportées au planning de fabrication lien .\\SRV**********"
la phrase et le lien s'envoi bien mais je ne peux pas cliquer dessus pour l'ouvrir.
est ce possible ,qu' il s'ouvre en cliquant dessus?
cordialement
fifi

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Décembre 2020

• #10

Bonjour

Pour joindre un lien hypertexte
Il faut utiliser monmail.HTMLBody au lieu de monmail.Body

Même que conseil que précédemment
Utiliser le moteur de recherche interne du forum
Tu trouveras de nombreux exemples de syntaxe de HTMLBody

 

Vote positif 0 Vote négatif

F

fifi63

XLDnaute Nouveau

• 21 Décembre 2020

• #11

Merci.
je vais m'appliquer à faire le tour du forum avant de créer une nouvelle discussion.
merci beaucoup
j ai eu toutes mes réponses.
Passez de bonnes fêtes
fifi

 

Vote positif 0 Vote négatif