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.
Similar threads
Thread starter Title Forum Replies Date
M Use Macro to change account settings Outlook VBA and Custom Forms 1
D Unable to change AppointmentItem.Start property Outlook VBA and Custom Forms 4
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
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

Similar threads

Top