SafeTask Item sits in Outbox unresolved

  • Thread starter Thread starter Scott Sommerfeldt
  • Start date Start date
S

Scott Sommerfeldt

I have an issue that I am hoping is a simple fix.
Outlook 2000, Exchange 2000, WIN2K
I have an external application that creates an outlook Task and assigns it.
To avoid Outlook security prompts I have used Redemption.
The issue I am having is that the TaskRequest sits in my outbox unresolved.
If I open the Items in my Outbox, then Outlook resolves the Recipient and it
sends without a Problem.
The Problem is I need this to be done programatically, and the code seems
correct but I think I am missing something
here is a snippet

objApp = CreateObject("Outlook.Application")
objNameSpace = objApp.GetNameSpace("MAPI")
objNameSpace.logon()

myItem = objApp.CreateItem(3)
'olTaskIt'Application.CreateItem(3)
SafeItem = CreateObject("Redemption.SafeTaskItem")
'SafeRecipient = CreateObject("Redmption.SafeRecipients")
SafeItem.Item = myItem
SafeItem.Assign()
If strDelgate_email <> "" Then
SafeDelegate = SafeItem.Recipients.Add(strDelgate_email)
SafeItem.Subject = strMessage
SafeItem.Send()
Utils = CreateObject("Redemption.MAPIUtils") 'redemption
workaround if
'Outlook doesn't automatically send and places the item in the
drafts Or outbox
Utils.DeliverNow()
Utils.Cleanup()
End If

Any Ideas?
Regards,
Scott Sommerfeldt
 
Back
Top