Zwei Tabellenblätter per email versenden
18.11.2004 12:29:44
stefano
Ich habe eine Excel Mappe mit mehreren Tabellen. Nun möchte ich gerne zwei Tabellen aus dieser Mappe zusammen per email verschicken. Es sollen also zwei Dateien als Anhang generiert werden, die auch einen bestimmten Dateinamen haben sollen. Ich hab hier schon folgendes gefunden:
Sub BlattSenden()
Dim DateiName As String
Sheets("Meine Mappe").Copy
With ActiveWorkbook
.SaveAs "Meine Mappe"
DateiName = .FullName
.Sheets(1).Name = "Meine Mappe"
Application.Dialogs(189).Show "", ActiveSheet.Name
.Close False
End With
Kill DateiName
End Sub
Kann aber immer nur eine Datei schicken!? Geht das auch mit zwei?
Außerdem wäre es nicht schlecht, wenn schon ein vorgegebener Text in der Mail steht.
Vileen Dank für Eure Hilfe