Liebe Community,

ich möchte eine Userform erstellen, um aus Excel heraus einen Outlooktask mit Erinnerung erstellen zu können. Ich finde allerdings keine Lösung die Uhrzeit der Erinnerung mittels einer Eingabe über eine DTPicker festzulegen.

Ich vermute, dass es an einem Formatierungsfehler liegt.

Dies ist bislang mein Code:

<pre><code class=language-vba>
Sub UserForm_Activate()
DTPicker1.Value = Time
End Sub

Private Sub CommandButton1_Click()

    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
        '.StartDate = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        'Betreff, Tiele
        .Subject = TextBox1.Value
        'Inhalt
        .Body = TextBox2.Value
        'Erinnerung setzen
        .ReminderTime = Format(Now(), "dd.mm.yyyy") & " DTPicker1.Value"                                             <--- Fehlermeldung!
        .ReminderSet = True
        'Speichern
        .Save
        'Anzeigen
        .Display
    End With

    Set oAufgabe = Nothing
    Set oOutlookApp = Nothing

</code></pre>

Ich bin für jeden Tipp dankbar!!

Beste Grüße
Daniel