Sub Versende_GV_Mail()
    Subjekt = "Geld-Verwendungsnachweis"
    Empfaenger = "Duck, Dagobert"
    Mailtext = ""
    Dim Outlook As Object
    Dim MailSendItem As Object
    Set Outlook = CreateObject("Outlook.Application")
    Set MailSendItem = Outlook.CreateItem(olMailItem)
    With MailSendItem
        .Subject = Subjekt
        .To = Empfaenger
        .Body = Mailtext
        .Attachments.Add "C:\Geldverwendung.xls"
        .DeferredDeliveryTime = "25.08.2005 12:15"
        .Display
    End With
    Set Outlook = Nothing
End Sub