Ok I have an excell sheet that I have set up to email out and to add an all day event to an outlook calender. There are two problems I'm having, one is that I can't get it to update the calender unless I already have outlook open. I'm using the following to access outlook
Private Sub GetFolderFromID(Subj, ShipDate)
Dim olfolder As Outlook.MAPIFolder
Dim olapp As New Outlook.Application
Set olapp = CreateObject("Outlook.Application")
Set olfolder = olapp.GetNamespace("Mapi").GetFolderFromID("PublicFolderID")
Set myItem = olfolder.Items.Add(olAppointmentItem)
myItem.Subject = Subj
myItem.AllDayEvent = True
myItem.Start = ShipDate
Set olfolder = Nothing
Set olapp = Nothing
this will do exactly what I want when outlook is open, but if outlook wasn't opened before hand it will error out and say that outlook needs to be restarted. How can I open up a copy of outlook right before this executes (the bolded line is the one that can't execute unless outlook is open).
My second question is, is there anyway to change the color of an appointment? I'm adding 2 appointments to this calender and I want one to be blue (label called Travel Required) one to be orange (label called Phone Call). Anybody know of a way to add color to these (anyway would be great, the label method just seemed convinient if I can find a way for it to work).
Any help would be much appreciated.