I'm sure there's a simple way to do this, but I can't figure out how to convert a meeting to an appointment in Outlook 2003. Does anyone know how? Thank you!
if you are creating it, click cancel meeting to drop down to appointment. Once its created, your options are limited. Are you the organizer or an invitee?
I am looking for the same solution - I import calendar meetings but would like to change them to appointments. I found this VBA code that would change a meeting to an appointment, but I cannot run macros on my pc (security issues). So although I know the code works is there anyway to do this without running a macro?
Sub ConvertMeetingsToAppts()
Dim strWindowType As String
Dim sel As Outlook.Selection
Dim itm As Object
strWindowType = TypeName(Application.ActiveWindow)
Select Case strWindowType
Case "Explorer"
Set sel = Application.ActiveExplorer.Selection
If sel.count > 0 Then
For Each itm In sel
If itm.Class = olAppointment Then
If itm.MeetingStatus <> olNonMeeting Then
Call ConvertMeetingToAppt(itm)
End If
End If
Next
End If
Case "Inspector"
Set itm = Application.ActiveInspector.CurrentItem
If itm.Class = olAppointment Then
If itm.MeetingStatus <> olNonMeeting Then
Call ConvertMeetingToAppt(itm)
End If
End If
End Select
Set itm = Nothing
Set sel = Nothing
End Sub
Sub ConvertMeetingToAppt(myMeeting As Outlook.AppointmentItem)
With myMeeting
' remove all recipients
Do Until .Recipients.count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub
I am looking for the same solution - I import calendar meetings but would like to change them to appointments. I found this VBA code that would change a meeting to an appointment, but I cannot run macros on my pc (security issues). So although I know the code works is there anyway to do this without running a macro?
Sub ConvertMeetingsToAppts()
Dim strWindowType As String
Dim sel As Outlook.Selection
Dim itm As Object
strWindowType = TypeName(Application.ActiveWindow)
Select Case strWindowType
Case "Explorer"
Set sel = Application.ActiveExplorer.Selection
If sel.count > 0 Then
For Each itm In sel
If itm.Class = olAppointment Then
If itm.MeetingStatus <> olNonMeeting Then
Call ConvertMeetingToAppt(itm)
End If
End If
Next
End If
Case "Inspector"
Set itm = Application.ActiveInspector.CurrentItem
If itm.Class = olAppointment Then
If itm.MeetingStatus <> olNonMeeting Then
Call ConvertMeetingToAppt(itm)
End If
End If
End Select
Set itm = Nothing
Set sel = Nothing
End Sub
Sub ConvertMeetingToAppt(myMeeting As Outlook.AppointmentItem)
With myMeeting
' remove all recipients
Do Until .Recipients.count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub
I know this is an old post & it looks like you never got an answer. I just wanted you to know that your macro worked for me & I thank you very much!!! You saved me a lot of grief.
Yeah, basically the only way to do it is using a macro - in older versions you can copy the meeting and the paste it into a different calendar - the paste will be an appointment, but not in current versions. Plus, its slow.
Yeah, basically the only way to do it is using a macro - in older versions you can copy the meeting and the paste it into a different calendar - the past will be an appointment, but not in current versions. Plus, its slow.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.