Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

OLE error code 0x80004004: operation aborted

Status
Not open for further replies.

AidenMc

Programmer
Sep 19, 2002
58
GB
Hi all,
I am having an issue with a particular user getting the above error when they change a date in the system, this then updates the microsoft outlook calender to set a reminder. It works on all pc's except this users, they swear blind that nothing has changed. I have read through some of the posts on OLE errors, am i right in thinking this is either a rights issue or a dll that hasnt been registered.
The code I am using is as follows

#DEFINE olMailItem 0
#DEFINE olAppointmentItem 1
#DEFINE olTaskItem 3
#DEFINE CR CHR(13)
#DEFINE olImportanceHigh 2
#DEFINE MB_ICONINFORMATION 64 && Information message
#DEFINE MB_OK 0 && OK button only
#DEFINE OneDayInSeconds 86400

LOCAL oNameSpace, oMessage, oAppt, oTask, llError, lcError

llError = .F.
lcError = ON('ERROR')
ON ERROR llError = .T.

IF VarType(oOutlook) <> "O"
* Start or connect to Outlook
* Make it public for demonstration purposes.
RELEASE oOutlook
PUBLIC oOutlook
oOutlook = CreateObject("Outlook.Application")
ENDIF

oNameSpace = oOutlook.GetNameSpace("MAPI")

* setting up the appointment see if it adds to calendar
oAppt = oOutlook.CreateItem( olAppointmentItem )
WITH oAppt
.Subject = thisform.grid1.column2.text1.value
.Location = "Sales History"
.Start = thisform.grid1.column6.text1.value
.Duration = 90
.ReminderSet = .T.
.ReminderMinutesBeforeStart = 15
.Save()
ENDWITH

Sorry if this is a stupid question but if someone can point in the right direction as to how to solve it, that would be much appreciated. User is using Microsoft Outlook 2003

Regards,

Aiden
 
Aiden,

Can you say on which line the error occurs?

When you say "change a date in the system" I assume you mean a date stored in your application not the computer system.

No questions are considered stupid :)

Stewart
 
Stewart,
I cant say for definete which line it is occuring on as when i log on to check , it works on the pc I remote desktop to.
The date is a date stored on the application not on the computer system.
Regards,

Aiden
 
Ah sorry, only just noticed the "operation aborted" part of the error message.

This might be an issue with the Outlook Security Patch, which I seem to remember came through in an update or service pack. This warns the user that another application is trying to access their Outlook.

It is just possible that the computer in question is the only one that has been updated. The user would possibly not be aware of it. The error I think may have occurred because the user said "No" when asked to allow access to Outlook.

Stewart
 
Stewart,
I have gotten her to check this, and she isnt been asked the question but I have requested her IT to re-install outlook on her pc to see if this resolves the issue. I will let you know, thanks for your help
Regards,
Aiden
 
Just to let you know, I resloved the issue by getting her to install the latest microsoft updates for outlook and this fixed her issue
Thanks again for the help
Regards
Aiden
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top