Fejl ved Set objPost = objOl.CreateItem(olMailItem)

Nedenstående har fungeret de seneste 2 år unden problemer, men virker ikke mere af een eller anden årsag ...

Den virker i XP - Office 2003, men ikke Vista Office 2007

Nogen som kender en workaround ???

Public Function SendMail()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhæftet As Attachments
   
Dim MyDB As Database
Dim MyRS As Recordset
 
Dim TOAddress As String
Dim CCAddress As String
Dim Message1 As String
Dim Message2 As String
       
    Set objPost = objOl.CreateItem(olMailItem)
   
    Set vedhæftet = objPost.Attachments
    vedhæftet.Add "\\Cphfil-01\Fil.xls"
       
    Set MyDB = CurrentDb
        Set MyRS = MyDB.OpenRecordset("tblMailingList")
    MyRS.MoveFirst

    TOAddress = MyRS![To]
    CCAddress = MyRS![cc]
   
    Message1 = " A "   
    Message2 = " B "

    With objPost
        .Subject = Message1
        .To = TOAddress
        .cc = CCAddress
        .Body = Message2
       
        '.Send
        .Display
       
    End With
 
  objOl.Quit
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
   
Exit Function

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

End Function