Try:

Set myItem =Nothing

Bottom line is that you need to dereference every Outlook object you use.

Also, if your code started Outlook, then you'll need to shut down Outlook, too, with an objOL.Quit statement.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Blogd_Node" wrote in message ...
No -
That now fails with "Automation error"
at line
Set objSafeTaskItem.Item=Nothing

??

===============================================


"Michael Bauer" wrote

I think you need to clean up one more ref at the end:

Set objSafeTaskItem = Nothing
Set objOL = Nothing

Should be:

Set objSafeTaskItem.Item=Nothing
Set objSafeTaskItem=Nothing

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hi Michael,

Thanks for the reply.

No error messages from Access code.
First time through, code works OK.
Second time, Outlook stops dead with
a request to send an error report to MS.
When Outlook opens, it pops another message box
"The data file 'Personal Folders' was not closed properly.
The file is being checked for further problems."

Any thoughts ?

Regards

David
============================================
"Michael Bauer" wrote

Where do you get which error?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hi,

Config is XP SP2 / Access 2003 / Outlook 2003
Access Refs are VBA / Access 11 / SafeOutlook / DAO 3.6 / Outlook 11 /
Calendar 11

I want to add an Outlook Task from Access.
The problem is Outlook crashes (sometimes) if not open.

Any thoughts about where I'm going wrong ?
( I know just enough VB code to be a danger to myself... )
:-)

Many thanks...

David

(Some Access code below has been snipped for clarity...)

'CODE ===============================================
Private Sub cmdCreateTask_Click()

On Error GoTo Err_cmdCreateTask_Click

Dim objOL As Object
Dim myItem As Object
Dim objSafeTaskItem As Redemption.SafeTaskItem
Dim myNS As NameSpace
Dim timeX As String
Dim strVia As String
Dim strReg As String

On Error Resume Next

Set objOL = GetObject(, "Outlook.Application")

'If outlook is not running, then
If objOL Is Nothing Then

Set objOL = CreateObject("Outlook.Application")
Set myNS = objOL.GetNamespace("MAPI")
myNS.Logon

End If

On Error GoTo 0

' Set up Outlook Objects.
' If there is a date set
If Len(Me!ChaseDateCalendar & "") 0 Then

Set myItem = objOL.CreateItem(olTaskItem) 'Outlook Task
Item
Set objSafeTaskItem = CreateObject("Redemption.safeTaskItem")

objSafeTaskItem.Item = myItem

With objSafeTaskItem

.Subject = Format(Me!ChaseDate, "dd-mmm-yy") & " ChaseUp " &
Trim(Me![FirstName]) & " " & _
Trim(Me![Surname]) & " " & "Via: " & Trim(strVia) & " " & _
" " & Trim(Me![cmbRegarding]) & " " &
Trim(Me![txtAddedNote])
Me!Memo = Me!Memo & vbCrLf & .Subject
.Body = "Add any comments about this chaseup into DATABASE -
not
here"
.ReminderSet = True
'Remind at 9AM
.ReminderTime = FormatDateTime(timeX, 4)
'Due at selected date
.DueDate = Format(Me!ChaseDate, "dd-mmm-yy")
.ReminderPlaySound = True
'Modify path.
'.ReminderSoundFile = "C:\WINNT\Media\Ding.wav"
.Save

End With

Else

MsgBox "No ChaseUp Date set?"

End If

Exit_cmdCreateTask_Click:
Set objSafeTaskItem = Nothing
Set objOL = Nothing
Exit Sub

Err_cmdCreateTask_Click:

MsgBox Err.Description
Resume Exit_cmdCreateTask_Click

End Sub