Mit VBA unter Excel E-Mail Programm öffnen

Ich habe ein kleines Problem.
Seit ein paar Wochen bin ich am zusammen basteln einer VBA Sammlung.
Mittlerweile bin ich kurz davor Version 1.1 ins Netz zustellen. Für V1.2 bin ich nun auf die Idee gekommen ein kleines Programm zu schreiben welches das Aktive E-Mail Programm auf ruft, meine E-Mail Adresse mit einem bestimmten Betreff aufruft und vllt. noch einen kurzen Text einfügt.

Bevor jetzt wieder jeder kommt und sagt Google ftw, kann ich nur sagen: "Ich habe gesucht." Ein passendes Programm habe ich gefunden jedoch war dieses Passwort geschützt.

Also falls jemand etwas passendes für mich hätte wäre super.

Ich sag schon mal Danke im Vorraus.

mfg

duffman521

set shell = createObject("wscript.shell")  
shell.run """mailto://beispiel@nirgendwo.com?cc=ccEmpfänger@nirgendwo.com&bcc=bccEmpfänger@nirgendwo.com&subject=mein Betreff&body=Was möchten sie denn schreiben?"""  

Sub MailVersenden()
    Dim obNachricht As Object
    Dim obMail As Object
    Set obMail = CreateObject("Outlook.Application")  
    Set obNachricht = obMail.CreateItem(0)
    With obNachricht
        .To = "DieMail@Web.de"  '<== hier steht stattdessen deine Variable, ohne ""  
        .Subject = "Erinnerung"  
        .Body = "Liebe Kati," & vbLf & vbLf & "dein Termin ist am 01.12.2009 fällig." & vbLf _  
            & "Denke bitte unbedingt daran."  
        .ReadReceiptRequested = False
        .send
    End With
    Set obNachricht = Nothing
    Set obMail = Nothing
End Sub