Darren Dick
D.Dick at uws.edu.au
Tue Jun 14 23:31:11 CDT 2005
Never Mind
Updated to latest MDAC and that sorted it
See ya
DD
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren Dick
Sent: Tuesday, June 14, 2005 12:28 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] A2003:Connection Method failing
Hello all
(Cross Posted to Sue and Dmitri's list)
The code below used to work - now it doesn't Our enterprise has moved to
Exchange - does that matter?
The error is
ERR.Number = -2147024769
ERR.Description = Method 'Connection' of object '_CurrentProject' failed
Any suggestions?
Code snip below
Dim rs As Object
Dim con As Object
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
Set rs = CreateObject("ADODB.Recordset")
Set con = Application.CurrentProject.Connection
'<=============Error here
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com