Erreur 429 sur GetObject("", "Outlook.Application")

**bertin** · 14/03/2013, 16h38

Bonjour à tous,
Je tourne en rond depuis deux jour pour faire fonctionner l'envoi de mail par Outlook en VBA à travers un objet outlook.application.
Je test si outlook est ouvert (avec une fonction IsOfficeRunning)
si Outlook n'est pas ouvert je crée l'objet par

Set appOutLook = CreateObject("Outlook.Application")
Là tout baigne j'ai bien un nouveau message qui se crée

Par contre si Outlook est ouvert impossible de le récupérer par
Set appOutLook = GetObject("", "Outlook.Application")
Là j'ai une erreur 429
Quelqu'un aurait-il une idée lumineuse car je suis à sec

Ci-joint le code complet de la fonction

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
28
29
30
31
32
33
34
35
 
Function EnvoiMail(AdrCible As String, Sujet As String, Corps As String, Pj As String) As Boolean
    Dim appOutLook As outlook.Application
    Dim oMail As MailItem
    On Error GoTo err
    EnvoiMail = True
    If IsOfficeRunning(App_Outlook, True) Then
        'outlook est ouvert
        MsgBox "outlook running", vbOKOnly, "vérification office"
        Set appOutLook = GetObject("", "Outlook.Application")
 
    Else
        'outlook est fermé
        Set appOutLook = CreateObject("Outlook.Application")
 
    End If
 
    Set oMail = appOutLook.CreateItem(olMailItem)
 
    oMail.To = AdrCible
    oMail.Subject = Sujet
    oMail.Body = Corps
    oMail.Attachments.Add (Pj)
    oMail.Display
    'oMail.Send
    GoTo finally
err:
 
MsgBox err.Description + Str(err.Number), vbCritical, "Fonction : EnvoiMail  - Module : 02Mail"
        Exit Function
finally:
    On Error Resume Next
    Set oMail = Nothing
    Set appOutLook = Nothing
End Function

**Thierry_PALLIER** · 14/03/2013, 19h29

Bonsoir bertin

Outlook peut très bien être manipulé sans etre ouvert !
Donc tu peux enlever les lignes 7 à 13 ainsi que le End If ,celà devrait marcher.
Cdlt

**bertin** · 15/03/2013, 08h39

Envoyé par Thierry_PALLIER

Bonsoir bertin

Outlook peut très bien être manipulé sans etre ouvert !
Donc tu peux enlever les lignes 7 à 13 ainsi que le End If ,celà devrait marcher.
Cdlt

Merci thierry pour ta réponse mais ...
justement ça marche quand outlook est fermé mais pas quand il est ouvert !

Quand je fait un createobjet alors qu'outlook est ouvert jai l'erreur 429
"un composant activex ne peut créer d'objet"
C'est pour celà que j'ai essayé avec getobject, toujours quand outlook est ouvert, et j'ai la même erreur.

Les utilisateurs ont en permanence Outlook ouvert et passe leurs journées à envoyer des mails, je ne peux pas leur demander de fermer Outlook à chaque fois

Bonne journée

**bertin** · 15/03/2013, 12h06

Je pense que ce plantage ne vient pas du code.

Dans une base simplissime avec seulement une table et sans code VBA si outlook est ouvert j'ai ce message

Si outlook est fermé le message se crée et je peux l'envoyer ?????

**Thierry_PALLIER** · 15/03/2013, 12h16

Bonjour ,on va y arrivé.

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
'sans reference Outlook,sans redemption
 
 
    Dim appOutLook As Object    'Outlook.Application
    Dim oMail As Object    'As Outlook.MailItem
 
    Set appOutLook = CreateObject("Outlook.Application")
    Set oMail = appOutLook.CreateItem(oMailItem)
'avec un objet,il faut utiliser un bloc with.
With oMail
   oMail.To = AdrCible
    oMail.Subject = Sujet
    oMail.Body = Corps
    oMail.Attachments.Add (Pj)
End With
    oMail.Display
    'oMail.Send
    'GoTo finally

remet ta gestion d'erreur ,cà marche pour moi ,ouvert ou fermé (version 2003)
Dis nous si c'est bon.

**bertin** · 22/03/2013, 10h23

Eh non, toujours pareil, ça marche Outlook fermé mais ça plante quand il est ouvert

J'avais déjà essayé ce type de déclaration

Merci quand même

Bonne journée

Invité · 22/03/2013, 10h55

Bonjour

Il faut faire une gestion d'erreur, voici un exemple de code :

Code :

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

1
2
3
4
5
6
On Error Resume Next
    Set outObj = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If outObj Is Nothing Then
        Set outObj = CreateObject("Outlook.Application")
    End If

