mit folgendem Makro versende ich das aktive Blatt als Mail
Sub Blatt_verschicken()
' Das aktive Blatt wird in eine neu erzeugte Mappe gestellt
ActiveSheet.Copy
With Application
.Dialogs(xlDialogSendMail).Show _
"Mailadresse, Mailadresse", _
"Transport", True
.DisplayAlerts = False
End With
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
aber wie bekomme ich es hin, wenn ich noch eine weitere Mailadresse als Kopie und noch eine weitere als Blindkopie mit eingeben möchte ?
Gruß Peter