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!
 
Thanks. I'm the invitee from numerous Google calendar entries that went to my Outlook.
 
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.
 
Last edited:
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.
Similar threads
Thread starter Title Forum Replies Date
G Change default font size in sticky notes - Outlook Desktop 2021 Using Outlook 2
R Outlook 2021 change view Using Outlook 2
C Change Photo Size of Selected Contacts Outlook VBA and Custom Forms 1
C Mass Change Selected Contact Photos Outlook VBA and Custom Forms 1
M Use Macro to change account settings Outlook VBA and Custom Forms 0
D Unable to change AppointmentItem.Start property Outlook VBA and Custom Forms 3
sjmo2 Change subject for new e-mails only. Outlook VBA and Custom Forms 2
Horsepower Contact phone numbers randomly change Using Outlook 0
P Outlook 2016 Change Paste Special Default Format Using Outlook 8
whizzard Change FROM address based on TO or CC address Outlook VBA and Custom Forms 8
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
V Can one change the formatting of email title blocks? Using Outlook 0
S Unable to change Message Class Outlook VBA and Custom Forms 0
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
C Outlook 365 Can you change the follow up colour? Using Outlook 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
O What would be the recommended way to change an email address (family member)? Using Outlook 0
S Change "This Week" flag start date behavior Using Outlook 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
D Change Microsoft Account password - what to do to update on all devices Using Outlook 4
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
Witzker HowTo Change message Class of contact form Outlook VBA and Custom Forms 0
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R How to Change Margins In Google Docs...? Using Outlook 0
e_a_g_l_e_p_i Outlook 2010 How can I change the font size on right side appointment pane Using Outlook 12
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
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 10
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
Z 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 90
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

Similar threads

Back
Top