Ich habe ein Makro, welches es ermöglicht, ein Tabellenblatt als Anhang per Email zu versenden. Die Tabelle wird aufgrund diverser Bedingungen befüllt. Das Makro funktioniert sehr gut, jedoch möchte ich den Versand an verschiedene Empfänger automatisieren. Bedeutet, das Makro soll so oft starten, wie in der Tabelle "Fehlererfassung" Spalte "K" Werte vorhanden sind.
Wäre toll, wenn mir jemand weiterhelfen könnte.
Private Sub CommandButton1_Click()
Dim MyMessage As Object, MyOutApp As Object
Dim SavePath As String
Dim AWS As String
Worksheets("Meldung gestrichene Artikel").Range("C4").Value = Worksheets("Fehlererfassung"). _
_
_
_
Range("K4").Value
SavePath = "Platzhalter" '"E:\Eigene Dateien"
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel
ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
'Mappenname wird an Variable übergeben
'und anschliessend gleich geschlossen
With ActiveWorkbook
AWS = .FullName
.Close
End With
'InitializeOutlook = True
Set OutLookJob = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = Range("C8")
E_Mail.Subject = "Platzhalter" & Date & Time
'Hier wird die temporär gespeicherte Datei als
'Attachment zugefügt
E_Mail.Attachments.Add AWS
'Hier wird die HTML Mail erstellt
E_Mail.body = "Platzhalter"
'Hier wird die Mail nochmals angezeigt
E_Mail.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
'Hier wird die temporäre Datei wieder gelöscht
E_Mail.send
Kill AWS
Set E_Mail = Nothing
Set OutLookJob = Nothing
End Sub