XL 2016 partage de fichier par email

Neileru4

XLDnaute Occasionnel
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



VB:
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
 
Dernière édition:

Neileru4

XLDnaute Occasionnel
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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

•>Neileru4
Essaies cette macro
(non testée, car ne dispose pas d'Outlook sur ce PC)
VB:
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

XLDnaute Occasionnel
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é
 

Discussions similaires

Réponses
3
Affichages
677

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400