add an appointment for a custom calendar, vba excel

Status
Not open for further replies.
H

Héctor Miguel

hi, all !

how is it possible (or should it be) to settle down an appointment in a custom calendar with vba ?

I have even ended up establishing a certain calendar as the current view in the OL browser

but the appointments always stay in the same calendar (the first one in the index or the original ?)

and I have not been able to find some article, topic, conversation that friendly explain this type of procedures (vba)

at the end is one of the used codes (up tp date) using late binding (just in case of several versions)

tia,

hector.

Sub Date_myCalendar()

Dim myOutlook As Object, myAppointment As Object, nRow As Integer, LRow As Integer

LRow = Range("a65536").End(xlUp).Row

On Error GoTo Create

Set myOutlook = GetObject(, "outlook.application")

If Err = 0 Then GoTo Created

Create:

Err.Clear

Set myOutlook = CreateObject("outlook.application")

Created:

On Error GoTo 0

For nRow = 2 To LRow

' in col-B are the calendar names

Set myOutlook.ActiveExplorer.CurrentFolder = _

myOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & nRow).Text)

Set myAppointment = myOutlook.CreateItem(1)

' in col-A are the appointment contract codes

myAppointment.Subject = "Contract code: " & Range("a" & nRow).Value

' in col-C are the dates for each appointment

myAppointment.Start = "09:00 am" & Format(Range("c" & nRow).Value, "mm/dd/yyyy")

myAppointment.End = "9:15 am" & Format(Range("c" & nRow).Value, "mm/dd/yyyy")

myAppointment.ReminderMinutesBeforeStart = 0 ' warning on appointment start

myAppointment.ReminderPlaySound = True

myAppointment.Save

Next

' myOutlook.Quit

Set myAppointment = Nothing

Set myOutlook = Nothing

End Sub
 
K

Ken Slovak - [MVP - Outlook]

Using CreateItem() to create an item always adds that item to the default

folder for that type of item, not whichever folder is currently selected.

You can either create the item in the default folder and then move it to the

desired target folder, or you can get the target folder's Items collection

and call that collection's Add() method to add the item directly to that

target folder.

"Héctor Miguel" <NOhemiordiSPAM@PLShotmail.com> wrote in message

news:ut2cJxX6JHA.5180@TK2MSFTNGP04.phx.gbl...
> hi, all !

> how is it possible (or should it be) to settle down an appointment in a
> custom calendar with vba ?

> I have even ended up establishing a certain calendar as the current view
> in the OL browser
> but the appointments always stay in the same calendar (the first one in
> the index or the original ?)
> and I have not been able to find some article, topic, conversation that
> friendly explain this type of procedures (vba)

> at the end is one of the used codes (up tp date) using late binding (just
> in case of several versions)

> tia,
> hector.

> Sub Date_myCalendar()
> Dim myOutlook As Object, myAppointment As Object, nRow As Integer, LRow
> As Integer
> LRow = Range("a65536").End(xlUp).Row
> On Error GoTo Create
> Set myOutlook = GetObject(, "outlook.application")
> If Err = 0 Then GoTo Created
> Create:
> Err.Clear
> Set myOutlook = CreateObject("outlook.application")
> Created:
> On Error GoTo 0
> For nRow = 2 To LRow
> ' in col-B are the calendar names
> Set myOutlook.ActiveExplorer.CurrentFolder = _
> myOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" &
> nRow).Text)
> Set myAppointment = myOutlook.CreateItem(1)
> ' in col-A are the appointment contract codes
> myAppointment.Subject = "Contract code: " & Range("a" & nRow).Value
> ' in col-C are the dates for each appointment
> myAppointment.Start = "09:00 am" & Format(Range("c" & nRow).Value,
> "mm/dd/yyyy")
> myAppointment.End = "9:15 am" & Format(Range("c" & nRow).Value,
> "mm/dd/yyyy")
> myAppointment.ReminderMinutesBeforeStart = 0 ' warning on appointment
> start
> myAppointment.ReminderPlaySound = True
> myAppointment.Save
> Next
> ' myOutlook.Quit
> Set myAppointment = Nothing
> Set myOutlook = Nothing
> End Sub
>
 
H

Héctor Miguel

hi, Sir !

Thanks so much, Ken, that did the trick <vg
regards,

hector.


> - wrote in message ...
> Using CreateItem() to create an item always adds that item to the default folder for that type of item
> not whichever folder is currently selected.

> You can either create the item in the default folder and then move it to the desired target folder
> or you can get the target folder's Items collection and call that collection's Add() method to add the item directly to that target folder.
> >

>

>



> > hi, all !
>

>> how is it possible (or should it be) to settle down an appointment in a custom calendar with vba ?
>

>> I have even ended up establishing a certain calendar as the current view in the OL browser
> > but the appointments always stay in the same calendar (the first one in the index or the original ?)
> > and I have not been able to find some article, topic, conversation that friendly explain this type of procedures (vba)
>

>> at the end is one of the used codes (up tp date) using late binding (just in case of several versions)
>

>> tia,
> > hector.
>

>> Sub Date_myCalendar()
> > Dim myOutlook As Object, myAppointment As Object, nRow As Integer, LRow As Integer
> > LRow = Range("a65536").End(xlUp).Row
> > On Error GoTo Create
> > Set myOutlook = GetObject(, "outlook.application")
> > If Err = 0 Then GoTo Created
> > Create:
> > Err.Clear
> > Set myOutlook = CreateObject("outlook.application")
> > Created:
> > On Error GoTo 0
> > For nRow = 2 To LRow
> > ' in col-B are the calendar names
> > Set myOutlook.ActiveExplorer.CurrentFolder = _
> > myOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & nRow).Text)
> > Set myAppointment = myOutlook.CreateItem(1)
> > ' in col-A are the appointment contract codes
> > myAppointment.Subject = "Contract code: " & Range("a" & nRow).Value
> > ' in col-C are the dates for each appointment
> > myAppointment.Start = "09:00 am" & Format(Range("c" & nRow).Value, "mm/dd/yyyy")
> > myAppointment.End = "9:15 am" & Format(Range("c" & nRow).Value, "mm/dd/yyyy")
> > myAppointment.ReminderMinutesBeforeStart = 0 ' warning on appointment start
> > myAppointment.ReminderPlaySound = True
> > myAppointment.Save
> > Next
> > ' myOutlook.Quit
> > Set myAppointment = Nothing
> > Set myOutlook = Nothing
> > End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A Add attachments to appointment based on field values Outlook VBA and Custom Forms 0
Diane Poremsky Send an Email When You Add an Appointment to Your Calendar Using Outlook 0
J Outlook calendar...How to add an event or appointment without a border around it? Using Outlook 9
Tech Checkers Make Outlook add Contact Card Address in Location Field based on Appointment Subject Name. Using Outlook 2
A iCloud add-on for Outlook: Reminder for new appointment is set to 'None' by default. How to change? Using Outlook 6
anoble1 How to create an email with a link to add a calendar appointment Using Outlook 1
W Add Attendees is greyed out on Appointment Using Outlook 2
Q add new atendee to an existing appointment Outlook VBA and Custom Forms 3
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 8
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
B Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
B Task Filter Not Working When I add too many criteria Using Outlook 0
D Add date next to day name in Outlook Today calendar view Using Outlook 1
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1

Similar threads

Top