Beispielquelltext für das Einstellen von Terminen in Microsoft® Outlook aus Excel® heraus.
Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_createterminoutlook.php
' ************************************************************************************************
Sub MWTermin2Outlook()
Dim oOutlookApp As Object
Dim oTermin As Object
'Verbindung/Referenz zu Outlook
Set oOutlookApp = CreateObject("Outlook.Application")
'Termin erzeugen
Set oTermin = oOutlookApp.CreateItem(1)
'Termin Einstellungen vornehmen
With oTermin
'Starttermin (hier bswp.: Heute in 14 Tagen um 10 Uhr)
.Start = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
'Betreff, Termintitel
.Subject = "Automatisch erzeugter Termin mit VBA!"
'Inhalt des Termins
.Body = "Dies ist ein automatisch erzeugter Termin mit VBA!"
'Ort
.Location = "noch offen"
'Dauer in Minuten
.Duration = "60"
'Erinnerung vor Start in Minuten
.ReminderMinutesBeforeStart = 10
'Sound abspielen
.ReminderPlaySound = True
'Erinnerung setzen
.ReminderSet = True
'Speichern
.Save
'Anzeigen
.Display
End With
Set oTermin = Nothing
Set oOutlookApp = Nothing
End Sub
Autor: Marc Wershoven (2014)
VBA Programmierer gesucht?
http://www.WershovenOnline.de
Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach!
Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!
Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.
Zum Anbieter des Quick-E-Mail-Support...