AW: ich stelle den thread offen owT
24.03.2016 15:52:38
Andreas
Hallo Excelfreunde,
hier zu meinem Problem nochmals einen Code der soweit auch funktioniert.
Aber eben beide .HTMLBody nicht zusammen. wenn ich einen deaktiviere funktioniert der andere, wenn ich den anderen wieder aktiviere und den vorherigen deaktivier funktioniert diese ebenfalls.
Das Problem ist es das aber beide zusammen funktionieren sollen. Aber das tut es eben nicht.
habe den Code in einem Modul
Option Explicit
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
Bitte nochmals um Untestützung
liebe Grüße Andreas