Here’s my code for marking a set of Tasks complete, based on the subject, and for creating a new Task:<\/p>\n
<\/p>\n
The part that bugs me the most, is the oNS.Login. I have to put in my exchange profile and my password and yet, Outlook still asks for my password. This is why I think that the application should be an outlook plug in. <\/p>\n
<\/p>\n
‘ Create an Outlook application.
\nDim oApp As outlook.Application = New outlook.Application()<\/p>\n
<\/p>\n
‘ Get NameSpace and Logon.
\nDim oNS As outlook.NameSpace = oApp.GetNamespace("mapi")
\n‘ oNS.Logon("YourValidProfile", Missing.Value, False, True) ‘ TODO:\n<\/p>\n
<\/p>\n
‘ mark any uncompleted tasks to complete
\nDim oTasks As outlook.MAPIFolder = oNS.GetDefaultFolder(outlook.OlDefaultFolders.olFolderTasks)<\/p>\n
<\/p>\n
‘ Get the first contact from the Contacts folder.
\nDim oItems As outlook.Items = oTasks.Items
\nDim oItem As outlook.TaskItem<\/p>\n
<\/p>\n
oItems = oItems.Restrict("[Subject] = Change Infusion Set")
\nDim i As Integer
\nFor i = 1 To oItems.Count
\noItem = oItems.Item(i)
\nIf Not oItem.Complete Then oItem.MarkComplete()
\noItem.Save()
\nNext<\/p>\n
<\/p>\n
‘ Create a new AppointmentItem.
\nDim oTask As outlook.TaskItem = oApp.CreateItem(outlook.OlItemType.olTaskItem)<\/p>\n
‘ Set some common properties.
\noTask.Subject = "Change Infusion Set"
\noTask.Body = "Change Infusion Set"<\/p>\n
<\/p>\n
‘Find number of days to add to task which is the smaller of the number of days or Total Insulin divided by TDD
\nDim days As Integer = Val(txtDays.Text)
\nDim StrDate As String
\nDim insulinDays As Integer = Val(txtTotal.Text) \/ Val(txtTDD.Text)
\nIf days > insulinDays Then
\ndays = Int(insulinDays)
\nEnd If
\nStrDate = Convert.ToDateTime(Date.Today.AddDays(days))<\/p>\n
<\/p>\n
‘Creating the Task <\/p>\n
oTask.StartDate = StrDate
\noTask.DueDate = StrDate
\noTask.Complete = False
\noTask.DateCompleted = Nothing
\noTask.Status = outlook.OlTaskStatus.olTaskNotStarted<\/p>\n
<\/p>\n
If reminder = True Then
\noTask.ReminderSet = True
\nDim StrTime As String = Convert.ToString(Me.DateTimePicker1.Value.TimeOfDay)
\noTask.ReminderTime = Convert.ToDateTime(StrDate & " " & StrTime)
\nElse
\noTask.ReminderSet = False
\nEnd If<\/p>\n
<\/p>\n
‘ Save to Tasks
\noTask.Save()
\n‘ Logoff.
\noNS.Logoff()<\/p>\n
<\/p>\n
‘ Clean up.
\noApp = Nothing
\noNS = Nothing
\noTask = Nothing<\/p>\n
<\/p>\n
\n‘Note I’ve lost my formatting, but I think you can get the point.<\/p>\n","protected":false},"excerpt":{"rendered":"
Here’s my code for marking a set of Tasks complete, based on the subject, and for creating a new Task: The part that bugs me the most, is the oNS.Login. I have to put in my exchange profile and my password and yet, Outlook still asks for my password. This is why I think […]<\/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-1105","post","type-post","status-publish","format-standard","hentry","category-blog"],"_links":{"self":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/posts\/1105","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=1105"}],"version-history":[{"count":0,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/posts\/1105\/revisions"}],"wp:attachment":[{"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/media?parent=1105"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/categories?post=1105"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kweaver.org\/cs\/wp-json\/wp\/v2\/tags?post=1105"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}