UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> How To Add "invite Attendees" On Outlook Calendar, Office 2010    
 
   
winterolympic
post Aug 16 2018, 09:47 AM
Post#1



Posts: 448
Joined: 26-March 13



Hi,
When I make a Outlook calendar(appointment) inside Access, this calendar was created only inside my Outlook( https://www.devhut.net/2017/01/15/VBA-add-a...look-calendar/)
I want to add "To" part to send out, so other co-workers can "Accepted" the appointment.

How can I do this?
Thanks.
Go to the top of the page
 
winterolympic
post Aug 16 2018, 01:30 PM
Post#2



Posts: 448
Joined: 26-March 13



I used late binding and used code below, but it didn't work

CODE
Set cReceiver = OutCal.Recipients.Add("someone@company.net")
                                
        cReceiver.Type = 1   'olRequired
                                 With OutApp
                                    .start = Me.InterviewDate & " " & Me.InterviewTime
                                    .Duration = 60 '1 hour
                                    .Subject = ""
                                     .body = ""
                                     .ReminderMinutesBeforeStart = 60
                                     .ReminderSet = True
                                     .RequiredAttendees = cReceiver
                                     '.Display
                                     '.Save
                                     .send
                                 End With


No errors, but I couldn't get 'Required' recipients.
Please help me.
Thanks.
Go to the top of the page
 
ADezii
post Aug 16 2018, 02:13 PM
Post#3



Posts: 2,689
Joined: 4-February 07
From: USA, Florida, Delray Beach


Try something along the lines of:
CODE
Dim appOut As Outlook.Application
Dim oAppItem As Outlook.AppointmentItem

Set appOut = New Outlook.Application
Set oAppItem = appOut.CreateItem(olAppointmentItem)

With oAppItem
  .Subject = "A Scheduled Meeting of all Regional Managers"
  .Location = "Regional Office"
  .MeetingStatus = olMeeting
  .Start = #8/22/2018 9:00:00 AM#
  .End = #8/22/2018 5:00:00 PM#
  .RequiredAttendees = "JDoe@aol.com;FFlintstone@Comcast.net;BRubble@yahoo.com"
  .Body = "To discuss future directions that we wish the Organization to go in"
.Send
End With

appOut.Quit
Set appOut = Nothing
Set oAppItem = Nothing

Go to the top of the page
 


Custom Search


RSSSearch   Top   Lo-Fi    14th November 2019 - 10:23 PM