Outlook feladat letrehozasakor DueDate adat formatum hiba

Outlook feladat letrehozasakor DueDate adat formatum hiba
2014-01-08T18:58:50+01:00
2014-01-10T21:46:40+01:00
2022-11-30T08:30:37+01:00
Tigrincs
Sziasztok,

A segitsegeteket szeretnem az alabbi megoldasaban.

Outlook Task( feladat ) letrehozasakor a kovetkezo hibauzenetet kapom:

Type mismatch

A Task letrejon viszont a datum erteket nem tudja ertelmezni ( en arra gondolok, hogy a datum formatuma rossz ) es igy az alapertelmezett legkorabbi datummal hozza letre outlookban a feladatot ) 30/12/1899

Igy nez ki a forraskod: ( tablaban a datum mezonek ez a formatuma: 09/01/2014 )
Masik problemam, hogy a subject es a body ertekei is mindig uresek lesznek :(
Debug-nal mutatja szepen a tablabol kiolvasott ertekeket pl:
Testsubjecttext es Testbodytext ( lasd csatolmany )

Function fncAddOutlookTask() Dim OutlookApp As Outlook.Application Dim OutlookTask As Outlook.TaskItem Set OutlookApp = CreateObject("Outlook.Application") Set OutlookTask = OutlookApp.CreateItem(olTaskItem) With OutlookTask .Subject = strSubject .Body = strBody .ReminderSet = True .ReminderTime = DateAdd("ww", -1, strDueDate) 'Remind 1 Week before Due Dat. .DueDate = strDueDate 'Due 5 minutes from now. .ReminderPlaySound = True .ReminderSoundFile = "C:\Windows\Media\Ding.wav" 'Modify path. .Save End With End Function
Mutasd a teljes hozzászólást!
Csatolt állomány
Ha paraméterekkel hívod, vedd is át azokat:

Function fncAddOutlookTask(strsubject, strDueDate, strbody)
És lehet, hogy máris jó lesz, ha a mezőben dátum van.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd