möchte es gerne tabelle1 aber nich als anhang senden ?
Sub senden()
' Outlook Applikation
Dim oMail As Object
Dim ool As Object
' Verweis zu Outlook + neue Nachricht
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
' Betreff-Zeile
oMail.Subject = Range("A1") & _
Format(Date, "Long Date") & " !"
' An-Zeile (Empfänger)
oMail.To = "e-mail@mich.de"
oMail.Recipients.ResolveAll
oMail.Display
'zu versendende geöffnete Mappe
strSend = "Mappe1.xls"
' Speicher freigeben
Set oMail = Nothing
Set ool = Nothing
End Sub