Sendmail Tabellenblatt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Sendmail Tabellenblatt
von: Janni Skouras
Geschrieben am: 11.12.2003 14:18:38

Hallo Leute,

habe einige Zeit in den Archiven gesucht aber nichts passendes gefunden.

Ich möchte aus einer Arbeitsmappe einzelne Tabellen versenden (Name1, Name2, Name3 usw.). Dies funktioniert auch. Nur habe ich das Problem das Tabellenname im Emailanhang immer Mappe1 lautet. Er soll aber dem jeweiligen Tabellenblatt entsprechen. Ich benutze vereinfacht folgenden Code

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Name1").Copy
ActiveWorkbook.SendMail Recipients:=(Empfänger)
ActiveSheet.Name = "NameTest"
ActiveWorkbook.Close

Die Position ActiveSheet.Name = "NameTest" funktioniert nicht!

Hat irgendjemand einen Tip.

Danke im Voraus


Janni Skouras

Bild


Betrifft: AW: Sendmail Tabellenblatt
von: AndreasS
Geschrieben am: 11.12.2003 14:26:05

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("B1").Value & ".xls"
    ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("B1").Value
    ActiveWorkbook.Close savechanges:=False
End Sub


Range("B1") = Tabellenname

Hoffe es hilft dir...

Gruß Andreas


Bild


Betrifft: AW: Sendmail Tabellenblatt
von: Jannis Skouras
Geschrieben am: 11.12.2003 14:32:46

Hallo Andreas,

vielen Dank für die Antwort.
Hat sehr gut funktioniert!


Grus

Janni


Bild


Betrifft: AW: Sendmail Tabellenblatt
von: AndreasS
Geschrieben am: 11.12.2003 14:41:59

Danke für die Rückmeldung.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Sendmail Tabellenblatt"