Mike & Doris Manning
mikedorism at adelphia.net
Fri Oct 29 12:44:58 CDT 2004
I would contact Dmitri for help. It might be a problem with the object
model that he hasn't run across or a bug within Redemption itself.
Mike and Doris Manning
mikedorism at adelphia.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Rojas
Sent: Friday, October 29, 2004 12:44 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] OT: Help with using Redemption to assing an
Outlooktask.
Thanks for the help so far!
To Charlotte: I am using the unlicensed version until I can get my code to
work. I am only using it right now for testing. If I can get it to do what I
need it to do, I will purchase it right away!
To M&D: Thanks for the code. I tried it out and it works as planned. The
only issue that I have is that the recipient cannot open the item. This is
the problem that I had run into before I posted to the AccessD list. When
the recipient tries to open the task request they get an error message of
"Can't open this item. The property does not exist. The field you want to
modify is not valid for this type of item."
Any idea what is going on?
TIA again!
JR
-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Friday, October 29, 2004 12:17 PM
To: Access Developers discussion and problem solving
Subject: RE: [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
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
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