Ny outlook

Hej
Jeg har fået den nye outlook og nu kan jeg ikke længere bruge mine makroer i excel til at sende en mail, hvordan kan jeg komme til det igen?
Den går i stå ved
"Vi har registreret et problem med at starte den nye Outlook. Prøv igen senere"
Og selvom jeg kommer til at den tager en kopi af !a:K32 og lægger ind i en mail, så bliver den ikke sendt, den ligger i udbakken i den gamle outlook, og først når jeg åbner den igen, bliver mailen sendt.

Min kode ser sådan ud
Sub MailNyOrdre()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
    Range("A2:C2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Set rng = Nothing
Set rng = Range("A1:K32").SpecialCells(xlCellTypeVisible)
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ThisWorkbook.Sheets("Data").Range("B4").Value
        .CC = ""
        .BCC = ""
        .Subject = "Test ny makro " & Ark1.Range("D1")
        .HTMLBody = RangetoHTML(rng)
    ' In place of the following statement, you can use ".Display" to
    ' display the e-mail message.
        .Display
    End With
        On Error GoTo 0
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    Range("B3").Select
End Sub