Mail Outlook eller Outlook Express

Hej

Jeg har en funktion som kan sende mails via Outlook fra Excel, men jeg vil gerne have den udvidet således at den også kan bruges til Outlook Express og hels sådan at Excel/VBA selv finder ud af hvilken mail-klient brugeren benytter - jeg smider lige min eksisterende kode:

    Set olApp = New Outlook.Application
    Set olNewMail = CreateItem(olMailItem)
   
    With olNewMail
        .Recipients.Add strMail
        strNames = ""
        For x = 1 To colNames.Count
            strNames = strNames & Chr$(10) & "Ordrenr.: " & colNames(x)
        Next x
        .Body = Format(Date, "dd.mm.yy") & Chr$(10) & "ordre:" & Chr$(10) & strNames
       
        .Subject = "ordre fra " & _
                    r1rng(getRow("strforhnavn", "R"), getRow("strforhnavn", "C")) & _
                    " (" & r1rng(getRow("strforhNr", "R"), getRow("strforhNr", "C")) & ")"

        With .Attachments
            For x = 1 To colFiler.Count
                .Add (colFiler(x))
            Next x
        End With
        .Importance = olImportanceHigh
        '.ReadReceiptRequested = True
        .OriginatorDeliveryReportRequested = True
        .Save
        .Send
end with

håber nogle kan hjælpe har en ide om at det måske "bare" er at ændre Set olApp = New Outlook.Application til noget andet - men aner det ikke...