Vielen Dank im vorraus
https://www.herber.de/bbs/user/104573.xlsm
Public Sub prc()
Dim objOutlook As Object, objMail As Object
Set objOutlook = CreateObject(Class:="Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "Andreas.Rohrbeck@jobcenter-ge.de"
.Subject = "Hallo"
Hier liegt mein Problem, wenn ich den .HTMLBody = fncRangeToHtml("Tabelle1", "B2:H37")
aktiviere und allein laufen lasse funktioniert das Makro und der markierte Bereich wird in die _
eMail übernommen.
Wenn ich beide '.HTMLBody
aktiviere wird nur der Bereich aus dem .HTMLBody = "Hallo Frau R,
" & _usw. ü _
bernommen.
Ich möchte aber beide .HTMLBody zusammenführen, oder nacheinander laufen lassen.
Aber eben das kriege ich nicht hin
'.HTMLBody = fncRangeToHtml("Tabelle1", "B2:H37") 'Anpassen !!!
.HTMLBody = "Hallo Frau R,
" & _
"
Hier die neuen Teilnehmer die ab Montag die Maßnahme beginnen sollen" & vbCrLf & _
"
" & _
"
" & _
"
" & _
"
schönes Wochenende
" & _
"Mit freundlichen Grüßen
" & _
"
Andreas
" & _
"Integrationsvermittler
" & _
"Telefon:
" & _
"Telefax:
" & _
"E -Mail: Andreas.de
" & _
"
Gunzenhausen
" & _
"1
" & _
"Ort
.Display 'zum testen
' .Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Private Function fncRangeToHtml(strWorksheetname As String, _
strRangeaddress As String) As String
Dim objFilesytem As Object, objTextstream As Object
Dim strFilename As String
strFilename = Environ$("temp") & "/" & _
Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename, _
Sheet:=strWorksheetname, _
Source:=strRangeaddress, _
HtmlType:=xlHtmlStatic).Publish True
Set objFilesytem = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFilesytem.GetFile(strFilename). _
OpenAsTextStream(1, -2)
fncRangeToHtml = objTextstream.ReadAll
objTextstream.Close
Set objTextstream = Nothing
Set objFilesytem = Nothing
Kill strFilename
End Function