En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Forum - Questions sur Access - Erreur sur Send outlook


 

clos par 3Stone le 05/01/2022 : 00:30  Sujet n° 847

le 28/12/2020 : 13:15
par flomen

Anonyme

visiteur

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

sujet clos Haut  
Réponse n° 1
--------
le 28/12/2020 : 16:06
par flomen

Anonyme

visiteur

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

clos par 3Stone le 05/01/2022 : 00:30 Haut  
Réponse n° 2
--------
le 28/12/2020 : 17:38
par 3Stone

3Stone

Administrateur


Bonjour,

La première version fonctionne parfaitement wink

... 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)


Rectifié par 3Stone le 30/12/2020 : 01:36
clos par 3Stone le 05/01/2022 : 00:30 Haut  
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message
Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter  
Catégories de discussion  Forum  



Vous êtes ici :   Accueil » Forum » Questions sur Access » Erreur sur Send outlook