Dobrý den, snažím se vytvořit program pro zaměstnance co pracují ve směnách. Výstupem by měla být upomínka v outlooku. Problém je, že pokud je událost kratší než 24 hodin vytvoří se v kalendáři outlooku mezera (ikdyž se jedná o jednu událost). Viz přiložený obr. http://2i.cz/e789a78d5e Tento problém netrvá pokud je událost delší 24 hodin. Používám Outlook 2010 a VB.net 2010 Zde přikládám kód:
Dim Outlook As New Microsoft.Office.Interop.Outlook.Application()
Dim App As Microsoft.Office.Interop.Outlook.AppointmentItem
App = Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem)
App.Start = CDate("18.7.2012 4:00 PM")
App.Duration = 12 * 60
App.Subject = "eee"
App.Save()
App = Nothing
Snažil jsem různě převádět data, ale bezúspěšně. Za jakoukoliv radu budu vděčný.
|