A Microsoft Outlook email forum. Outlook Banter

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.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Outlook Macro problem



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old December 5th 06, 08:52 PM posted to microsoft.public.outlook.program_vba
Victor Delta
external usenet poster
 
Posts: 9
Default Outlook Macro problem

Hi

I need to set a large number of Outlook calendar appointments to:

Show Time as: Free, and
Sensitivity: Private

I am having difficulty working out how to write a macro to do this, although
I'm sure there must be a way.

Can anyone help please?

Thanks

V



Ads
  #2  
Old December 6th 06, 06:10 AM posted to microsoft.public.outlook.program_vba
Michael Bauer [MVP - Outlook]
external usenet poster
 
Posts: 1,885
Default Outlook Macro problem



dim obj as object
dim appt as Outlook.AppointmentItem
dim Folder as Outlook.Mapifolder

Set Folder=Application.Session.Pickfolder
If not Folder is Nothing Then
for each obj in Folder.Items
If TypeOf obj is Outlook.AppointmentItem then
with appt
.BusyStatus=0
.Sensitivity=olPrivate
.Save
End with
Endif
Next
Endif

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Am Tue, 5 Dec 2006 20:52:38 -0000 schrieb Victor Delta:

Hi

I need to set a large number of Outlook calendar appointments to:

Show Time as: Free, and
Sensitivity: Private

I am having difficulty working out how to write a macro to do this,

although
I'm sure there must be a way.

Can anyone help please?

Thanks

V

  #3  
Old December 9th 06, 06:12 PM posted to microsoft.public.outlook.program_vba
Victor Delta
external usenet poster
 
Posts: 9
Default Outlook Macro problem


"Michael Bauer [MVP - Outlook]" wrote in message
.. .


dim obj as object
dim appt as Outlook.AppointmentItem
dim Folder as Outlook.Mapifolder

Set Folder=Application.Session.Pickfolder
If not Folder is Nothing Then
for each obj in Folder.Items
If TypeOf obj is Outlook.AppointmentItem then
with appt
.BusyStatus=0
.Sensitivity=olPrivate
.Save
End with
Endif
Next
Endif

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Many thanks, I'll give it a go.

V


 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Outlook Macro - help please [email protected] Outlook - General Queries 0 November 29th 06 11:22 AM
Call macro stored in Excel workbook from Outlook's macro Gvaram Outlook and VBA 5 October 4th 06 06:26 AM
Macro Problem Guy Outlook and VBA 4 May 18th 06 04:08 AM
VB and outlook macro need help jbullington Outlook and VBA 1 January 10th 06 03:22 PM


All times are GMT +1. The time now is 08:19 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.