Sub Mail_senden()
    On Error Resume Next
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        .Recipients.Add "test@text.ch"
        .Subject = " Order / Bestellung " & vDate & "-" & Time
        .Body = "Order / Bestellung " & Chr(13) & Chr(13) & vName & Chr(13) & _
          vCity
        .ReadReceiptRequested = False
        .Attachments.Add "C:\ORDER-from-" & vDate & "-" & vTime & ".xls"
        .display
    End With
    Set olApp = Nothing
    vName = ""
    vCity = ""
End Sub

Danke Euch und Gruss
Dany