Outlook VBA macro - Set appointment item to "show time as tentative"

Help please -
I need an Outlook (2007) VBA macro - Set appointment item to "show time as tentative"
When I am in the "explorer view " of my calendar I would like to click a macro whih will set the selected item(s) to "tentative"

Thanks!
Jim
JWK801Asked:
Who is Participating?
 
SylvainDrapeauConnect With a Mentor Commented:
Hello !

Assign "MakeTentative" to a new button and test if this does the trick.

I did not test it but I'm pretty sure it will work. Just for caution, create a new calendar and test there before testing in your real calendar.

If it does not work, write back with the error and line number.

I can only test it on Monday, if you don't mind waiting.

Syldra
Sub MakeTentative()

Dim objItem As Object

Set objItem = GetCurrentItem()

If Not TypeOf objItem Is AppointmentItem Then
    MsgBox ("Not an appointment")
    Exit Sub
End If

Set objItem.BusyStatus = 1
objItem.Save

End Sub

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
        Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
        Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    Case Else
End Select
End Function

Open in new window

0
 
JWK801Author Commented:
I did not test the code. But you gave me the answer I needed.

Thanks!
0
 
SylvainDrapeauCommented:
Great, thank you !

If there's an error with the code, I can still help you. It would be better to have a 100% working solution in case someone with no VBA knowledge needs it later.

Syldra
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.