XL 2016 partage de fichier par email

[Neileru4]

Bonjour a tous

J'ai effectuer une macro qui me permet une fois un fichier excel terminer d'enregistrer et faire un envoie par mail pour partager celui ci

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 = "prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr

monmail.Subject = "Modification du Dossier Partagé "

monmail.Body = "Alerte: Modifications sur le fichier "

monmail.Send

Set ol = Nothing

End Sub

Mon souci est que j'ai des utilisateurs qui utilise outlook version microsoft ( donc l'envoie se fait correctement)
et que j'en ai d'autre qui ont outlook version mail par internet sans microsoft (donc l'envoie ne se fait pas)
savez vous pourquoi ma macro ne fonctionne pas?
avait vous une solution?

merci a tous

 

[Phil69970]

Bonjour Neileru4, bonjour le forum

Pour l'envoi du mail tu peux voir ici :

==> https://www.tutoderien.com/envoyer-un-mail-outlook-avec-excel-vba/

Cordialement

 

[Neileru4]

Bonjour le forum
Bonjour Phil

merci pour cette info
mais j'ai deja éssayé
cela ne fonctionne pas car comme je le disais certains de mes useurs utilisent des boites mails via outlook microsoft et d'autres des boites outlook via internet

Donc ta solution ne va pas

L'envoie se fait correctement sur toute les boites pour ceux qui on une boite mails outlook via microsoft
Par contre les utilisateurs qui ont outlook via internet ne peuvent transmettre le fichier car outlook via microsoft s'ouvre et demande de creer une boite

En esperant avoir été clair dans mes explications

 

[Staple1600]

Bonjour le fil

??
Outlook appartient à Microsoft dans tous les cas.
(version web ou pas)

 

[Neileru4]

Bonjour staple
re le forum

merci pour la réponse mais alors pourquoi mes users qui utilise la version web d'outlook ne peuvent envoyer le fichier excel avec cette macro?

 

[Staple1600]

Re

•>Neileru4
Essaies cette macro
(non testée, car ne dispose pas d'Outlook sur ce PC)

Sub Test_Mail()
Dim Destina$, Sujet$
Destina = "toto.titi@domain.com" '<- à adapter
Sujet = "Objet du mail" '<- à adapter
On Error Resume Next
ActiveWorkbook.SendMail Destina, Sujet
On Error GoTo 0
End Sub

NB: A tester en faisant les adaptations idoines.
(cf commentaires en vert dans le code)

 

[Neileru4]

Merci Staple pour cette réponse je vais tester

est il possible de rajouter en plus du destinataire et le sujet un texte mail comme j'avais en mettat Body ou c'est une autre formule

 

[Staple1600]

Re,

Comme précisé je n'ai pas Outlook sous la main.
Donc pas possible de tester plus loin pour moi.

 

[Neileru4]

Désolé staple mais cela ne fonctionne pas

je cherche toujours
a moins que quelqu'un trouve entre temps

 

[Staple1600]

Re

Ca ne fonctionne pas du tout?
Essaie quand Outlook est ouvert (mais en réduction dans la barre des tâches)

 

[Neileru4]

C'est ce que j'ai fait
et cela ne fonctionne pas
je n'ai meme pas d'envoie qui se fait quand je modifie mon fichier

 

[Staple1600]

Re

La macro telle que je l'ai postée ne se lance pas automatiquement.
Il faut que tu la lances toi-même
Affichage/Macros/Test_Mail -> cliquez sur [Exécuter]

 

[Neileru4]

ok sauf que c'est pas ce que je recherche

je veux que une fois le fichier excel modifier une alerte s'envoie par mail (et non que le fichier excel s'envoie)
une alerte envoyé a plusieurs personne pour notifier d'une modification dans le fichier partagé

 

[Staple1600]

Re

Je me fiche de ce que tu recherches pour le moment.
Je parle de faire un test
Il sera toujours temps ensuite (quand le test sera concluant ou pas) d'adapter (ou pas) le code pour l'agencer dans une procédure événementielle.

 

[Neileru4]

oui cela a l'air de fonctionner sinon

désolé de vouloir une solution si vite