Office: E-Mail Makro

Walperlohman@web.de · 2. Dezember 2017

Hallo zusammen,

ich möchte aus einem Sheet heraus per Makro einen Bereich in eine E-Mail kopieren und dann versenden. Die Diagramme werden aber leider nicht in die E-Mail mit übernommen und ich erhalte in der E-Mail immer ein Grafik-Platzhalter mit der Meldung "Das Bild kann zurzeit nicht angezeigt werden.".

Screenshot aus der Excel Datei:

Screenshot aus der E-Mail:

Ich nutze folgendes Makro:

Code:

Option Explicit

Public Sub TableToMail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
'.to = Range("R1")
.Subject = "deine KZA, WQ und VVL/h: Stand vom " & CStr(Date)
.HTMLBody = RangeToHTML(ActiveSheet, ActiveSheet.Range("A4:L47"))
.Display 'nur Anzeigen
'.Send 'direkt senden
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub

Private Function RangeToHTML(objSheet As Worksheet, objRange As Range) As String
Dim strFilename As String
strFilename = Environ$("TEMP") & "/" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".htm"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename, _
Sheet:=objSheet.Name, _
Source:=objRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
RangeToHTML = CreateObject("Scripting.FileSystemObject"). _
GetFile(strFilename).OpenAsTextStream(1, -2).ReadAll
Kill strFilename
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hat jemand eine Idee bzw. kann mir helfen?

Danke schon einmal im voraus.

Gruß
Steven

:)

Beverly · 4. Dezember 2017

Hi Steven,

du musst den Bereich mit den 4 Diagrammen zuerst insgesamt als Bild exportieren und dann das Bild in den HTMLBody integrieren:

Code:

.HTMLBody = RangeToHTML(......) & "< img src=pfad/bildname.jpg"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beachte bitte, dass das Leerzeichen vor img gelöscht werden muss - ist hier nicht anders möglich da der HTML-Code sonst nicht richtig angezeigt wird.

Walperlohman@web.de · 7. Dezember 2017

Hallo Beverly,

entschuldige die späte Rückmeldung. Aber du hast recht, es ist ein Ansatz, welchen ich mir am WE einmal genauer anschaue.

Danke für deine Hilfe/Hinweis.

Gruß
Steven

Office: E-Mail Makro

E-Mail Makro

E-Mail Makro

E-Mail Makro - Similar Threads - Mail Makro

Komplexes Makro ohne Ahnung :-/

Makro erstellen: PDF erstellen und als Mail verschicken.

Per Makro E-Mail auslesen und in Excel Tabelle speichern

Makro Zellüberwachung wenn Wert dann Mail mit Wert einer anderen Zelle

Nach Update auf Office 365 sendet Makro keine Mails mehr

Bild mittels Makro in E-Mail einbetten

Excel Datei mit Makro in mehrere PDF's konvertieren + E-Mail-Versand