Habe dieses Makro gefunden und siehe da, es ist fast so etwas wie ich es brauche. Besteht bei diesem Makro auch die Möglichkeit nur bestimmte Zellen zu nehmen, stat der ganzen Tabelle? oder kann man es ermöglichen, das die sende und druck butten etc unterdrückt werden?
Wäre echt toll wenn mir da jemnad helfen könnte....
PS Vielen Dank noch mal an Matthias G für die schnelle Hilfe
Gruß Matthias
Sub Senden()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "C:\Dokumente und Einstellungen\matze\Eigene Dateien\Bral"
Set OutApp = CreateObject("Outlook.Application")
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und dem Namen in A1
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ActiveSheet.Range("A1")
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "matthias.voigt@bsr.de"
.Subject = "E-Schrottauftrag BSR-Callcenter " & Date
.Attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Testauftrag bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Kill AWS
End With
End Sub