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:

Discussions similaires

Réponses
3
Affichages
676

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal