Office: (Office 2007) aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hallo,
ich möchte eine aktive Excel-Datenblatt per VBA-Makro nach Outlook kopieren (Nachricht) und als Anhang versenden.

Kann mir jemand mit dem Makro helfen?


@ mumpel Danke


Dank „mumpel“ habe jetzt folgenden Code, siehe unten:

3 Fragen habe ich aber noch.

Geht das zu machen?

Code:
Sub eMail_Versenden()
Dim OlApp As Object
Dim AWS As String
Dim olOldbody As String
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\windows\temp\anhang.xls"
Application.DisplayAlerts = True
AWS = ActiveWorkbook.FullName
Set OlApp = CreateObject("Outlook.Application")
With OlApp.CreateItem(0)
.GetInspector.Display
.ReadReceiptRequested = True
.Sensitivity = 3
.Importance = 2
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger5@"
.Subject = "Test"
.HTMLBody = "Hallo! Anbei gewünschte Informationen.
" & _ RangetoHTML(Range("B5:G10")) & _ olOldbody
.Attachments.Add AWS
End With
End Sub

Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x ublishsource=", _
"align=left x ublishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function

Danke

:)

 

Hallo,
ist es möglich bei diesen Code "RangetoHTML(Range("B20:G30"))" den Bereich automatisch auszulesen? (B20 = Überschriften : Xxx die befühlten Zeilen)

Wenn nicht, ist es möglich den bereich "G30" aus der Zelle "AK4" zu benutzen?

Danke

 

Hallo,
ich nochmal, hat keine eine Lösung? *frown.gif*

Danke

 

Hi,

nach diesem Prinzip:

Code:

 

Hallo Beverly,

leider Funktioniert es nicht.

Die Tabelle Vorlage:
Auftrag_offen

	A	B	C	D	G	H
6		<> was du willst
7	ID	Auftrag_Eing	Kunde	AuftragNr	Bearbeiter	Test
8	57	15.10.2014	wsx	88	qwe	Test
9	66	30.04.2015	rfv	103	asd	Test
10	67	04.05.2015	tgb	216	yxc	Test
11	69	05.05.2015	zhn	278	rtz	Test
12	70	06.05.2015	ujm	444	dfg	Test
13	71	07.05.2015	ik,	448	cvb	Test
14	73	09.05.2015	esy	656	ghj	Test
15	75	10.05.2015	rdx	695	bnm	Test
16	78	11.05.2015	tfc	806	jkl	Test
17	79	12.05.2015	zgv	836	iop	Test
18	80	22.05.2015	uhb	888	rfv	Test
19	83	04.06.2015	ikm	992	zhn	Test

Excel Tabellen im Web darstellen >>

 

Ist es auch möglich das die Copy nach Outlook die Formatierung behält?

Danke

 

Du hast angegeben, dass der Bereich Range("B20:G30") dynamisch in Abhängigkeit von der Anzahl gefüllter Zeilen kopiert werden soll - genau das macht der Code auch. Wenn es eine andere Startzeile sein soll, musst du das selbstverständlich anpassen. Der komplette erste Teil des Codes sieht bei mir so aus:

Code:

 

Hallo,

erstmal Danke.

Makro 1 Funktioniert (Anfang bei 20 und 7 Spalten)

Doch Tabelle dich ich versenden muss hat unterschiedliche Spalten.
Die ersten 3 (A-C) sind immer vorhanden, ab der 4 (D-AI) sind Dynamische, nur die die gebraucht werden, sind sichtbar, die die nicht gebraucht werden, werden Ausgeblendet.

Per email möchte ich immer nur die sichtbaren übertragen.

Bsp:
Makro 2 : Sichtbare Spalten A-G, W-Z
Makro 3 : Sichtbare Spalten A-C, H-I, M,O
Makro 4 : Sichtbare Spalten A-D
Makro 5 : Sichtbare Spalten A-F

Deswegen die Frage ob der Bereich Dynamisch gemacht weden kann?

 

Hi,

ich nehme an du meinst nicht Makro2 bis Makro5 sondern die Makrodurchläufe?
Ergänze diesen Codeteil:

Code:

Damit werden nur die von A bis Z sichtbaren Spalten übertragen.

 

Hallo,

doch ich meine die verschiedenen Makros die ich haben (zur Übersicht meine 12 Makros).

Die Zeile "Set rngBereich..." funktioniert jetzt wie ich es brauche, DANKE.


Ein Probleme/Frage habe ich aber noch.
Beim Kopieren ins Outlook gehen die "Bedingte Formatierungen" der Betroffenen Zellen verloren.

Kann man dies auch mit Kopieren/übernehmen?

Danke

 

Anbei die Bilder zum verdeutlichen.

 

Weshalb brauchst du 12 mal dasselbe Makro, nur weil sich die Spalten unterscheiden, die nach Outlook kopiert werden sollen? Mit der Zeile Set rngBereich = .... werden doch nur die jeweils sichtbaren übertragen, gleichgültig welche eingeblendet sind.

Ich kenne deine bedingte Formatierung nicht, aber dass sie nicht übertragen wird hängt sicherlich damit zusammen, welche Bedingungen du verwendest - beziehst du dich dabei nämlich auf Zellen in den Zeilen < 20 oder Spalten > Spalte Z, dann fehlen diese Bezugswerte in dem Template, da nur die Zeilen 20 bis xxx und Spalten A bis Z kopiert werden und die bedingte Formatierung greift dann nicht mehr.

 

Zu den Makros : Jeder Makro sortiert je nach fehlerhafte Eintrag in der Datei. Es ist nicht nur wegen den Spalten.

Zu den bedingte Formatierung, hier 2 Bsp zur verständigung:
Bsp. 1:

Bsp. 2:

 

Lad die Datei hoch, mit Bildern kann ich wenig anfangen.

 

Du beziehst dich bei diesen Bedingungen auf keine Zellen außerhalb des zu kopierenden Bereichs - verwendest du nur diese oder noch weitere? Falls nicht, dann liegt es wohl doch an Excel2007, dass die Bedingungen nicht übertragen werden, denn wie schon geschrieben - bei mir (Excel2013) fuktionieren solche bedingten Formatierungen, die sich nicht auf Zellen außerhalb des zu kopierenden Bereichs beziehen, völlig problemlos.

Das einzige was mir noch einfällt wäre, dass du in der Prozedur Sub eMail_Versenden() die Zeile

Code:

direkt vor End With ziehst - möglicherweise hat das Einfluss.