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
 
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
>
 
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
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
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
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
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 17
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
Z 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

Similar threads

Back
Top