Re: Hilfe! mailversand per button ?
25.10.2002 15:12:41
wilhelm
Hallo Dino,hier ein Ansatz, Du musst halt noch die Bezeichnung der Tabelle anpassen. Wenn die Tabelle 1 z.B. Quartal heisst,
dann ersetze den Index bei sheets(1) durch den Namen, z.B
sheets("Quartal")
Sub MailAktivTabelle()
Dim str1 As String 'Variable für Empfänger
Dim str2 As String 'Variable für Betreff
Dim mappe As Workbook
'Container für den neuen Anhang
Dim blatt1 As Object
'Variable für das 1. Tabellenblatt
Dim blatt2 As Object
'Variable für das 2. Tabellenblatt
On Error GoTo fehler
Set blatt1 = ActiveWorkbook.Sheets(1) ' hier deine Tabelle 1
Set blatt2 = ActiveWorkbook.Sheets(2) 'hier deine Tabelle 2
blatt1.Copy 'erstellt eine Mappe mit dieser Tabelle
ActiveWorkbook.SaveAs "Anhang1.xls" 'speichert diese Mappe
Set mappe = ActiveWorkbook 'setzt die aktive"neue" Mappe als Variable
blatt2.Copy before:=mappe.Sheets(1) 'kopiert die 2. Tabelle in die neue Mappe
'Rest wie gehabt
str1 = InputBox _
("Bitte Adressaten eingeben!" & Chr(13) & _
"hans.muster@xx.ch", "Adressat")
If str1 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
str2 = InputBox _
("Bitte Betreff eingeben!", "Titel")
If str2 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
Application.Dialogs(xlDialogSendMail).Show str1, str2
Exit Sub
fehler:
MsgBox ("Es muss eine Datei geöffnet sein!")
End Sub
Gruss