creation d ojet OLE Outlook

bonjour,

cette macro est censee ouvrir outlook mais elle me renvoie une erreur automation pour la ligne 6 de creation de l objet outlook (pourtant cette macro marche sur un autre ordi!!!!). Quelqu un peut il me dire s il voit ou est l erreur? Voici le code:

Sub Mail_Text_From_Txtfile_Outlook()

' Is working in Office 2000-2007

    Dim OutApp As Object

    Dim OutMail As Object

 
    Set OutApp = CreateObject("Outlook.Application") 

    OutApp.Session.Logon

    Set OutMail = OutApp.CreateItem(0)

 
    On Error Resume Next

    With OutMail

        .To = "ron@debruin.nl"

        .CC = ""

        .BCC = ""

        .Subject = "This is the Subject line"

        .Body = "essai"

        .Display   'or use .Send

    End With

    On Error GoTo 0

 
    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub

Merci d avance,

Zoe