Thema Datum  Von Nutzer Rating
Antwort
06.01.2023 19:25:54 Cody
Solved
Blau Excel Tabelle Range kopieren und als Bild in Outlook einfügen
 07.01.2023 00:37:26 volti
Solved
09.01.2023 10:23:44 Cody
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
07.01.2023 00:37:26		 Views:
1373		 Rating:
     
Antwort:
 Nein
Thema:
Excel Tabelle Range kopieren und als Bild in Outlook einfügen

Hallo Cody,

versuche es doch mal so....

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		  
Sub InOutlookEinfügen()
  Dim sMailtext As String, Empfaenger As String, CcEmpfaenger As String
  Dim Wsh As Worksheet

  Empfaenger = "email adresse1"
  CcEmpfaenger = "email adresse2"

  Set Wsh = ThisWorkbook.Sheets("Benanntes Arbeitsblatt")
  Wsh.Range("A2:M55").CopyPicture Appearance:=xlScreen, Format:=xlPicture

  With CreateObject("Outlook.Application").CreateItem(0)
      .GetInspector.Display
      .To = Empfaenger
      .CC = CcEmpfaenger
      .Subject = "Test"
      sMailtext = "<b>ANREDE</b><br><b>EMAIL TEXT</b><br><br>"
      .HTMLBody = sMailtext & "<br><br><b>Viele Grüße</b><br>" & .HTMLBody

      With .GetInspector.WordEditor.Application.Selection
          .Start = Len(sMailtext) - 24        ' <<< Position ggf. anpassen >>>
          .Paste                              ' Bereich in Mail einfügen
      End With
  End With
End Sub
_________
viele Grüße
Karl-Heinz

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:



  • 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
06.01.2023 19:25:54 Cody
Solved
Blau Excel Tabelle Range kopieren und als Bild in Outlook einfügen
 07.01.2023 00:37:26 volti
Solved
09.01.2023 10:23:44 Cody
Solved