Mail an mehrere ...
26.01.2004 21:33:36
Peter
irgendwie bin ich heute abend ein bischen "dösig" ...
wenn ich die Lösung gleich sehen werde, wird es wohl peinlich für mich sein
Ich bekomme es nicht hin eine zweite und dritte Mailadresse hier einzubauen
an Sabine klappt einwandfrei - aber ich bekomme da einfach nicht noch den WÚwe mit eingebaut ?!?!
Sub Mail_an_SabineundUwe()
ActiveSheet.Copy
ActiveSheet.Shapes("Mail").Visible = False
With Application
.Dialogs(xlDialogSendMail).Show _
"Sabine... de", _ 'Mailadressen
"Italien GPS-Liste", True
.DisplayAlerts = False
End With
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Gruß Peter
Anzeige