Runtime error 13 - CreateItem(olMailItem)

Denne her funktion kører på windows 7 64bit og Office 2010
Den må du lige checke igennem og se hvad forskellen evt. kan være.

Public Function fhpOutlookSendFile(aReceipiant As String, aFileName As String, aMessage As String, aSubject As String, Optional aShow As Boolean = True) As Integer
' -----------------------------------------------------------------------------------
' Purpose    : Sender fil til valgte modtagere
' Parameters :
' Returns    : Integer
' Created    : 10-03-2011
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpOutlookSendFile
  Dim olApp As Outlook.Application
  Dim objOL As Object
  Dim olMail As MailItem
  Dim CurrFile As String

  If aReceipiant = "" Then
    GoTo Exit_fhpOutlookSendFile
  End If
 
  Set objOL = CreateObject("Outlook.Application")
  Set olApp = New Outlook.Application
  Set olMail = olApp.CreateItem(olMailItem)
 
  With olMail
    .To = aReceipiant
    .Subject = aSubject
    .Body = aMessage
    If aFileName <> "" Then
      .Attachments.Add aFileName
    End If
    If aShow = True Then
      .Display
    Else
      .Send
    End If
  End With

  Set olMail = Nothing
  Set olApp = Nothing
  Set objOL = Nothing
 
Exit_fhpOutlookSendFile:
  Exit Function

Error_fhpOutlookSendFile:
  fhpOutlookSendFile = -32768
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpOutlookSendFile'"
      fhpError_Display "modOutlook", "fhpOutlookSendFile"
  End Select
  Resume Exit_fhpOutlookSendFile

End Function

Jeg har prøvet lidt af denne kode af i stedet.
Jeg kan se den bruger late binding.

Nu får jeg i stedet en Error 429 ActiveX componetn can't create object. På linien
Set objOL = CreateObject("Outlook.Application")

Ja det har jeg så ikke lige et bud på.
Kan det være en reference der mangler?

I hugopedersens forslag synes objOL overflødig - eller tager jeg fejl?

Har du reference til Outlook ?

Runtime 13 plejer at være 'type mismatch' - dvs. der er forkerte værdier i dine variabler. Hvis du øverst i dit modul tilføjer en linje: Option Explicit og compilerer, hvad sker der så?