|
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
|