Help with sending a task using Redemption

  • Thread starter Thread starter Ed
  • Start date Start date
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
 
Try adding the following line of code after adding the Recipients.

objSafeMsg.Recipients.ResolveAll

Should hopefully do the trick...
 
Thanks!!!

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

ed
 
Back
Top