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

 

[Staple1600]

Re

Donc la question est:
Est-ce que lors de ce test (avec le code du message#6), tout le monde a bien reçu le mail ?
(Outllok web et Outlook tout court)

 

[Neileru4]

je n'ai que tester sur ma boite je vois pour tester sur une boite que web

penses tu que je peux tester l'envoie d'une boite web?
car recevoir on recoie, c'est l'envoie qui bloque

 

[Staple1600]

Re

Testes tout ce que tu peux tester
(moi, je ne peux rien tester, je n'ai pas Outlook ici ni d'Outlook web et encore moins de compte Microsoft)

 

[Neileru4]

bon cela fonctionne pour une envoyer avec une boite outlook avec microsoft
mais avec une boite outlook web cela ne fonctionne pas (pas d'envoi)