Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Zwischenablage in Outlook-Body einfügen
 19.10.2017 11:32:51 Thomas
NotSolved
19.10.2017 12:09:03 SJ
NotSolved

Ansicht des Beitrags:
Von:
Thomas		 Datum:
19.10.2017 11:32:51		 Views:
3351		 Rating:
     
Antwort:
  Ja
Thema:
Excel-Zwischenablage in Outlook-Body einfügen

Hallo liebe Experten,

ich versuche seit geraumer Zeit einen kopierten Bereich aus Excel in den Body meiner E-Mail zu kopieren. Dabei soll die Formartierung der Tabelle erhalten bleiben.

Kann mir diesbzgl. jemand weiterhelfen? Meine Recherche hat mir leider keinen Erfolg gebracht.

Mein bisheriger Code sieht wie folgt aus und funktioniert bis auf das Einfügen der Zwischenablage.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub xxx()
 
Windows("xxx").Activate
Sheets("xxx").Select
 
ActiveSheet.Range("$A$1:$i$1").AutoFilter Field:=1, Criteria1:="<>xxx", _
Operator:=xlAnd
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlToTop
 
Sheets("xxx").ShowAllData
 
Range("B1:I1").Select
Range(Selection, Selection.End(xlDown).Offset(1, 0)).Select
Selection.Copy
 
 
Dim strHTML As String
Dim OutApp As Object
Dim OutMail As Object
 
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
 
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
With OutMail
.getInspector
.To = "xxx"
.Subject = ("xxx")
.HTMLBody = "
 
" & "Hallo," & "
 
" & "anbei sende ich eine Tabelle." & "
" & strHTML & .HTMLBody
.display '.send 'or use .Display
End With
 
Set OutMail = Nothing
Set OutApp = Nothing
 
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Besteht die Möglichkeit diesn Code irgendwie anzpassen)

Vielen Dank im Voraus!

Gruss

Thomas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Zwischenablage in Outlook-Body einfügen
 19.10.2017 11:32:51 Thomas
NotSolved
19.10.2017 12:09:03 SJ
NotSolved