Outlooktermin mit HTML-Body erzeugen

Guten Abend zusammen,
wie man eine Email aus Excel mit Tabellen und Bildern exportiert, habe ich bereits verstanden in einigen Projekten implementiert. Nun würde ich gerne einen Outlook-Termin erzeugen, der im .body HTML-Tags erkennt. Meinen bisherigen Recherchen zufolge scheint das alles andere als einfach via VBA umsetzbar zu sein, wenngleich man Bilder und Formatierungen "händisch" in jeden Termin via Outlook-Frontend einfügen kann. Hier mein Code und die stark verschlankte Datei:


Sub Termin_Export()
Dim myDictAllEmail, myDictSendEmail As Object
Dim DictKey As Variant
Dim TempFilePath, xHTMLBody, emailList As String
Dim xRg, rng, myCell, rngAusbilder As Range
Dim lastRow, i, foundEmails As Long
Set myDictAllEmail = CreateObject("Scripting.Dictionary")
Set myDictSendEmail = CreateObject("Scripting.Dictionary")
Set rngAusbilder = Nothing
On Error Resume Next
'Email-Verteiler erzeugen
With ActiveSheet
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
If lastRow " _
& "" _
& "Liebe Kolleginnen und Kollegen,
 " _
& "
" _
& "[PLATZHALTER FÜR INFOTEXT TESTLEITUNG]" _
& "
" _
& "" _
& "
Freundliche Grüße"
.Start = Format((Date + 1), "dd.mm.yyyy") & " 09:00"
.Duration = "60"
.Subject = "Betreff"
.body = HTMLBody
.Location = "Ort"
.Recipients.Add (emailList)
.Attachments.Add TempFilePath & "Testplanung.jpg", olByValue
.ReminderPlaySound = True
.ReminderSet = True
.Display
End With
End Sub


Sub createJpg( SheetName As String, xRgAddrss As String, nameFile As String)
Dim xRgPic As Range
Dim xShape As Shape
'    Call FreigabeAusschalten
ThisWorkbook.Activate
Worksheets(SheetName).Activate
Set xRgPic = ThisWorkbook.Worksheets(SheetName).Range(xRgAddrss)
xRgPic.CopyPicture
With ThisWorkbook.Worksheets(SheetName).ChartObjects.Add(xRgPic.Left, xRgPic.Top, xRgPic.Width, xRgPic.Height)
.Activate
For Each xShape In ActiveSheet.Shapes
xShape.Line.Visible = msoFalse
Next
.Chart.Paste
.Chart.export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
End With
Worksheets(SheetName).ChartObjects(Worksheets(SheetName).ChartObjects.Count).Delete
Set xRgPic = Nothing
'    Call FreigabeEinschalten
End Sub

Datein: https://www.herber.de/bbs/user/153654.xlsm
Es werden eine Grafik der Testplanung und ein passender Email-Verteiler erzeugt (warum immer 1 user unknow bleibt, keine Ahnung). Beides soll zukünftig nicht als Email sondern gleich als Testtermin vesendet werden können.
Hoffe, Ihr könnt mir erneut weiterhelfen.
LG Kalle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Excel_Termin_nach_Outlook() Dim OutApp As Object, apptOutApp As Object Dim antw, datum As Range, rng_Tag As Range Set OutApp = CreateObject("Outlook.Application") Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem) Set rng_Tag = Rows(ActiveCell.Row).Find("x", , xlValues, xlWhole) Set datum = Cells(1, rng_Tag.Column) If IsDate(datum) Then antw = vbYes If datum

Hi Kalle,
a) nein, ich kannte diesen Ansatz nicht.
Hab das Problem "HTML mit VBA in Outlook-Termin" erst durch deine Anfrage kennengelernt - und auch dein Hinweis auf den englischen Link brachte mich eben zu dem Link, den ich vorher nicht kannte.
b) als ich den Code getestet hab, hatte ich denselben Fehler genauso in der von dir erwähnten Zeile.
Im Unterschied zu dir wusste ich aber sofort, dass eben zur Outlook-Bibliothek der Verweis gesetzt werden muss - dazu mein Hinweis wegen Early bzw Late Binding - google danach, dann wirst du den Unterschied kennenlernen.
c) ja, ich weiß, dass auf deinem Computer die OL-Bibliothek - nicht - geladen war....deswegen hatte ich dich ja genau darauf hingewiesen in meiner letzten Antwort.
d) das, was du als "...diese Umwege erforderlich sind." bezeichnest (wenn du mit Umweg den Verweis zur OL-Bibliothek meinst), hat das gar nix mit Mail oder Termin zu tun.
Wenn, wie im Code angewendet - Early Binding - zum Einsatz kommt, ist der Verweis zur Bibliothek erforderlich.
Wenn du aber Late Binding verwendest, ist der Verweis nicht erforderlich.
e) diese Bibliotheken sind auf jedem Computer, auf dem MS Office installiert ist, verfügbar....eben in der jeweil installierten Office-Version.
Und ja, es is ok, wenn z Bsp dein Computer ne andere Version als z Bsp n Kollege hat (Version sollte nicht älter als 2007 sein). Der hier für Termin verwendete Code ist Standardcode. Der Verweis ist nur (bei Early...) erforderlich, um zu anderen Office-Programmen, hier Outlook, eine Verbindung herzustellen.
Ciao
Thorsten

'Plan-Chart erzeugen If xRg Is Nothing Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False End With Call createJpg(ActiveSheet.Name, xRg.Address, "Testplanung") TempFilePath = Environ$("temp") & "\" Sheets("Quellverweise").Cells(8, 12).Value = "" 'Terminvorlage erstellen appt.Start = Format((Date + 1), "dd.mm.yyyy") & " 09:00" appt.Duration = "60" appt.Subject = "TESTUNG" appt.Location = "Ort" appt.Recipients.Add (emailList) appt.attachments.Add TempFilePath & "Testplanung.jpg", olByValue appt.ReminderPlaySound = True appt.ReminderSet = True appt.Display m.BodyFormat = olFormatHTML For i = 4 To 9 m.HTMLBody = m.HTMLBody & Sheets("Quellverweise").Range("L" & i).Value Next m.GetInspector().WordEditor.Range.FormattedText.Copy appt.GetInspector().WordEditor.Range.FormattedText.Paste m.Close False m.Delete Kill ThisWorkbook.Path & "\Testplanung.jpg"

Beliebteste Forumthreads (12 Monate)

Outlooktermin mit HTML-Body erzeugen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlooktermin mit HTML-Body erzeugen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread