gselliott
Registered User.
- Local time
- Today, 10:09
- Joined
- May 17, 2002
- Messages
- 106
Help! Outlook Redemption
I have got a helpdesk database that emails tasks via Outlook (2000), using Citrix. This has been working fine until we installed the latest office service pack and then we got all of the security messages from Outlook when trying to send the email.
I know that we can use Outlook Redemption and we have installed this onto our server but i'm not sure how I tie this in with my Database, I have read a few of the other posts about this but i'm getting a bit lost can anyone help?
here is the code I am using at the moment to send the Task from my Database:
I have got a helpdesk database that emails tasks via Outlook (2000), using Citrix. This has been working fine until we installed the latest office service pack and then we got all of the security messages from Outlook when trying to send the email.
I know that we can use Outlook Redemption and we have installed this onto our server but i'm not sure how I tie this in with my Database, I have read a few of the other posts about this but i'm getting a bit lost can anyone help?
here is the code I am using at the moment to send the Task from my Database:
Code:
Private Sub CmdSend_Click()
On Error GoTo Err_Handler
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 = "Call"
EmailSend.Body = "Message goes here"
EmailSend.DueDate = [FixByDate]
EmailSend.Recipients.Add Me![Engineer]
EmailSend.Assign 'to the recipient
Exit Sub
Err_Handler:
MsgBox Err.Description
End Sub
Last edited by a moderator: