Ich habe zwei Code's mit denen ich aus Excel eine Tabelle versenden kann. Beide gefallen mir nicht so richtig. Im ersten Code wird Outlook geöffnet und die Tabelle angehängt.
Bei dem zweiten Code kommt eine hässliche Meldung ("Anwendung versucht, Nachricht im Auftrag zu Senden ...)die Tabelle erscheint im Textfeld der Mail.
Erster Code:
Dim Dateiname As String
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim Anhang As String
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Matthias...@..de
.Subject = "test"
.Body = "test"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Zweiter Code:
Worksheets("Tabelle1").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Diese Mail soll dich an deine Hausaufgaben erinnern."
.Item.To = Matthias....@...de
.Item.Subject = "Erinnerung"
.Item.Send
End With
Ich hätte gerne eine Mischung aus beiden Code's. Er soll Outlook öffnen,damit diese hässliche Meldung nicht aufpoppt, und die Tabelle soll im Textfeld erscheinen. Geht das?