none
VB6 - Outlook - Erreur 429 RRS feed

  • Question

  • Bonjour,

    J'ai une appli VB6 qui fonctionne très bien sur XP et sur W7 sauf sur une machine où ma procédure d'envoi de mail bug :

    L'erreur inattendue # 429# s'est produite : Le composant ActiveX ne peut créer l'objet

    La personne ayant ce problème me dit que la manip (d'envoi de mail) fonctionnait très bien avant, que le bug est apparu un jour, soudainement. A part l'installation d'une imprimante HP color laser 3600, il n'y aurait pas eu de modif sur le poste. J'ai essayé d'installer scr56fr.exe (scr56fr.exe) sur les conseils d'un internaute qui avait un problème similaire avec le même message d'erreur mais cela n'a rien réglé.

    La personne a juste l'exe donc je ne sais pas exactement quelle ligne pose problème (mais je suppose que c'est celle qui commande l'ouverture de session)

    Dim result As Integer Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookRecip2 As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment On Error GoTo ErreurSendMail 'Ouvre la session

    Set objOutlook = CreateObject("Outlook.Application")

    'Création du message

    Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg 'Destinataire Set objOutlookRecip = .Recipients.Add(sTo) objOutlookRecip.Type = olTo 'Normal 'Objet et corps du message .Subject = sSubject .BodyFormat = olFormatHTML .HTMLBody = sBody 'Gestion des pièces jointes If PieceJointe <> vbNullString Then 'MsgBox PieceJointe Dim PieceJointeArray() As String Dim i As Integer Dim Lien As Variant PieceJointeArray() = Split(PieceJointe, glstrPOINTVIRGULE) For Each Lien In PieceJointeArray() If Lien <> vbNullString Then If globjActionFichier.TesterExistanceFichier(CStr(Lien)) Then Set objOutlookAttach = .Attachments.Add(Lien) Else Call globjMessage.AfficherMessage(240, glstrERREUR, vbCritical, CStr(Lien)) End If End If Next End If For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve Next 'Apercu avant envoi

    If displaymessage Then .Display Else .Save .send End If End With Set objOutlook = Nothing


    Quelqu'un aurait une solution à ceci?

    Merci d'avance pour votre aide.




    • Modifié Abyssin lundi 1 septembre 2014 13:35
    lundi 1 septembre 2014 13:19