Outlook Redemption

[Guest]

We currently have a helpdesk Database setup in Access 2000
that allows us to log calls and the allocate these calls
via Outlook Tasks. This has been working fine until we
installed the latest Office service pack we now get
various security messages when we try to click the send
button.

I have installed the Redemption.dll onto the server that
the Database is running on and added code that someone had
posted on another site, this seems to work except that I
cannot get the .Assign to work as it did before. Does
anyone know if this Redemption.dll will allow you to
use .Assign or not??

If anyone has any help what so ever I would be grateful as
I have hit a brick wall!

 

[Sue Mosher [MVP-Outlook]]

Do you have a code snippet that other people can use to test?

 

[Guest]

Sue

This is the code that the Database uses to send the task
(original code before using Redemption!).

Thanks
Graeme

Dim NameSpace As Object
Dim EmailSend As TaskItem 'for the task item add outlook
reference
Dim EmailApp As Object

stCallNo = [RefNo]
stUser = [User]

Set EmailApp = CreateObject
("Outlook.Application") 'Outlook object
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(3) ' CreateItem(3)
Task Item

EmailSend.Subject = "Helpdesk Sheet" & " " & stCallNo
& " " & "-" & " " & stUser 'Task Subject

EmailSend.Body = "Task Message goes here" 'Task body

EmailSend.DueDate = [FixByDate]
EmailSend.Recipients.Add Me![Fixer]
EmailSend.Assign 'to the recipient

Exit Sub

Err_Handler:
MsgBox Err.Description


End Sub

 

[Eric Legault [MVP - Outlook]]

You need to call the Send method to submit the assigned task. Assign, then
Send.

--
Eric Legault - B.A, MCP, MCSD, Outlook MVP
Job: http://www.imaginets.com
Blog: http://blogs.officezealot.com/legault

Sue

This is the code that the Database uses to send the task
(original code before using Redemption!).

Thanks
Graeme

Dim NameSpace As Object
Dim EmailSend As TaskItem 'for the task item add outlook
reference
Dim EmailApp As Object

stCallNo = [RefNo]
stUser = [User]

Set EmailApp = CreateObject
("Outlook.Application") 'Outlook object
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(3) ' CreateItem(3)
Task Item

EmailSend.Subject = "Helpdesk Sheet" & " " & stCallNo
& " " & "-" & " " & stUser 'Task Subject

EmailSend.Body = "Task Message goes here" 'Task body

EmailSend.DueDate = [FixByDate]
EmailSend.Recipients.Add Me![Fixer]
EmailSend.Assign 'to the recipient

Exit Sub

Err_Handler:
MsgBox Err.Description


End Sub

-----Original Message-----
Do you have a code snippet that other people can use to test?
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers






.