- a specific default label
- a default value for "Show time as", namely "Free"
- Default to "Private"
powered by performancing firefox
Friday, September 1
Macro to create new Appointment in Outlook
I need a macro that creates a new appointment in Outlook (ideally from the current active Task but that's not essential!) - the essential part is that it creates the Appointment with certain default values. Namely:
- a specific default label
- a default value for "Show time as", namely "Free"
- Default to "Private"
- a specific default label
- a default value for "Show time as", namely "Free"
- Default to "Private"
Subscribe to:
Post Comments (Atom)
HTC TYTN II internet price graph
tracker
1 comment:
Solution to similar request at http://www.tech-archive.net/Archive/Outlook/microsoft.public.outlook.program_vba/2006-12/msg00122.html
"
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
"
Post a Comment