Anhang an geöffnete Outlookmail
23.02.2021 08:25:45
Clemens
mit meinen eher bescheidenen VBA-Kenntnissen, habe ich es in tatsächlich hinbekommen, ein Makro
zu schreiben, dass das aktive Worksheet als Anhang an eine neue Mail fügt. Die Version
funktioniert genauso, wie sie soll:
Sub WorksheetToMail()
Dim MyMessage As Object, MyOutApp As Object
Dim SavePath As String
Dim AWS As String
Application.ScreenUpdating = False
SavePath = ThisWorkbook.path
'Kopiert aktuelles Sheet in eine neue Mappe welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel
ActiveWorkbook.SaveAs SavePath & "\" & Range("$F$5"), FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
With ActiveWorkbook
AWS = .FullName
.Close
End With
'InitializeOutlook
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.GetInspector
'Mailadresse An
.To = "...."
'Hier wird die temporär gespeicherte Datei als Attachment zugefügt
.Subject = ".... "
'Betreff
.Body = "Sehr geehrte Damen und Herren," & Chr(13) & Chr(13) & _
"..." & Chr(13) & Chr(13) & Chr(13) & _
"Mit freundlichen Grüßen" & Chr(13) & Chr(13) & _
"..." & Chr(13) & _
.Attachments.Add AWS
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
'Hier wird die temporäre Datei wieder gelöscht
Kill AWS
End With
'MyOutApp.Quit
Set MyOutApp = Nothing
Set MyMessage = Nothing
Application.ScreenUpdating = True
End Sub
Da ich die Datei allerdings danach weiterbearbeite und weitere Versionen in der gleichen Mail verschicken möchte, anstatt immer wieder neue Mails zu erstellen, versuche ich seit Tagen, das Makro so umzuschreiben, dass die weiteren Versionen des Worksheets in der bereits geöffneten Mail angefügt werden. Dabei scheint nichts zu funktionieren und meine Kenntnisse sind dabei offensichtlich nicht annähernd ausreichend, weshalb ich mich riesig über Unterstützung von euch freuen würde! Bitte helft mir :)
Ich hoffe, ihr könnt verstehen, was ich meine.
Viele Grüße
Clemens