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

I'll take your word for it.  We don't assume that Outlook is installed
or require it for our installations, so we use generic commands.

Charlotte


-----Original Message-----
From: Mike & Doris Manning [mailto:mikedorism at adelphia.net] 
Sent: Friday, October 29, 2004 8:38 AM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] OT: Help with using Redemption to assing an
Outlooktask.


Redemption can use the Outlook.Application just as he has it.  I've got
fully functional code all over the place that does.

Doris Manning
Database Administrator
Hargrove Inc.
www.hargroveinc.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Friday, October 29, 2004 11:20 AM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] OT: Help with using Redemption to assing an
Outlooktask.


It would be more useful to see the Redemption code you're trying to use.
You have licensed the Redemption library, right?  There is quite a bit
of help that comes with it.  Redemption code doesn't use the
Outlook.Application object like that.  It uses MAPI.Message and
MAPI.Recipient and MAPI.Session.

Charlotte Foust


-----Original Message-----
From: Joe Rojas [mailto:JRojas at tnco-inc.com] 
Sent: Friday, October 29, 2004 7:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [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.
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com