Dieses Beispiel sendet eine e-Mail über Outlook:

Sub Mail_senden()
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        'Empfänger 
        .Recipients.Add "[email protected]"
        'Betreff
        .Subject = "Test-Mail"
        'Nachricht 
        .Body = "Das ist eine e-Mail" & Chr(13) & _
                "Viele Grüße..." & Chr(13) & Chr(13)
        'Lesebestätigung aus
        .ReadReceiptRequested = False
        'Dateianhang
        .Attachments.Add "c:\Dok1.doc"
        .Send
    End With
    Set olApp = Nothing
End Sub