Excel-Tabelle in den Body von Outlook?

Forumthread: Excel-Tabelle in den Body von Outlook?

30.09.2003 01:07:20

Björn

Huhu zusammen,

ich suche nach einer Lösung, den Inhalt einer Excel-Tabelle in den Body einer Outlook-Mail zu verfrachten. Dabei soll der Inhalt weder als plain text noch als HTML-Text in den Body eingebettet werden, sondern so, wie wenn manuell ein Bereich kopiert würde und per "Paste" in den Body-Bereich eingefügt würde. Der Punkt ist, daß die Tabelle damit sowohl als Anlage als auch lesbar im Body-Bereich verschickt würde.

Lieben Dank

Björn

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel-Tabelle in den Body von Outlook?

30.09.2003 11:08:13

Bernhard
AW: Excel-Tabelle in den Body von Outlook?

01.10.2003 01:18:50

Björn
AW: Excel-Tabelle in den Body von Outlook?

01.10.2003 10:17:51

Bernhard
Grrrrr war das falsche

01.10.2003 19:00:19

Bernhard
Demo

02.10.2003 12:03:48

Bernhard

AW: Excel-Tabelle in den Body von Outlook?

30.09.2003 11:08:13

Bernhard

Huhu Björn,

eins vorab, funktioniert nur wenn die Empfänger alle HTML aktiviert haben.
Sonst kommt nur Schrott an.
Trotzdem Interesse?

Bernhard

AW: Excel-Tabelle in den Body von Outlook?

01.10.2003 01:18:50

Björn

Huhu Bernhard,

komm erst jetzt aus der Arbeit / zum Antworten. Ich bin immer an allen Anregungen und Ideen interessiert :-). Freilich war / bin ich in diesem Fall eher auf Suche nach einer einer Nicht-HTML-Lösung. Trotzdem würde mich Deine Idee interessieren.

Viele Grüße

Björn

AW: Excel-Tabelle in den Body von Outlook?

01.10.2003 10:17:51

Bernhard

Hallo Björn, hier mein Vorschlag:


Sub EmailAktivesTabellenblatt()
On Error Resume Next
Dim s2 As String
ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
ASN = Cells(21, 3).Value  ' Anpassen *********************
ASN2 = Left(ASN, 21)
ActiveSheet.Name = ASN2
SAVE
s = InputBox _
("Hier kann ein Adressat eingegeben werden!", "Adressat")
s2 = Cells(21, 3).Value
Application.Dialogs(xlDialogSendMail).Show S, s2
ActiveWorkbook.Close savechanges:=False
End Sub


Sub SAVE()
On Error Resume Next
Datum
PruefenVerzeichnis
ActiveWorkbook.SaveAs Range("F21").Value  ' Anpassen !!!!!!!!!!!!!!
End Sub

das Problem beim versenden an einen nicht HTML-Empfänger: die einzelnen Excel-Zellen werden einfach hintereinandergehängt. So sah es zumindest bei mir aus.... Probier mal.
Sollte das Script nicht laufen, melde Dich bitte noch mal.....

Gruß,

Bernhard

Grrrrr war das falsche

01.10.2003 19:00:19

Bernhard

Hallo Björn,
kommt davon wenn man zu viel nebenbei macht....
habe jetzt meine Makro-Sammlung nicht dabei, ich schicke es Dir Morgen!

CU,

Bernhard

Demo

02.10.2003 12:03:48

Bernhard

Hallo Björn,

hier die Richtige Datei.

Bernhard

https://www.herber.de/bbs/user/1233.xls

Excel-Tabelle in den Body von Outlook?

Forumthread: Excel-Tabelle in den Body von Outlook?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread