Outlook Task aus Formular - Erinnerungszeit und Datum

[Don]

Hallo zusammen,
folgendes Problem: Ich möchte aus einem Outlook Formular einen Outlook Task erstellen.
 

Code [Auswählen] Erweitern

Private Sub Outlook_Click()
Dim appOutLook As Outlook.Application
Dim oTask As Outlook.TaskItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set oTask = appOutLook.CreateItem(olTaskItem)
    With oTask
        .Subject = Nachname + ", " + Vorname
        .StartDate = nächste_Aktion
        .Body = "anrufen"
        .ReminderTime = Uhrzeit
    End With
    oTask.Save
    Set oTask = Nothing
End Sub

Der Code funktioniert, allerdings schreibt er mir in die Erinnerungszeit als Datum immmer den 30.12.1899. Das Richtige Datum steht in der Tabelle unter "nächste_Aktion". 
Wie lautet die Syntax, die beiden Felder unter .ReminderTime zu verknüpfen?
Danke vorab,
VG
Don

[PhilS]

Der Code funktioniert, allerdings schreibt er mir in die Erinnerungszeit als Datum immmer den 30.12.1899. Das Richtige Datum steht in der Tabelle unter "nächste_Aktion". 
Wie lautet die Syntax, die beiden Felder unter .ReminderTime zu verknüpfen?

Du kannst Datum und Uhrzeit einfach addieren.

Code [Auswählen] Erweitern

.ReminderTime = nächste_Aktion + Uhrzeit

[Don]

Super vielen Dank, so gehts
weitere Frage, ist es möglich in den Body einen Link zu kopieren, der in einem Feld der Tabelle hinterlegt ist. Wenn ja wie?
THX & VG
Don

[markusxy]

Wenn ja wie?

Auch wenn man das so wich ich nicht weiß, kann man das recht einfach rausfinden.

Man erstellt erstmal händisch einen Hyperlink und dann liest man den Body aus und sieht damit welcher Text automatisch erstellt wurde.

Dann weiß man, was man tun muss.

Vielleicht aber auch den RTFBody verwenden.
Da könnte dann Word ins Spiel kommen, damit man sich nicht mit Grundlagen beschäftigen muss.