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

Ansicht des Beitrags:
Von:
Cody
Datum:
06.01.2023 19:25:54
Views:
183
Rating: Antwort:
 Nein
Thema:
Excel Tabelle Range kopieren und als Bild in Outlook einfügen

Hallo zusammen, ich bräuchte mal eure hilfe.

Ich möchte gerne einen bestimmten Range bereich Kopieren und in Outlook als bild Einfügen.

Bisher klappt es auch relativ gut, nur das das Bild sich verzerrt. 

Beim Manuellen Kopieren und in Outlook als Grafik einfügen bleibt die Fromatierung bzw. die Seitenverhältnisse perfekt wie in der Datei aber mit dem Code wird alles ein wenig gestreckt und zusammengeschoben und das soll es ja nicht.

 

Über eure hilfe würde ich mich echt freuen.

 

Anbei der Bisherige Code:

Option Explicit



Sub InOutlookEinfügen()



Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Dim strOldBody  As String
Dim Empfaenger As String
Dim CcEmpfaenger As String
Dim chtPicture As Chart
Dim strSheetName As String



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



'summary als JPG auf dem Laufwerk ablegen
strSheetName = Sheets("Benanntes Arbeitsblatt").Activate
ActiveSheet.Range("A2:M55").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
Application.Wait Now + TimeSerial(0, 0, 7)
chtPicture.Paste
Application.Wait Now + TimeSerial(0, 0, 5)
chtPicture.Export ActiveWorkbook.Path & "\" & strSheetName & ".png"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing





'mail befüllen
Set oMail = oApp.CreateItem(olMailItem)



With oMail
.GetInspector.Display
         strOldBody = .HTMLBody
    .BodyFormat = olFormatHTML
    .Display
    .To = Empfaenger
    .CC = CcEmpfaenger
    .Subject = "Test"
    .HTMLBody = "<b>ANREDE</b>" & "<br>" & "<b>EMAIL TEXT</b>" & "<br><br>" & "<img src=""file://O:\Adresspfad\Wahr.png"">" & "<br><br><br>" & "<b>Viele Grüße<b/>" & _
    strOldBody



'kehre zu ausgangs sheet zurück
Worksheets("functions").Activate



'PNG datei wider vom Laufwerk löschen
Kill "O:\Adresspfad\Wahr.png"

    '.Send
    '.Save


End With




End Sub

 


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