So, Pocket Outlook is really easy. You just add a reference to Microsoft.WindowsMobile and Microsoft.WindowsMobile.PocketOutlook. (Right click on your project, select Add Reference, and make sure you are at the .Net tab and click them. <\/p>\n
<\/p>\n
Here’s the code to get things started:<\/p>\n
<\/p>\n
Dim polApp As Microsoft.WindowsMobile.PocketOutlook.OutlookSession = New outlook.OutlookSession\n<\/p>\n
<\/p>\n
To go through each task, here is the code:<\/p>\n
Dim oItems As outlook.TaskCollection
\nDim otask As outlook.Task<\/p>\n
<\/p>\n
oItems = polApp.Tasks.Items<\/p>\n
<\/p>\n
Dim i As Integer
\nFor i = 0 To oItems.Count – 1
\noTask = oItems(i)
\nIf oTask.Subject = "Change Infusion Set" Then
\notask.Complete = True
\notask.Update()
\nEnd If
\nNext<\/p>\n
<\/p>\n
polApp.Dispose() ‘not sure if it is needed<\/p>\n
<\/p>\n
Note that you have to save both the Items collection and the item you are looking at. If you don’t save the item you are looking at, you won’t update the item itself. Weird, but them’s the rules.<\/p>\n
<\/p>\n
Finally, the code to set up a task:<\/p>\n
<\/p>\n
‘Create a new outlook item
\notask = New outlook.Task
\notask.Subject = "Change Infusion Set"
\notask.Body = "Change Infusion Set"
\notask.StartDate = strDate
\notask.DueDate = strDate
\notask.Complete = False
\notask.Categories = "Medical"<\/p>\n
<\/p>\n
Dim StrTime As String
\nIf Me.DateTimePicker1.Value <> Nothing Then
\nIf reminder = True Then
\nMe.lblResults.Text = "In Reminder"
\notask.ReminderSet = True
\nStrTime = Convert.ToString(Me.DateTimePicker1.Value.TimeOfDay)
\notask.ReminderTime = Convert.ToDateTime(strDate & " " & StrTime)
\notask.Complete = False
\nElse
\notask.ReminderSet = False
\nEnd If
\nEnd If
\n‘ Save to Tasks
\npolApp.Tasks.Items.Add(otask)
\n‘ lblResults.Text = "Task has been created for " & strDate
\nEnd Sub<\/p>\n
<\/p>\n
\n<\/p>\n
<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
So, Pocket Outlook is really easy. You just add a reference to Microsoft.WindowsMobile and Microsoft.WindowsMobile.PocketOutlook. (Right click on your project, select Add Reference, and make sure you are at the .Net tab and click them. Here’s the code to get things started: Dim polApp As Microsoft.WindowsMobile.PocketOutlook.OutlookSession = New outlook.OutlookSession To go through […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-1102","post","type-post","status-publish","format-standard","hentry","category-blog"],"_links":{"self":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/posts\/1102","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/comments?post=1102"}],"version-history":[{"count":0,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/posts\/1102\/revisions"}],"wp:attachment":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/media?parent=1102"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/categories?post=1102"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/tags?post=1102"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}