Discussion :

[Guigsounet]

Bonjour

j'ai réalisé une maro qui envoi un mail
Elle fonctionne bien sur 3 PC mais pas sur le 4e
La seule différence entre ces machines est que la 4e est une machine virtuelle (l'Os est hebergé sur un cloud) les autres disposent d'une installe standard (directement sur la machine)

Les références cochées ds VB sont identiques sur les 4 machines et j'ai tenté de décocher/sauvegarder/fermer/ouvrir/cocher les références, sans succès

Voici le code qui pose problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim MonOutlook As New Outlook.Application
Dim MyMail As MailItem
Set MyMail = MonOutlook.CreateItem(olMailItem)
Set iConf = CreateObject("CDO.Configuration")

La ligne qui sort en erreur est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MyMail = MonOutlook.CreateItem(olMailItem)

erreur-2147319779 (8002801D) erreur automation bibliothèque non inscrite


Y a-t-il un workaround ?

[parmi]

Bonjour,

J'imagine que tu as une erreur de référence sur ce 4e poste, non ?
Est-ce que c'est marqué "MANQUANT" ?

[Guigsounet]

non ca ouvre une msgbox

erreur-2147319779 (8002801D) erreur automation bibliothèque non inscrite

[parmi]

Ce message s'affiche quand tu ouvres la fenêtre des références ?

[Guigsounet]

non quand j execute la macro
quand j ouvre les references, je n ai aucun msg d erreur

[Invité]

Bonjour,
Ton projet fait référence à Outlook,deux choses l'une, soit l'os et/ou Excel de ta vm est différente, soit Outlook n'est pas installer sur la. Machine. Si Outlook n'est pas installé pas le choix il faut le faire!

Je déconseille toujours d'utiliser les références aux applications externe, autant que faire possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim MonOutlook  as Object ' As New Outlook.Application
Dim MyMail as Object ' As MailItem")
Set MonOutlook = creatobject("Outlook.Application")
Set MyMail = MonOutlook.CreateItem(olMailItem)
Set iConf = CreateObject("CDO.Configuration")

Ceci dit si tu utilises cdo autant continuer!