Forum - Questions sur Access - Erreur sur Send outlook

Voici le message que j'obtient uniquement sur certains postes

Erreur Exécution -2147319779 (8002801d)

Erreur automation bibliothèque non inscrite

ce message apparait sur cette instruction :

Set OL = New Outlook.Application  

Voici le Code

Function EnvMailViaOutlookTest()
Dim OL As Outlook.Application, mi As Outlook.MailItem
On Error GoTo Err
Set OL = New Outlook.Application  ' <------ Erreur
Set mi = OL.CreateItem(olMailItem)
DestMailTO = "xxxxx@gmail.com"
SujetMail = "Test mail via Outlook"
TxtMail = "Test d'envoi d'un mail via Outlook"
With mi
    .To = DestMailTO
    .Subject = SujetMail
    .Body = TxtMail
    .Display
End With
Set mi = Nothing: Set OL = Nothing
Exit Function
Err:
    MsgBox "Erreur : " & Err.Number & " - " & Err.Description
End Function

Avez vous une solution ?

Cordialement

Après rectification ça fonctionne sur tous les postes !

Dim OL As Object, mi As Object ' <======= Remplacé par ceci Set OL = CreateObject("Outlook.Application") ' <======= Remplacé par ceci

Function EnvMailViaOutlookTest1()
Dim OL As Object, mi As Object   ' <======= Remplacé par ceci
Set OL = CreateObject("Outlook.Application") ' <======= Remplacé par ceci
Set mi = OL.CreateItem(olMailItem)
DestMailTO = "xxxxx@gmail.com"
SujetMail = "Test mail via Outlook"
TxtMail = "Test d'envoi d'un mail via Outlook"
With mi
    .To = DestMailTO
    .Subject = SujetMail
    .Body = TxtMail
    .Display
End With
Set mi = Nothing: Set OL = Nothing
Exit Function
Err:
    MsgBox "Erreur : " & Err.Number & " - " & Err.Description
End Function

Bonjour,

La première version fonctionne parfaitement

... a condition de cocher la référence à "Microsoft Outlook xx.x Library", bien sûr !

Elle utilise ce que l'on appelle le "Early Binding" qui veut que l'application Outlook soit déjà connu (d'où la nécessité de la référence).

Alors que ta seconde version utilise le "Late Binding" qui "crée" (ton CreateObject) une instance de Outlook.

Voilà, voilà...

Cordialement,

Pierre (3Stone)