Help with sending a task using Redemption

E

Ed

I used Redemption to send a task with the following code and it got stuck in
the Outbox.
Everything worked except I had to manually open and send it from the Outbox
folder.

Any ideas????

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

Set myOlApp = New Outlook.Application
Set myItem = myOlApp.CreateItem(olTaskItem)
Set objSafeMsg = CreateObject("Redemption.SafeTaskItem")

With myItem
.Assign
.StartDate = Me!DateStart
.DueDate = Me!DateDue
.Subject = Me!Subject
.Owner = Me!Owner
.Body = Me!Body
.Close (olSave)
End With

objSafeMsg.Item = myItem
objSafeMsg.Recipients.Add Me!cmbRecipients.Column(1)
objSafeMsg.Send
 
A

Andy

Try adding the following line of code after adding the Recipients.

objSafeMsg.Recipients.ResolveAll

Should hopefully do the trick...
 
E

Ed

Thanks!!!

I have no idea why that worked, but it did. One of the reasons why
programming frustrates me so much!!!

ed
 
Top