Envoi de mail et Erreur Automation

**Fabert** · 21/04/2015, 15h59

Bonjour à tous,

J'ai cherché un peu partout sur le net mais rien trouvé de concret pour me sortir d'affaire.

J'ai récupéré sur le net la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
 
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
   Nom_Fichier = "C:\Chemin\NomFichier.ext"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
     With oBjMail
        .To = "LeClient@gmail.com" ' le destinataire
       .Subject = "Ici c'est l'objet"          ' l'objet du mail
       .Body = "Ici le texte du mail "  'le corps du mail ..son contenu
       .Attachments.Add Nom_Fichier
       .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       .Send
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

Cependant, en arrivant sur l"instruction Set ObjOutlook = New Outlook.Application, j'ai un message d'erreur qui apparaît :

Erreur d'exécution '-2147467229 (80004023)':
Erreur Automation
Erreur de l'installateur de logiciel Microsoft

Quelqu'un aurat-il une idée pour me sortir de là.

Merci d'avance pour vos contributions.

Fabert

**joe.levrai** · 21/04/2015, 16h12

Bonjour,

questions bêtes, mais tu as bien Outlook installé sur ton PC ? c'est bien le logiciel de messagerie par défaut ? tu as bien coché la référence Microsoft Outlook Library ?

concernant la dernière question, tu n'as pas besoin des références Microsoft Outlook Library si tu travailles en Late Binding

après, ton code crée une nouvelle instance Outlook, on pourrait pas travailler avec un Outlook déjà ouvert ? Ca restreint les erreurs d'automation.

**Fabert** · 21/04/2015, 16h36

Oui j'ai Office 2013 complet qui est installé.

J'ai bien coché dans Outils Références Microsoft Outlook 15.0 Object Library très exactement. Je suppose que c'est OK.

En ouvrant préalablement Oulook 2013, j'ai malgré tout toujours le même message d'erreur.

Une idée ?

Fabert

**joe.levrai** · 21/04/2015, 16h40

Avec Outlook ouvert, essaye comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As Object
Dim oBjMail As Object
Dim Nom_Fichier As String
 
    Set ObjOutlook = CreateObject("Outlook.Application")
    Set oBjMail = ObjOutlook.CreateItem(0)
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
   Nom_Fichier = "C:\Chemin\NomFichier.ext"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
     With oBjMail
        .To = "LeClient@gmail.com" ' le destinataire
       .Subject = "Ici c'est l'objet"          ' l'objet du mail
       .Body = "Ici le texte du mail "  'le corps du mail ..son contenu
       .Attachments.Add Nom_Fichier
       .Save
       .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       '.Send
    End With
    'ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub