Fejl ved afsendelse af e-mail fra Excel.

Halløjsa.

Jeg har tidligere anvendt nedenstående rutine under Windows NT med Office 97. Nu har vi opgraderet til Windows XP og Office 2000 og pludselig virker koden ikke. Den melder en dll-fejl når den startes. Er der nogen der kan hjlæpe med hvad der er galt?

Når jeg debugger fejler den under linjen: "Set objOL = New Outlook.Application"

Private Sub SendProduction_Click()
Application.ScreenUpdating = False
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim objAttachment As Attachment
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
Set myAttachments = objMail.Attachments
myAttachments.Add "C:\outlook\Excel\SC Prod Report.xls", _
    olByValue, 100, "SC Prod Report.xls"
   
With objMail
    .To = "santa.claus@greenland.com"
    .Subject = "Ongoing Selling Cycles"
    .Body = "This message has been automatically produced by the Prospect Management system"
    '.Display
    .Send
   
End With

Set objMail = Nothing
Set objOL = Nothing

Application.ScreenUpdating = True

MsgBox ("Your updated Selling Cycles has been e-mailed to Santa Claus.")
End
End Sub

Håber på jeres hjælp... :o)