Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
après maintes essais, la solution pour ne plus avoir cette erreur je l'ai trouvé dans l'Aide. C'est bête comme tout, mais il fallait y penser.
Dans les anciennes lignes j'avais ceci:
En rajoutant juste un mot, plus de message d'erreur.
Voilà, j'éspère que cette solution fonctionne pour vous aussi qui avez ce problème. 😉
Très bonne journée.
après maintes essais, la solution pour ne plus avoir cette erreur je l'ai trouvé dans l'Aide. C'est bête comme tout, mais il fallait y penser.
Dans les anciennes lignes j'avais ceci:
Code:
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem) ' Cette ligne causait problème
En rajoutant juste un mot, plus de message d'erreur.
Code:
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = New Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
Voilà, j'éspère que cette solution fonctionne pour vous aussi qui avez ce problème. 😉
Très bonne journée.
Dernière édition: