CBragg
VB Dummy
- Local time
- Today, 06:26
- Joined
- Oct 21, 2002
- Messages
- 89
I have a database which emails a task to whoever it is allocated to. This application works fine when using local access, but when i have tried running it as a published application through citrix it generates 2 different errors:
One says:
"Internal Application Error"
The other says:
"The task "Task Name" is stored as a file, not as an item in an Outlook Folder, so the requested action cannot be performed."
Outlook is open on both occurances.
Any ideas on how to solve the problems or what the error messages mean would be greatly appreciated.
Here's our test code that we are using:
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
Set EmailApp = CreateObject("Outlook.Application") 'Outlook object
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(3) ' CreateItem(3) Task Item
EmailSend.Subject = "Task Name" 'Task Subject
EmailSend.Body = "Test Body" 'Task body
EmailSend.Recipients.Add Me![Fixer]
EmailSend.Assign 'to the recipient
EmailSend.Send
MsgBox "Message has been sent successfully"
Exit Sub
Err_Handler:
MsgBox Err.Description
End Sub
One says:
"Internal Application Error"
The other says:
"The task "Task Name" is stored as a file, not as an item in an Outlook Folder, so the requested action cannot be performed."
Outlook is open on both occurances.
Any ideas on how to solve the problems or what the error messages mean would be greatly appreciated.
Here's our test code that we are using:
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
Set EmailApp = CreateObject("Outlook.Application") 'Outlook object
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(3) ' CreateItem(3) Task Item
EmailSend.Subject = "Task Name" 'Task Subject
EmailSend.Body = "Test Body" 'Task body
EmailSend.Recipients.Add Me![Fixer]
EmailSend.Assign 'to the recipient
EmailSend.Send
MsgBox "Message has been sent successfully"
Exit Sub
Err_Handler:
MsgBox Err.Description
End Sub