|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
February 26th 07, 02:04 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Send meeting cancelation notice.
I'm trying to send meeting cancelation but it's not working. Any suggestions?
What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing 
|
| Ads |
|
#2
February 27th 07, 05:02 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Send meeting cancelation notice.
Where does that code run?
Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... I'm trying to send meeting cancelation but it's not working. Any suggestions? What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing
|
|
#3
February 27th 07, 08:23 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Send meeting cancelation notice.
It's part of an Access database that I'm working on. I have a form with a
button that runs that code. "Dmitry Streblechenko" wrote: Where does that code run? Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... I'm trying to send meeting cancelation but it's not working. Any suggestions? What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing
|
|
#4
February 27th 07, 09:13 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Send meeting cancelation notice.
Did you add Outlook to the project references? Otherwise VBA will see
olMeetingCanceled as 0 (as converted from Empty) rather than 5. Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... It's part of an Access database that I'm working on. I have a form with a button that runs that code. "Dmitry Streblechenko" wrote: Where does that code run? Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... I'm trying to send meeting cancelation but it's not working. Any suggestions? What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing
|
|
#5
February 27th 07, 09:31 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Send meeting cancelation notice.
Yes I did. And I've ran the code step by step, and confirmed that the value
is 5 after it's set to olMeetingCanceled. And when at that moment I look at my calendar, it says the meeting is canceled there. How can I find out what events are triggered when I manually delete the meeting? "Dmitry Streblechenko" wrote: Did you add Outlook to the project references? Otherwise VBA will see olMeetingCanceled as 0 (as converted from Empty) rather than 5. Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... It's part of an Access database that I'm working on. I have a form with a button that runs that code. "Dmitry Streblechenko" wrote: Where does that code run? Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... I'm trying to send meeting cancelation but it's not working. Any suggestions? What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing
|
|
#6
February 28th 07, 09:55 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Send meeting cancelation notice.
Hmmm... I can reproduce this, looks like an Outlook bug.
What's weird is that the meeting status MAPI property on the request in teh Sent Items fodler is set to 7 rather than 5 (olMeetingCanceled)... Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... Yes I did. And I've ran the code step by step, and confirmed that the value is 5 after it's set to olMeetingCanceled. And when at that moment I look at my calendar, it says the meeting is canceled there. How can I find out what events are triggered when I manually delete the meeting? "Dmitry Streblechenko" wrote: Did you add Outlook to the project references? Otherwise VBA will see olMeetingCanceled as 0 (as converted from Empty) rather than 5. Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... It's part of an Access database that I'm working on. I have a form with a button that runs that code. "Dmitry Streblechenko" wrote: Where does that code run? Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "dbornt" wrote in message ... I'm trying to send meeting cancelation but it's not working. Any suggestions? What the following does is send an update notice, but it doesn't say that the meeting was cancelled and the invitee was not given a choice to delete from their calendar. Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olfolder = olNS.GetDefaultFolder(olFolderCalendar) Set olApptItems = olNS.GetDefaultFolder _ (olFolderCalendar).Items strSearch = "Test Meeting Invitation" MsgBox olApptItems.Find("[Subject] = """ & strSearch & """") Set olCurrAppt = olApptItems.Find("[Subject] = """ & strSearch & """") While TypeName(olCurrAppt) "Nothing" olCurrAppt.MeetingStatus = olMeetingCanceled olCurrAppt.Send olCurrAppt.Delete Set olCurrAppt = olApptItems.FindNext Wend Set olApptItems = Nothing Set olCurrAppt = Nothing Set olfolder = Nothing Set olNS = Nothing Set olApp = Nothing
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| add signature to meeting notice | Angel | Outlook - Calandaring | 1 | February 21st 07 06:47 AM |
| Duplicate attendee in TO line of Meeting notice?? | KES | Outlook - General Queries | 0 | December 22nd 06 02:44 PM |
| Recurring meeting notice huge for no apparent reason. | Bandsaw | Outlook - Calandaring | 0 | December 9th 06 08:29 PM |
| how to send a meeting notice without it showing time of midnight | SheilaB | Outlook - Calandaring | 0 | June 26th 06 07:38 PM |
| resend meeting notice to one attendee only | Dawn622 | Outlook - Calandaring | 1 | February 27th 06 06:33 PM |
Linear Mode
