Einzelnes Tabellenblatt mailen

Forumthread: Einzelnes Tabellenblatt mailen

08.01.2004 14:20:52

thomas

Hallo,
sorry für diese unprofessionelle Frage:
Kann man auch ein einzelnes Tabelleblatt aus einer Arbeitsmappe als Anhang mailen?
Danke für die Hilfe.
thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einzelnes Tabellenblatt mailen

08.01.2004 14:33:10

AndreasS
AW: Bestens Dank

08.01.2004 19:48:32

thomas

AW: Einzelnes Tabellenblatt mailen

08.01.2004 14:33:10

AndreasS

Hallo,


Sub AktiveTabelleEmail()
Dim Empfänger As String
Empfänger = InputBox("Geben Sie den Empfänger der Email ein: ")
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("ABC").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("ABC").Value
ActiveWorkbook.Close savechanges:=False
End Sub

ABC solltest du noch anpassen...
Hoffe geholfen zu haben.
Gruß
Andreas

AW: Bestens Dank

08.01.2004 19:48:32

thomas

--- o.T.

Forumthread: Einzelnes Tabellenblatt mailen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread