Access, Outlook and Citrix

gselliott

Registered User.
Local time
Today, 11:45
Joined
May 17, 2002
Messages
106
I have got a Database running via Citrix that is used to store Helpdesk information and allocate jobs to members of our team using Outlook Tasks. This uses the EmailSend function in a on Click event and has been working fine until we recently installed Office 2000 service pack 3 onto our Citrix Servers. When the button is clicked now we have to go through 2 message boxes before the task is sent, these message boxes are all generated from Outlook and say the following:

Message box 1: ‘A Program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this?’ You then have to select a tick box to allow you to have access.

Message box 2: ‘A Program is trying to automatically send e-mail on your behalf. Do you want to allow this?’

I know that this isn't stricly a Access problem but i was wondering if anyone has had the same or similar problems and can you fix it using code?

Thanks in advance.
 
sounds like something to do with the windows firewall. I dont use windows firewall but on most systems you can turn these warnings off.

There should be some setting somewhere for the firewall where this can be done. Have a look at the miccysoft help and search for firewall.

Theres always the chance that Im talking rubbish though so dont take my word for it ;)
 
Last edited:
You may have to do searches for my user name on this forum. When I used to write access apps all I worked with was access, outlook, and citrix. I have done a lot of the things which you have talked about regarding outlook, including a responsibility issues management system which integrates outlook with access. Updates from tasks are sent back and forth between outlook and access using ado. The first problems I encountered are the ones that you have described. The problem is not however access. The problem is citrix and outlook are not configured correctly.

Not sure about how good your knowledge is with citrix, but citrix is a server serving a dummy terminal. The only thing sent back and forth is keyboard strokes and video. Everything runs on the server side and you are merely given the video which makes it look like you are running it on the client side. That being said, it sounds ot me that you do not have citrix configured with all windows NT logins. In addition, you have not told citrix to use the NT user name and passwords through your regular NT session into citrix. Therefore Citrix thinks it has one admin say account and is sending mail (delegating) on your behalf.

You have to configure email and your exchange server and citrix entirely before anything else.

I must admit at first it was very difficult.

Jon
 
The messages sound to me like your anti-virus program is set to "Prompt" for certain actions that are similar to viral behavior. Either you need to tell the Anti-Virus program to accept this behavior when the task is Access running locally, or you need to learn to live with the boxes, or you need to turn off this behavior. But I would not suggest turning off the heuristics of your anti-viral program. That would expose you to all sorts of detritus from the Internet.
 
Thanks everyone for there help i will have a look at them all and let you know how i get on!
 
Pat thanks for the suggestion I have had a look at that article but doesn't seem to give any resolution to the problem, just tells you what the problems and issues are.

Does anyone have any other ideas??
 
HELP

I have found this code on another website which suggests that it might work as a sloultion i'm just a bit lost as to where i need to put the EmailSend coding??

Anyone any ideas where i need to put my code??

I would be very grateful for any help as its driving me crazy now.

Thanks!


' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)

' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)

' ...
' Do some Actions
' ...

' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)

End Sub
 
When the flag is flown upside down, it's a sign of distress.
 

Users who are viewing this thread

Back
Top Bottom