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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top