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