Redemption does not seem to work with Tasks

  • Thread starter Thread starter Ed
  • Start date Start date
E

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
 
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
 
Back
Top