Open Outlook if it's not already open

[sdel_nevo]

Hi Guys

I have this code that runs after a tick box is ticked

'this requires a refrence to outlook object library

Dim bStarted As Boolean


Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

'Create a new mailitem

Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
'Set the recipient for the new email
.BodyFormat = olFormatHTML
.To = Me.UsersEMailAddress
'.CC = DLookup("SupportEmail2", "Settings", "ID = 1")
.Subject = Me.NoteType
.HTMLBody = Me.Notes & "This Ticket Has Been Closed By " & Me.ClosedBy
'.Display
.Send
End With
If bStarted Then
'If we started Outlook from code, then close it
oOutlookApp.Quit
End If
Set oOutlookApp = Nothing
Set oItem = Nothing
MsgBox "This Ticket Has Been Closed. An E-Mail Has Been Sent To " & Me.OpenedBY, vbOKOnly, "This Ticket Has Been Marked As Closed"
End If

this works if outlook is open, but if its not no e-mail is sent,
how can I change this code so that outlook opens and sends the mail if it's not already open?

im really sorry if this has been asked before but the more I look at this the more confused I'm getting

many thanks

Steve

[orange]

How is this code invoked? It isn't clear from the code shown.
You have the code to deal with the condition you describe

'Get Outlook if it's running
           Set oOutlookApp = GetObject(, "Outlook.Application")
           If Err <> 0 Then
               'Outlook wasn't running, start it from code
                  Set oOutlookApp = CreateObject("Outlook.Application")
                  bStarted = True
        End If

You shouldn't test with On Error Resume Next
It isn't helpful since it simply masks/ignores an error.

Use a proper error handling label and routine to help identify the error condition.

God luck.

[sdel_nevo]

Hi Orange

Thanks for the reply

I have inherited this code from a previous dev, the code is invoked from a tick box called "Closed" after update event sorry I should have added all the code which is run, I have added it below

Private Sub Closed_AfterUpdate()
On Error GoTo Closed_AfterUpdate_Error

Me.Closed.Locked = True
Me.Notes.Locked = True
Me.IssueClosed = Date
Me.NoteEndTime = Now()
Me.TicketClosedLBL.Visible = True
Me.Section(acDetail).BackColor = colorTan_Encarnacion
Me.Section(acFooter).BackColor = colorTan_Encarnacion

'Dragusername taken from the module showdomainusername
Me.ClosedBy = UserFullName 'DragUserName()
Me.On_Hold.Locked = True
Me.[Take Off Hold].Locked = True
If IsNull(Me.UsersEMailAddress) Then
MsgBox "This Ticket Has Been Closed. Because A Member Of The IT Department Created This Ticket No E-Mail Has Been Sent ", vbOKOnly, "This Ticket Has Been Marked As Closed"
Else
'this requires a refrence to outlook object libary
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
'Set the recipient for the new email
.BodyFormat = olFormatHTML
.To = Me.UsersEMailAddress
'.CC = DLookup("SupportEmail2", "Settings", "ID = 1")
.Subject = Me.NoteType
.HTMLBody = Me.Notes & "This Ticket Has Been Closed By " & Me.ClosedBy
'.Display
.Send
End With
If bStarted Then
'If we started Outlook from code, then close it
oOutlookApp.Quit
End If
Set oOutlookApp = Nothing
Set oItem = Nothing
MsgBox "This Ticket Has Been Closed. An E-Mail Has Been Sent To " & Me.OpenedBY, vbOKOnly, "This Ticket Has Been Marked As Closed"
End If
DoCmd.Close
On Error GoTo 0
Exit Sub
Closed_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Closed_AfterUpdate of VBA Document Form_EditNewAssetNote"
On Error GoTo 0
Exit Sub

End Sub

in relation to the error handling, im not really sure where that would be placed. love access but still learning

Many Thanks

Steve

[orange]

OK, we've all inherited somethings.
Do you know how to step debug? If not, read this link by Chip Pearson. It mentions Excel, but it works with vba.
Do you have a reference to the Outlook library?

Make a comment of this line
'On Error Resume Next it is causing access to ignore an error (or could be)

Are you working on a copy of your database -- if not you should be?

Put a breakpoint on the first line and step debug.

Good luck.

[sdel_nevo]

Hi Orange

yes I am working on a copy, I will comment out 'On Error Resume Next and read the link you suggested.

will let you know how I get on.

many thanks for the heads up

Steve