Read file & create a new task by outlook vba

[ZmrAbdulla]

I have never done any programing with outlook.

I want to read a file (text/ini/csv/xml) from outlook vba and add those details to a new task.

I have a simple exe located in the common server that is being used for maintenance & other service requests.
Not all the users have outlook.
The exe creates a file (now it is xml) of their requests. I want my program to read each one of them(on a specified interval) and add it to my outlook.

I am having vb.net exe that doing the job, takes a lot of memory. I thought it will be better to use something within outlook that is always open.

[Remou]

I am not sure where you are getting stuck, so here are a few notes.

textLine number Off | Hide | Select all

1. Sub ReadFile()
2. Dim fs As Object
3. Dim f As Object
4. Dim a As Variant
5.  
6.     Set fs = CreateObject("Scripting.FileSystemObject")
7.     Set f = fs.OpenTextFile("C:\Docs\Tasks.txt", 1) '1=for reading
8.    
9.     Do While f.AtEndOfStream = False
10.         a = Split(f.ReadLine, "|")
11.    
12.         CreateTask a(0), a(1), a(2), Now
13.     Loop
14.    
15. End Sub
16.  
17. Sub CreateTask(AssignToEmail, TaskSubject, TaskBody, TaskDateTime)
18. Dim oTask As Outlook.TaskItem
19. Dim AssignedTo As Outlook.Recipient
20. Dim oNS As Outlook.NameSpace
21.  
22.        
23.     Set oTask = CreateItem(olTaskItem)
24.    
25.     oTask.Assign
26.     Set AssignedTo = oTask.Recipients.Add(AssignToEmail)
27.     oTask.Subject = TaskSubject
28.     oTask.Body = TaskBody
29.     oTask.DueDate = TaskDateTime
30.     oTask.Importance = 2 'olImportanceHigh
31.     oTask.ReminderSet = True
32.     'oTask.Save
33.    
34.     'Pick Display or Send
35.     oTask.Display
36.     'OutlookTask.Send
37.    
38.     'Clean up
39.     Set oTask = Nothing
40.  
41. End Sub

[ZmrAbdulla]

Thanks Remou,
I am sure there is no timer in vba / userforms.
Do you suggest Sleep() for this purpose

textLine number Off | Hide | Select all

1. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Or anything else out there?
I want this code to run for the first time open outlook & every hour from then until outlook is closed.

[Emtucifor]

I don't know what the ramifications of Sleep are on performance, but be aware there's SleepEx and WaitForSingleObject, which may give you more options...

[ZmrAbdulla]

I am actually not interested to use API calls. Looking for a simple solution to replace the timer control.
And I don't know how to use(if possible) those C++ code in VBA.

[Remou]

I don't recall needing to "wait" in a real system, but for myself, I would generally use the system clock.

I have also seen:

textLine number Off | Hide | Select all

1. Set WshShell = WScript.CreateObject("WScript.Shell")
2. WScript.Sleep(600000)

[ZmrAbdulla]

I think it will not work in VBA. It gives me an error of Object Required.

[ZmrAbdulla]

http://www.dotnetmonster.com/Uwe/Forum. ... eep-in-VBA