Ao gyroq to outlook task.mmbas

'#Reference {00062FFF-0000-0000-C000-000000000046}#9.2#0#C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb#Microsoft Outlook 11.0 Object Library 'ao_gyroq_to_outlook_task 24Apr09  http://creativecommons.org/licenses/by-sa/2.5/ http://www.activityowner.com 'note that you need to set a reference to microsoft outlook 11 or 12 library Sub Main Set taskstore = GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) Set Task =CreateItem(olTaskItem) Task.Subject=Command On Error Resume Next Task.Move(taskstore) End Sub