Change Meetings to Appointments in Outlook 2003

[mitch323]

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!

 

[Diane Poremsky]

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?

 

[mitch323]

Thanks. I'm the invitee from numerous Google calendar entries that went to my Outlook.

 

[ptwuk]

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

 

[phrab]

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.

 

[Diane Poremsky]

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.

 

[phrab]

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.

Thank you, Diane. At least I won't be looking for another way.