VBA script to modify all Outlook Calendar items


Using the script below you may automate the process of putting birthdays in your calendar. This is the 2 step process. First - you import your birthdays list from .xls file to Outlook calendar and second - you run the script to make all appointments to be recurring.

So this script will modify all (multiple) Outlook Calendar items to be rucurring yearly:


Sub replacement()

  Dim Ns As NameSpace
 Dim MyCalendar As MAPIFolder
 Dim Item As Object

  Set Ns = GetNamespace("MAPI")
 Set MyCalendar = Ns.GetDefaultFolder(olFolderCalendar)
 Set srtitems = MyCalendar.Items
  
 For Each Item In srtitems
 DoEvents
   Set myRecurrPatt = Item.GetRecurrencePattern
    myRecurrPatt.RecurrenceType = olRecursYearly
    Item.Save
 Next
End Sub

Comments

Post a Comment

Popular posts from this blog

How to uninstall a broken software

From time to time you may have problems uninstalling some software from your Windows computer. As a result you cannot uninstall them from "Windows Programs and Features (Add or Remove Programs)" control panel applet. There are many reasons for that - missing .dll file, corrupted installer or a problem with this Installer package. Resolution 1: Try native Microsoft solution for that: http://support.microsoft.com/mats/program_install_and_uninstall What it fixes: Removes bad registry key on 64 bit operating systems. Windows registry keys that control the upgrade (patching) data that become corrupted. Resolves problems that prevent new programs from being installed. Resolves problems that prevent programs from being completely uninstalled and blocking new installations and updates. Use this troubleshooter for an uninstall only if the program fails to uninstall using the windows add/remove programs feature. Resolution2: Try CCleaner http:/...
Read more

Xerox 116-324 fault when printing .doc or .pdf containing callibri fonts

Image
Problem : You are unable to print .PDF or .DOCX documents which contain Calibri fonts. The Xerox 7345 or similar model sends 116-324 error code and needs to reboot. Resolution : Update you computer with the latest drivers from Xerox website. If you are on PCL driver - disable the Print Optimization feature in the driver. If you are on the PS driver set the PostScript Output Option to Optimize for Portability. The print file will be larger and printing will take more time. Another PS driver setting may screw up the text in your PowerPoint slides (as shown on the picture below). It is "PostScript Pass-through". If you have printouts like on the picture below, you better enable "PostScript Pass-through" (Printing preferences> Advanced> Driver section. )
Read more

Create Outlook calendar item with Python

I've created this script when I needed to keep track of my street workout performance. I was needed to have a reminder for each day that will tell me how much repetitions I should do today. So this script will create a bunch of Microsoft Outlook appointments in your calendar according to the "table" dictionary. The table is reduced for this example. It is easier to create such table in MS Excel, then convert it to text and paste into your favourite Python IDE. Please note that this code is using PyWin32 library. def addevent(start, subject):     import win32com.client     oOutlook = win32com.client.Dispatch("Outlook.Application")     appointment = oOutlook.CreateItem(1) # 1=outlook appointment item     appointment.Start = start     appointment.Subject = subject     appointment.Duration = 20     appointment.Location = 'Sprortground'     appointment.ReminderSet = True     appo...
Read more