Run-time error '429': ActiveX... can't create objt

Question

Bonjour/bonsoir, 

Run-time error '429': ActiveX component can't create object

Le code vba ci-dessous se trouve derriere un bouton de userform. le probleme est qu'il conduit au message d'erreur ci-dessus. Le debug indique que le probleme ce trouve dans la ligne de code en gras.
 Merci de m'aider sur ce point.

Sub envoimail()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.createItem(0)
On Error Resume Next

With OutMail
    .To = "Adrsmail1"
    .CC = "Adrsmail2"
    .Subject = "Objet1"
    .Body = "ligne1" & _
    vbLf & "ligne 2" & _
    .Send
End With

End Sub


Configuration: Windows / Edge 17.17134

cs_Le Pivert · Answer

Bonjour,

allez dans Outils- Références et cochez bibliothèque d'objets Microsoft Outlook 

et mettre ceci à la place:

Dim OutApp As New Outlook.Application

Aloubedi · Answer

Merci bcp . j'ai suivi vos conseils et j'ai remplace Set OutApp = CreateObject("Outlook.Application") par Dim OutApp As New Outlook.Application 
Mais un autre message d'erreur: Compile error: Duplicate declaration in current scope 

merci

Aloubedi · Answer

Run-time error '429': ActiveX component can't create object 

On retrouve le premier msg d'errur cette fois sur OutMail (la partie en gras)

Private Sub CommandButton7_Click()
Dim outapp As New Outlook.Application
Dim OutMail As Object

Set OutMail = outapp.CreateItem(0)

Merci bcp pour vos reactions. je reste a l'ecoute

cs_Le Pivert · Answer

Voilà un exemple

Option Explicit
'https://forum.excel-pratique.com/viewtopic.php?t=29003
'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)
    
'---------------------------------------------------------
    'Exemple pour envoyer un classeur en pièce jointe
    'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
    'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
    'Ou bien entrer le path et nom du fichier autrement
    Nom_Fichier = "C:\Users\chemin fichier excel"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
'Application.ScreenUpdating = False
      With oBjMail
        .To = "adresse@free.fr" ' 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 '"C:\Data\essai.txt" ' ou Nomfichier
        '.Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        .Send
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
   ' Application.ScreenUpdating = True
End Sub 

et si tu veux envoyer une image dans le corps du message voir cela:

https://codes-sources.commentcamarche.net/forum/affich-10086698-signature-outlook-dans-macro-excel#12

Run-time error '429': ActiveX... can't create objt

4 réponses

Discussions similaires

Newsletters