[excel] Emailgenerierung

[d-Stench]

Hallo.

Ich möchte mit einem Makro eine Email generieren.
folgenden Code habe ich hier im Forum gefunden:

If DispInfo = vbYes Then
        On Error Resume Next
        
        Set olApp = New Application
        Set oItem = olApp.CreateItem()

        With oItem
            'Adressen:
            .To = "test@test.de"
            'Nachricht:
            
                .Subject = "Automatische Mitarbeiter-Abmeldung"
                .HTMLBody = "test"
                
            
            '.Display
            .Send
        End With
        Set oItem = Nothing
    End If

doch das mag mein Excel irgendwie nicht.

Es soll einfach den Outlook ansprechen. Es soll nur ein NeueEmailFenster mit den im Makro diffinierten Vorgaben erscheinen.

Bitte um Hilfe!

Office 2003

Gruß
d-Stench

PS: Hab die Suchfunktion benutzt.