Office: (Office 365) VBA Grafik in E-Mail einfügen

sometime · 30. August 2023

Hallo zusammen,

ich habe mir in verschiedenen Foren einen VBA-Code zusammengesucht, angepasst und entsprechend nutze ich diesen jetzt auch.
Hierzu hätte ich jetzt zwei Fragen:
1. Grafik wird innerhalb des Signatur-Texts eingefügt. Bedeutet dort steht dann sowas wie: "Mit freund [Grafik] lichen Grüßen..." Ist eher kosmetischer Natur, sieht aber einfach doof aus. Ich habe allerdings keine Stelle gefunden, wo ich im Code die Einfügeposition innerhalb einer Outlook-Mail beeinflussen kann.

2. Aktuell werden die Mails dann immer über den Standard Outlook-Account des jeweiligen Users (welcher den Code ausführt) versendet. Besteht die Möglichkeit die E-Mail auch über ein Gruppenpostfach zu versenden? Das Gruppenpostfach wird über das Standardprofil des Users geöffnet (freigegebenes Postfach).

Ich bin für Tipps dankbar!
Code:
Option Explicit

Sub Test()

  Dim sMailtext As String
  
  'sMailtext = Tabelle9.Shapes("Textfeld 1").TextFrame2.TextRange.Text
  sMailtext = Tabelle9.Range("A15")
 
 
  Do
     ThisWorkbook.Sheets("Test").Range("B3:L5").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
     If Err.Number = 0 Then Exit Do
     Err.Clear
  Loop

  With CreateObject("Outlook.Application").CreateItem(0)
      .GetInspector.Display
      .To = "max.mustermann@email.de"
      .CC = ""
      .BCC = ""
      .Subject = "Deine Daten vom " & Tabelle9.Range("A1").Value
      .htmlbody = "<body style='font-size:10pt;font-family:Arial;color:#000000;'>" _
                & sMailtext & "<br><br></body>" & .htmlbody
      
      With .GetInspector.WordEditor.Application.Selection
          .Start = Len(sMailtext) + 2
          .Paste                         ' Grafik in Mail einfügen
      End With
      .Display   'or use .Send
      SendKeys "^({ENTER})", True
      
    End With
End Sub
Vielen Dank und viele Grüße
sometime

d'r Bastler · 30. August 2023

Moin sometime,
versuch's mal im Outlook-Forum. Auch wenn Du Deine Grafik aus XL holst, sehe ich kein XL-Thema.
Grüße

Beverly · 30. August 2023

Hi,

du musst das Shape auf die Festplatte exportieren und von dort in die Mail holen - nach diesem Prinzip:

Code:

Sub MailMitBildSenden()
   Dim objNachricht As Object
   Dim objMail As Object
   Dim strBildExport As String
   strBildExport = Environ$("temp") & Format(Now, "nnmmss") & ".jpg"
   ' Shape exportieren
   BildExportPicture strBildExport
   Set objMail = CreateObject("Outlook.Application")
   Set objNachricht = objMail.CreateItem(0)
   With objNachricht
       .To = "Deine@Mailadresse"
       .Subject = "Erinnerung"
       ' normaler Text + Bild + weiterer normaler Text
       ' <br><br> entspricht 2 Zeilenumbrüchen vor und 2 Zeilenumbrüchen nach dem Diagramm
       .HtmlBody = "Sehr geehrte Damen und Herren," & _
            "<br><br><img src=" & strBildExport & "><br><br>" & "Dies ist die Unterschrift"
       .ReadReceiptRequested = False
       .display
       '.send
   End With
   Set objNachricht = Nothing
   Set objMail = Nothing
   ' gespeichertes Bild löschen
   Kill strBildExport
End Sub

Function BildExportPicture(strBild As String)
    Dim chrDia As ChartObject
    Dim shaBild As Shape
    Application.ScreenUpdating = False
    Set shaBild = ActiveSheet.Shapes(1)  '<== eventuell Name des Bildes anstelle 1
    ' Bild kopieren
    shaBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ' diagramm einfügen, Größe emtspricht der Bildgröße
    Set chrDia = ActiveSheet.ChartObjects.Add(0, 0, shaBild.Width, shaBild.Height)
    With chrDia.Chart
        ' erforderlich bei Excel2010, da Diagrammfläche automatisch mit Rahmen erstellt wird
        .Parent.ShapeRange.Line.Visible = msoFalse
        ' Bild in Diagrammfläche einfügen
        .Paste
        ' Diagramm exportieren
        .Export Filename:=strBild
        ' Diagramm löschen
        .Delete
    End With
    Set chrDia = Nothing
    Set shaBild = Nothing
    Application.ScreenUpdating = True
End Function

VBA Grafik in E-Mail einfügen Grußformel

VBA Grafik in E-Mail einfügen Beverly's Excel - Inn

Office: (Office 365) VBA Grafik in E-Mail einfügen

VBA Grafik in E-Mail einfügen

VBA Grafik in E-Mail einfügen

VBA Grafik in E-Mail einfügen - Similar Threads - VBA Grafik Mail

Grafik mit VBA in anderes Tabellenblatt kopieren

Grafiken per VBA in Excel zentrieren

VBA: Name von Grafik im Direktfenster / bestimme Grafiken löschen

Grafik per VBA "in den Hintergrund"

Sverweis mit Grafik ohne VBA

Grafik auf mehrere Arbeitsblätter kopieren

Grafik per Dropdown auswählen

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

(Office 2019) Laufzeitfehler 9 VBA

Dynamische Tabellen mit automatischer Aktualisierung

Speichern mit dem Titel der Zelle A2

VBA Fußball Kalender