Bien sûr il faut remplacer outObj par ta déclaration d'Outlook.

Philippe

**paidge** · 22/03/2013, 12h26

Bonjour,
Perso je n'ai pas de problème si Outlook est ouvert ou fermé.
Voici un exemple de code que j'utilise :

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
28
29
30
31
32
33
34
35
36
37
Public Sub envoyerMail(pDestinataire As String, pCC As String, pMessage As String, pPieceJointe As String, pObject As String)
 
    Dim MonOutlook As Outlook.Application
    Dim MonMessage As Outlook.MailItem
 
    On Error GoTo Err_envoyerMail
 
    ' ===== Initialisation =====
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
    ' ===== Création de l'email =====
    With MonMessage
        .To = pDestinataire
        .CC = pCC
        .Subject = pObject
        .Body = pMessage
		' pPieceJointe doit être de la forme C:\monDossier\monFichier.extension
        If Len(pPieceJointe) <> 0 Then .Attachments.Add pPieceJointe
		' Affiche le mail (commenter la ligne pour envoi du mail en tâche de fond)
        .Display
		' Envoie le mail automatiquement (décommenter la ligne pour envoi du mail en tâche de fond)
        '.Send
    End With
 
Exit_envoyerMail:
    Set MonOutlook = Nothing
    Exit Sub
 
Err_envoyerMail:
    Select Case Err.Number
        Case Else
            MsgBox "Erreur n°" & Err.Number & vbCrLf & "Description : " & Err.Description & vbCrLf & "Source : " & Err.Source, vbCritical, "Erreur"
    End Select
    Resume Exit_envoyerMail
 
End Sub

**bertin** · 25/03/2013, 09h57

Envoyé par Philippe JOCHMANS

Bonjour

Il faut faire une gestion d'erreur, voici un exemple de code :

Code :

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

1
2
3
4
5
6
On Error Resume Next
    Set outObj = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If outObj Is Nothing Then
        Set outObj = CreateObject("Outlook.Application")
    End If

Bien sûr il faut remplacer outObj par ta déclaration d'Outlook.

Philippe

Merci pour ta proposition mais si tu regarde le post plus au tu verras que j'ai essayé de tester l'ouverture d'outlook pour faire un get à la place du create mais dans les deux cas le résultat est le même, plantage quand outlook est ouvert.

Bonne journée

**bertin** · 25/03/2013, 09h58

Envoyé par paidge

Bonjour,
Perso je n'ai pas de problème si Outlook est ouvert ou fermé.
Voici un exemple de code que j'utilise :

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
28
29
30
31
32
33
34
35
36
37
Public Sub envoyerMail(pDestinataire As String, pCC As String, pMessage As String, pPieceJointe As String, pObject As String)
 
    Dim MonOutlook As Outlook.Application
    Dim MonMessage As Outlook.MailItem
 
    On Error GoTo Err_envoyerMail
 
    ' ===== Initialisation =====
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
    ' ===== Création de l'email =====
    With MonMessage
        .To = pDestinataire
        .CC = pCC
        .Subject = pObject
        .Body = pMessage
		' pPieceJointe doit être de la forme C:\monDossier\monFichier.extension
        If Len(pPieceJointe) <> 0 Then .Attachments.Add pPieceJointe
		' Affiche le mail (commenter la ligne pour envoi du mail en tâche de fond)
        .Display
		' Envoie le mail automatiquement (décommenter la ligne pour envoi du mail en tâche de fond)
        '.Send
    End With
 
Exit_envoyerMail:
    Set MonOutlook = Nothing
    Exit Sub
 
Err_envoyerMail:
    Select Case Err.Number
        Case Else
            MsgBox "Erreur n°" & Err.Number & vbCrLf & "Description : " & Err.Description & vbCrLf & "Source : " & Err.Source, vbCritical, "Erreur"
    End Select
    Resume Exit_envoyerMail
 
End Sub

Eh oui mais pas sur mon poste !!!
Merci

**paidge** · 25/03/2013, 10h36

Envoyé par bertin

Eh oui mais pas sur mon poste !!!
Merci

Format C: ? :-p

**fredangelo** · 06/04/2017, 13h58

Envoyé par bertin

Merci pour ta proposition mais si tu regarde le post plus au tu verras que j'ai essayé de tester l'ouverture d'outlook pour faire un get à la place du create mais dans les deux cas le résultat est le même, plantage quand outlook est ouvert.

Bonne journée

Bonjour Bertin,

as-tu trouvé la solution à ton problème. j'ai le même et c'est vrai qu'on a l'impression de tourner en rond !!!

fred