Ao gyroq to outlook task.mmbas

From ActivityOwnerWiki
Jump to: navigation, search
'#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