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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen