Makros anpassen-Blatt senden
14.09.2007 06:47:00
marko
ich war vor paar tage in diesem forum und habe ein angepasste makro (danke) bekommen welche auch super funktioniert.
Bei arbeiten habe ich jetzt eine wietere unvolständigkeit festgestelltft.
Es geht um folgendes: da unten stehendes makro ist angepasst nur für eine Empfänger, aber mit dem zeit muss ich mehrere Empfängern in das makro vordeffinieren.
Ich habe mit dem Befehl Array versucht aber bringe nicht fertig.
Habt Ihr eine Idee für meine Frage.?
Sub Blatt_senden_produktionmontag()
'Die Routine kopiert Tabelle in eine neue Arbeitsmappe,
'versendet diese und schließt sie anschließend ohne Speicherung'
' wenn Benutzer Nein_Button klickt dann gibt's Hinweiss=MsgBox dass die Tabelle'
' nicht gesendet ist, sonst währe eine Fehlermeldung angezeigt'
Sheets("ProduktionMontag").Copy
On Error Resume Next
ActiveWorkbook.SendMail Recipients:="xxxxxx", Subject:="Betreff"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , " xxxxxx !!"
On Error GoTo 0
End Sub
danke
marko