Sende mail i Microsoft outlook

Jeg har som så mange andre fået problemer med at Outlook vil have tilladelse til at sende mails.

Jeg har set her på stedet at følgende kode kunne virke istedet :

Sub SendBesked()

    Dim ObjOutlook As Outlook.Application
    Dim ObjOutLookMsg As Outlook.MailItem
    Dim ObjOutLookRecip As Outlook.Recipient
   
    Set ObjOutlook = CreateObject("Outlook.application")
    Set ObjOutLookMsg = ObjOutlook.CreateItem(olMailItem)
   
    With ObjOutLookMsg
        Set ObjOutLookRecip = .Recipients.Add("torben.v@tiscali.dk")
        ObjOutLookRecip.Type = olTo
       
        .Subject = "Dette er en test"
        .Body = "Sendt som Vigtig"
        .Importance = olImportanceHigh
        .Save
        .Send
    End With
   
    Set ObjOutlook = Nothing
   
End Sub

Jeg får her dog den fejl, at den siger user-defined type not defined! Hvad går det ud på... nogen der kan hjælpe?