Change Meetings to Appointments in Outlook 2003

Status
Not open for further replies.

mitch323

Member
Outlook version
Email Account
POP3
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!
 

mitch323

Member
Outlook version
Email Account
POP3
Thanks. I'm the invitee from numerous Google calendar entries that went to my Outlook.
 

ptwuk

Member
Outlook version
Outlook 2013 32 bit
Email Account
IMAP
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

Senior Member
Outlook version
Outlook 2016 64 bit
Email Account
IMAP
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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.
 
Last edited:

phrab

Senior Member
Outlook version
Outlook 2016 64 bit
Email Account
IMAP
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.:)
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
D Change senders title Using Outlook 1
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
E Change sending account depending on Subjectline Outlook VBA and Custom Forms 0
J Outlook 2013 Change color of text in data fields of contacts in Outlook 2013? Using Outlook 3
B Change row background color of selected item Using Outlook 1
PGSystemTester VBA To Change AppointmentItem.BusyStatus From MeetingItem Before Send Using Outlook 0
B Change from Address Outlook VBA and Custom Forms 0
X If you change expiration date of repeated task it dupplicates Using Outlook 1
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
B See "Change View" Drop Down as a List? Using Outlook 1
V Change start time based on message duration Outlook VBA and Custom Forms 2
R Folder pane width change Using Outlook 54
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
S Outlook 2010 unable to change default font Using Outlook 7
P How can I change my calendar view back Using Outlook 3
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
T Change the selected Message in the Outlook window Outlook VBA and Custom Forms 2
geofferyh How to change the Attachment File Name? Outlook VBA and Custom Forms 1
W Appointment occurrences change the location property Using Outlook 0
T Scheduled footer change Using Outlook 2
B Change font of reminder of an email header Outlook VBA and Custom Forms 3
CWM030 Name Change? Exchange Server Administration 9
V not able to change name in customize Ribbon Outlook VBA and Custom Forms 1
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
C Change Subject Line in Selected Emails Outlook VBA and Custom Forms 1
V Change default default save location to Quick Access Using Outlook 1
C Change default "Save Sent Item To" folder Outlook VBA and Custom Forms 9
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
B Do not change the From address in Outlook Templates Using Outlook 0
M Sudden change in From field - now very short Using Outlook 4
M cannot change delivery folders with IMAP accounts Using Outlook 0
S Email Format With Embedded Images and Tables Change Using Outlook 2
O On click,I want to change subject line of selected mail and then reply to particular email and move Using Outlook 3
P Change PC User Directory & iPhone Sync Using Outlook 2
A Change order of actions in one (!) rule Outlook VBA and Custom Forms 2
I change subject and forward without FW: Outlook VBA and Custom Forms 4
Rupert Dragwater Can't change font size Using Outlook 5
M VBA to change flag status in outlook contact item Outlook VBA and Custom Forms 3
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
tjd189 outlook 2016 name change Using Outlook 1
E Button to change subject Outlook VBA and Custom Forms 1
K Paste from Windows Clipboard then change font without losing formatting Outlook VBA and Custom Forms 1
D Office365 Conference Room name change? Using Outlook 5
J Change POP account to Forwarder - What happens in Outlook? Using Outlook 2
H Change Default Email Account Using VBA Outlook VBA and Custom Forms 5
C Change default colors for conditional formatting Using Outlook 2
O VBA to Run Font Change on Outlook Startup Outlook VBA and Custom Forms 4
K Other Shared Calendar on Outlook cannot change items Using Outlook.com accounts in Outlook 7
Diane Poremsky How to Easily Change the Private Flag New Slipstick.com Articles 0
Similar threads


















































Top