Daten aus Excel Datei per VB Script versenden.

Sub SendWorkbook()
    Dim wb2 As Workbook
    Set wb2 = Workbooks.Add
    wb2.SaveAs "C:\Test.xlsx"  
    email "max@muster.de", "Testsubject", "Testbody", Array(wb2.FullName)  
End Sub


Function email(sMailto, sSubject, sBodyText, arrAttachments)
    On Error Resume Next
    Set objOutlook = GetObject("","Outlook.Application")  
    If objOutlook Is Nothing Then
	Set objOutlook = CreateObject("Outlook.Application")  
    End If
    Set objMail = objOutlook.CreateItem(0)
    ' wenn gewünscht Mail stattdessen anhand eines *.oft Templates erstellen  
    ' Set objMail = objOutlook.CreateItemFromTemplate("C:\PfadzumTemplate\Vorlage.oft")  
    If Not objMail Is Nothing Then
        With objMail
            .To = sMailto
            .Subject = sSubject
            .Body = sBodyText
            If UBound(arrAttachments) <> -1 Then
                For i = 0 To UBound(arrAttachments)
                    .Attachments.Add arrAttachments(i)
                Next
            End If
            .Display
            '.Send  
        End With
    End If
    Set objOutlook = Nothing
End Function