Bestimmte Tabelle via Email versenden

Bild

Betrifft: Bestimmte Tabelle via Email versenden von: Uwe
Geschrieben am: 10.02.2005 22:01:22

Hallo ung guten Abend,

ich habe folgendes Problem:

Ich habe eine Arbeitsmappe mit ca. 8 Tabellen.
Davon möchte den Inhalt der Tabelle 7 durch
klick auf eine Schaltfläche per Email versenden.

Geht das irgendwie??

Danke für Hilfe

Uwe

Bild


Betrifft: AW: Bestimmte Tabelle via Email versenden von: Josef Ehrensberger
Geschrieben am: 10.02.2005 22:14:08

Hallo Uwe!

Zum Beispiel so.

Sub Mail_One_Sheet()
    Dim wb As Workbook
    Dim strdate As String
    strdate = Format(Now, "dd-mm-yy h-mm-ss")
    Application.ScreenUpdating = False
    
    Sheets("Tabelle7").Copy    '<--- Tabellenname anpassen!
    Set wb = ActiveSheet
    
    With wb
        .SaveAs "Teil von " & ThisWorkbook.Name _
              & " " & strdate & ".xls"
        .SendMail "try.to@guess.it", _
                  "Das ist der Betreff:"
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
    
    Application.ScreenUpdating = True
    
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Bestimmte Tabelle via Email versenden von: Uwe
Geschrieben am: 10.02.2005 22:32:56

Hallo Sepp,

vielen Dank für Deine schnelle Hilfe!!

Mit diesem Code erstelle ich immer
eine neue Arbeitsmappe, die als
Anlage versendet wird. Geht es auch, wenn ich sage:
"Gehe von meiner Ausgangsposition (Tabelle2)
zu Tabelle7 versende diese (via dem Butten bei den
Standard-Schaltflächen) direkt ohne sie zuerst
in eine neue Arbeitsmappe zu kopieren?
Dann wieder zurück zu Tabelle2.

Gruss
Uwe


Bild


Betrifft: AW: Bestimmte Tabelle via Email versenden von: Ralf (Schwabenland)
Geschrieben am: 11.02.2005 11:21:58

Hallo Uwe,

schau mal hier vorbei:

http://www.rondebruin.nl

Gruß
Ralf


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Tabelle via Email versenden"