Email
29.06.2004 17:02:06
mathias
Ich hoffe mir kann jemand helfen!
Ich habe eine Arbeitsmappe von der ich nur eine Tabelle verschicken will. Das habe ich so gemacht:
Sub CommandButton1_Click()
On Error GoTo ErrorFalsch
Sheets("Tabelle1").Copy
Application.Dialogs(xlDialogSendMail).Show
If Application.Workbooks.Count > 1 Then
ActiveWorkbook.Close SaveChanges:=False
Else
Application.DisplayAlerts = False
Application.Quit
End If
ErrorFalsch:
Resume Next
End Sub
Jetzt habe ich Kontrollkästchen angebracht, mit verschiedenen Emailadressen. Wie kann ich es machen, dass alle Emailadressen die angeklickt wurden in die Email übernommen werden?
Wisst ihr was ich meine?
Besten Dank für eure Bemühungen!