Redemption does not seem to work with Tasks

[Ed]

No prompts appear, but I get a "This message not sent indication".

Dim myOlApp As Outlook.Application
Dim myItem As TaskItem
Dim objSafeMsg As Redemption.SafeTaskItem

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)

With myItem
.Assign
.Subject = "SubjectNew"
.Body = Now()
End With
Set objSafeMsg = CreateObject("Redemption.SafeTaskItem")

With objSafeMsg
.Item = myItem
.Recipients.Add "emailAddress"
.Recipients.ResolveAll
.Send
End With

Set myItem = Nothing
Set myOlApp = Nothing
Set objSafeMsg = Nothing

 

[Dmitry Streblechenko \(MVP\)]

Try to get rid of the .Assign line. Also after
Set myOlApp = CreateObject("Outlook.Application")
line, add two more lines
set myNS = myOlApp.GetNamespace("MAPI")
myNS.Logon

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Ed]

Thanks!

I would not have gotten that if I spent a million years working on it.

ed