Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabelle in Email einbetten
zurück: Dateien und Ordner in den Papierkorb verschieben weiter: Daten in Mappe speichern. aber nicht in einer Tabelle Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nepumuk
VB / VBA Programmierer


Verfasst am:
14. Sep 2007, 23:55
Rufname: Max
Wohnort: Dusseldoof

Tabelle in Email einbetten - Tabelle in Email einbetten

Nach oben
       Version: Office 2k (2000)

Hallo,

das folgende Beispiel zeigt wie ein bestimmter Bereich einer Tabelle inklusive der Formate in eine Outlook - Email eingebettet wird.

Code:
Option Explicit

Public Sub TableToMail()
    Dim objOutlook As Object
    Dim objMail As Object
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    With objMail
        .to = "nepumuk@himmel.aa"
        .Subject = "Auslastung vom " & CStr(Date)
        .HTMLBody = RangeToHTML(ActiveSheet, ActiveSheet.Range("A1:E12"))
        .Display    'nur Anzeigen
'        .Send       'direkt senden
    End With
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Private Function RangeToHTML(objSheet As Worksheet, objRange As Range) As String
    Dim strFilename As String
    strFilename = Environ$("TEMP") & "/" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".htm"
    ActiveWorkbook.PublishObjects.Add( _
        SourceType:=xlSourceRange, _
        Filename:=strFilename, _
        Sheet:=objSheet.Name, _
        Source:=objRange.Address, _
        HtmlType:=xlHtmlStatic).Publish True
    RangeToHTML = CreateObject("Scripting.FileSystemObject"). _
        GetFile(strFilename).OpenAsTextStream(1, -2).ReadAll
    Kill strFilename
End Function

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
15. Sep 2007, 09:12
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: Tabelle in Email einbetten - AW: Tabelle in Email einbetten

Nach oben
       Version: Office 2k (2000)

Hallo,

nimmt den Beitrag aus den unbeantworteten heraus.

_________________
Gruß
Peter
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Daten aus Tabelle durch key herausholen 11 User003 1309 26. Jul 2005, 11:20
Gast Daten aus Tabelle durch key herausholen
Keine neuen Beiträge Excel Formeln: dreistellige zahlen in einer tabelle sortieren 4 konti_007 1089 19. Jul 2005, 09:47
Gast dreistellige zahlen in einer tabelle sortieren
Keine neuen Beiträge Excel Formeln: Tabelle nach einem Teil einer Zelle sortieren 14 Holzhuhn 1386 15. Jul 2005, 15:39
Holzhuhn Tabelle nach einem Teil einer Zelle sortieren
Keine neuen Beiträge Excel Formeln: Werte einer Tabelle auslesen 4 bobi 1930 29. Jun 2005, 13:36
bobi Werte einer Tabelle auslesen
Keine neuen Beiträge Excel Formeln: Werte von einer Tabelle in eine andere Übernehmen 11 Blue_Whirlwind 2311 22. Mai 2005, 17:18
Blue_Whirlwind Werte von einer Tabelle in eine andere Übernehmen
Keine neuen Beiträge Excel Formeln: Kann man 4 Übereinstimungen in einer 2 Tabelle ausgeben?? 2 Blue_Whirlwind 790 03. Mai 2005, 20:08
Arnim Kann man 4 Übereinstimungen in einer 2 Tabelle ausgeben??
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Erinnerungs Mail anstossen aus Excel Tabelle in Lotus Notes 1 Gast 987 03. Mai 2005, 14:48
fl618 Erinnerungs Mail anstossen aus Excel Tabelle in Lotus Notes
Keine neuen Beiträge Excel Formeln: Platzierungen aus einer Tabelle 24 Konz 3720 14. März 2005, 20:11
Konz Platzierungen aus einer Tabelle
Keine neuen Beiträge Excel Formeln: Text von Tabelle1 auch in Tabelle 2 kopieren 7 Pinguin1977 2848 30. Jan 2005, 16:56
Pinguin1977 Text von Tabelle1 auch in Tabelle 2 kopieren
Keine neuen Beiträge Excel Formeln: Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie? 4 excessor 1698 24. Jan 2005, 22:52
A.Knecht Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie?
Keine neuen Beiträge Excel Formeln: Verknüpfung Access Tabelle 1 DB_User 1788 17. Jan 2005, 11:54
ZeroCool Verknüpfung Access Tabelle
Keine neuen Beiträge Excel Formeln: Wert aus einer anderen Tabelle holen 2 =KB=Shorty 4867 17. Nov 2004, 21:22
=KB=Shorty Wert aus einer anderen Tabelle holen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe