[AccessD] OT: Help with using Redemption to assing an Outlook task.

Hi All,

I am asking this group my question on Redemption because I have seen several
times when Redemption was offered as a solution for bypassing Outlook's
e-mail security features.

Below is a function that I am currently using that sends/assigns a task the
Outlook Object Model only and works perfectly. I want to port this code so
that it is using Redemption in order to bypass the e-mail security features.
I have been trying to the past two days and have not had any luck. 

Can someone please help me with this?

TIA!
JR

Public Function SendTask()
    
    Dim objOutlook As Outlook.Application
    Dim objOutlookTsk As Outlook.TaskItem
    
    Dim strRecipList() As String
    Dim strNum As String
    Dim DDueDate As Date
    Dim strNote As String
    Dim strBody As String
    Dim i As Integer
        
    strRecipList() = Split(Forms!PrevActions!tbToWhom, ";")
    strNum = Forms![DMR Form]![tbDMRNum]
    DDueDate = Forms!PrevActions!tbDueDate
    strNote = Forms![DMR Form]!tbPartNo
    strBody = "Part Number: " & strNote & vbCrLf & vbCrLf & _
    "Discrepency: " & Nz(Forms![DMR Form]![Discrepencies
subform]!Discrepency, "None Entered") & vbCrLf & vbCrLf & _
    "Remedial Action: " & Nz(Forms![DMR Form]![Discrepencies
subform]![Corrective action], "None Entered") & vbCrLf & vbCrLf & _
    "Corrective Action: " & Nz(Forms![DMR Form]![Discrepencies
subform]!tbPrevActsub, "None Entered") & vbCrLf & vbCrLf
    
    
    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")

    ' Create the message.
    Set objOutlookTsk = objOutlook.CreateItem(olTaskItem)

    With objOutlookTsk
        ' Add the To recipient(s) to the message.
        For i = 0 To UBound(strRecipList)
            objOutlookTsk.Recipients.Add(strRecipList(i)).Type = olTo
        Next
                
        ' Set the Subject, Body, and Importance of the message.
        .Subject = "Corrective Action for DMR#" & strNum & " - (" & strNote
& ")"
        .Body = strBody
        .Importance = olImportanceHigh  'High importance
        .ReminderSet = True
        .ReminderTime = DDueDate - 7
        .DueDate = DDueDate
      

        ' Resolve each Recipient's name.
        For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
            If Not objOutlookRecip.Resolve Then
                objOutlookTsk.Display
            End If
        Next
        
        .Save
        .Assign
        .Send
        
    End With
   Set objOutlookTsk = Nothing
   Set objOutlook = Nothing
   
   MsgBox "Task has been assigned.", , "Task sent"

End Function



This electronic transmission is strictly confidential to TNCO, Inc. and
intended solely for the addressee. It may contain information which is
covered by legal, professional, or other privileges. If you are not the
intended addressee, or someone authorized by the intended addressee to
receive transmissions on behalf of the addressee, you must not retain,
disclose in any form, copy, or take any action in reliance on this
transmission. If you have received this transmission in error, please notify
the sender as soon as possible and destroy this message. While TNCO, Inc.
uses virus protection, the recipient should check this email and any
attachments for the presence of viruses. TNCO, Inc. accepts no liability for
any damage caused by any virus transmitted by this email.