Új hozzászólás Aktív témák

• #907 Snoop-y veterán patex1983 #906

  Új Válasz 2014-01-10 11:36:16 #907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Snoop-y

  veterán

  válasz patex1983 #906 üzenetére

  Atkuldtem a linket ahonnan leszedheted a megoldast.

• #905 Snoop-y veterán patex1983 #903

  Új Válasz 2014-01-08 17:59:25 #905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Snoop-y

  veterán

  válasz patex1983 #903 üzenetére

  Szia,

  Igen megoldhato de kis finomitast igenyel a dolog. Nem tudom mennyire vagy otthon az access-ben.

  Accessen belul nyitsz egy VBA editort es letrehozod az alabbi funkciot

  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 = "This is the subject of my task"
  .Body = "This is the body of my task."
  .ReminderSet = True
  .ReminderTime = DateAdd("n", 2, Now) 'Remind 2 minutes from now.
  .DueDate = DateAdd("n", 5, Now) 'Due 5 minutes from now.
  .ReminderPlaySound = True
  .ReminderSoundFile = "C:\Windows\Media\Ding.wav" 'Modify path.
  .Save
  End With
  End Function

  Ezutan annyi a dolgod, hogy kiszedjed a Task-ra vonatkozo infokat a tablabol.

Új hozzászólás Aktív témák