Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Aufgabe aus einer Tabelle heraus in Microsoft® Outlook® eintragen

VBA und Makros • Codeschnipsel • Tabelle • Aufgabe • Erstellen • Einfügen

Ausgangslage ... Was tut der Codeschnipsel?

Beispielquelltext für das Einstellen von Aufgaben in Microsoft® Outlook aus Excel® heraus.

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®
OUTQuelltext zur Verwendung mit Microsoft® Outlook®

Der Quelltext ...

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_createtaskoutlook.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************


Public Sub OVBAde_Aufgabe2Outlook()
  Dim oOutlookApp As Object
  Dim oAufgabe As Object
    
    'Verbindung/Referenz zu Outlook
    Set oOutlookApp = CreateObject("Outlook.Application")
    
    'Aufgabe erzeugen
    Set oAufgabe = oOutlookApp.CreateItem(3)
    
    'Aufgabe Einstellungen vornehmen
    With oAufgabe
        'Starttermin (hier bswp.: Heute in 14 Tagen um 10 Uhr)
        .StartDate = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        'Betreff, Titel
        .Subject = "Automatisch erzeugte Aufgabe mit VBA!"
        'Inhalt
        .Body = "Dies ist eine automatisch erzeugte Aufgabe mit VBA!"
        'Erinnerung setzen
        .ReminderTime = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        .ReminderSet = True
        'Speichern
        .Save
        'Anzeigen
        .Display
    End With
    
    Set oAufgabe = Nothing
    Set oOutlookApp = Nothing
End Sub

Anmerkungen und Hinweise ...

Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2015.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE