add new atendee to an existing appointment

Status
Not open for further replies.
Q

QW5kcmV3

Hi all.

I am stuck. In my enviroment we have a public calendar with heaps of

professional events. i am trying to create a VBA code linked to a button that

once pressed it would add the user that pressed it to the list of required

attendees to the existing event.

Can any one help me

Thank you

Andrew
 
K

Ken Slovak - [MVP - Outlook]

Get the calendar appointment from

Application.ActiveExplorer.Selection.Item(1). Get its Recipients collection,

get NameSpace.CurrentUser.Address. Add that to the Recipients collection

using the Recipients.Add method. Specify the Recipient.Type as olTo, which

means required recipient.

"Andrew" <Andrew> wrote in message

news:C52FA619-3ACD-468B-8A15-BD58B07D4CDB@microsoft.com...
> Hi all.

> I am stuck. In my enviroment we have a public calendar with heaps of
> professional events. i am trying to create a VBA code linked to a button
> that
> once pressed it would add the user that pressed it to the list of required
> attendees to the existing event.

> Can any one help me

> Thank you

> Andrew
 
A

Andrew

Hi Ken

Unfortuanly i am very limited in my understanding of the VBA Scripting could

you please show me te example of what you mean.

Thank you for your time

Andrew
wrote:


> Get the calendar appointment from
> Application.ActiveExplorer.Selection.Item(1). Get its Recipients collection,
> get NameSpace.CurrentUser.Address. Add that to the Recipients collection
> using the Recipients.Add method. Specify the Recipient.Type as olTo, which
> means required recipient.

> >

>

> "Andrew" <Andrew> wrote in message
> news:C52FA619-3ACD-468B-8A15-BD58B07D4CDB@microsoft.com...
> > Hi all.
> > I am stuck. In my enviroment we have a public calendar with heaps of
> > professional events. i am trying to create a VBA code linked to a button
> > that
> > once pressed it would add the user that pressed it to the list of required
> > attendees to the existing event.
> > Can any one help me
> > Thank you
> > Andrew


>
 
K

Ken Slovak - [MVP - Outlook]

There's no error handling in this and it's just a basic example that assumes

that whatever is selected is actually an appointment item. The code also

assumes it's running in the Outlook VBA project.

Sub AddRecip()

Dim oAppt As Outlook.AppointmentItem

Dim colRecips as Outlook.Recipients

Dim oRecip As Outlook.Recipient

Set oAppt = Application.ActiveExplorer.Selection.Item(1)

Set colRecips = oAppt.Recipients

Set oRecip = colRecips.Add(Application.Session.CurrentUser.Address)

oRecip.Type = olTo

oAppt.Save

Set oRecip = Nothing

Set colRecips = Nothing

Set oAppt = Nothing

End Sub

"Andrew" <Andrew> wrote in message

news:4DABEEDF-72E3-4867-B269-38A8B2AA417F@microsoft.com...
> Hi Ken

> Unfortuanly i am very limited in my understanding of the VBA Scripting
> could
> you please show me te example of what you mean.

> Thank you for your time

> Andrew
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 20
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 4
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
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
Z 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

Similar threads

Top