Outlook 2003: Meeting Organizer will be set as always free or busy status

Status
Not open for further replies.
Outlook version
Email Account
Exchange Server
Hi Masters,

This is my very first time to post in the forum. I'll be needing your expertise on how to set the meeting request organizer's status as always free or busy but the required attendee's availability status as "Out of office".

I have created a VBA code in excel to automatically send the meeting request. I have seen the ".organizer" code to be associated in the appontment item - meeting request and I don't know how to use it.

I want to include the code ".Organizer = BusyStatus = 0".

Here is my code that I put on a module in Excel file:

Sub Appointment_PTO()

Dim oApp As Object, oApt As Object

'Turns off screen updating

Application.ScreenUpdating = False

'to create a clendar invite

Set oApp = CreateObject("Outlook.Application")

Set oApt = oApp.CreateItem(1)

On Error Resume Next

With oApt

'to select the dates on the selected check box

> Subject = "PTO REQUEST APPROVED"

If Sheets("PTO Request Form").CB8_Label.Caption = Chr(254) Then

CB = Sheets("PTO Request Form").CB8_Label.Caption = Chr(254)

> Start = Sheets("PTO Request Form").FDdateTextBox.Value

> End = Sheets("PTO Request Form").FDdateTextBox.Value

> AllDayEvent = True

End If

If Sheets("PTO Request Form").CB9_Label.Caption = Chr(254) And Sheets("PTO Request Form").AM_Label.Caption = Chr(254) Then

CB = Sheets("PTO Request Form").CB9_Label.Caption = Chr(254) And Sheets("PTO Request Form").AM_Label.Caption = Chr(254)

> AllDayEvent = False

> Start = Sheets("PTO Request Form").HDdateTextBox.Value & " " & "06:00 AM"

> End = Sheets("PTO Request Form").HDdateTextBox.Value & " " & "12:00 PM"

End If

If Sheets("PTO Request Form").CB9_Label.Caption = Chr(254) And Sheets("PTO Request Form").PM_Label.Caption = Chr(254) Then

CB = Sheets("PTO Request Form").CB9_Label.Caption = Chr(254) And Sheets("PTO Request Form").PM_Label.Caption = Chr(254)

> AllDayEvent = False

> Start = Sheets("PTO Request Form").HDdateTextBox.Value & " " & "12:00 PM"

> End = Sheets("PTO Request Form").HDdateTextBox.Value & " " & "06:00 PM"

End If

If Sheets("PTO Request Form").CB10_Label.Caption = Chr(254) Then

CB = Sheets("PTO Request Form").CB10_Label.Caption = Chr(254)

> Start = Sheets("PTO Request Form").MDdateTextBox1.Value

> End = Sheets("PTO Request Form").MDdateTextBox2.Value

> AllDayEvent = True

End If

> MeetingStatus = 1

> RequiredAttendees = ThisWorkbook.Sheets("PTO Request Form").SupNEmailTextBox.Value & " ," & ThisWorkbook.Sheets("PTO Request Form").EmpNEmailTextBox.Value

> BusyStatus = 3

> ReminderSet = False

> Attachments.Add ThisWorkbook.FullName

> Display

'.Send

End With

On Error GoTo 0

'Restores screen updating and release Outlook

Application.ScreenUpdating = True

Set oApt = Nothing

Set oApp = Nothing

End sub

Please help if it is really possible.

Thanks,

blackorchids
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You can't set different free/busy when you send it. It needs to be set after its added to the folder. After you send it, you need to find it and change the setting. I know you can do it using an itemadd event, but I don't know how to call it from excel.
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
S Outlook 2003 - showing meeting on wrong day and time Using Outlook 1
T Outlook 2010/Exchange 2003: Meeting Organizer doesn't show Using Outlook 1
S default meeting time in Outlook 2003 Using Outlook 3
P Outlook 2007 on Exchange 2003 - Meeting Organizer not seeing new proposed time from external parties Using Outlook 5
B Undeliverable on internet meeting request. Exchange 2003/Outlook 2007 Using Outlook 3
W When users try to setup a meeting in outlook 2007 or 2003 they will get an Undeliverable delivery st Using Outlook 1
N Hyperlink in outlook 2003 appointment/meeting Using Outlook 1
I Outlook 2003: Unable to accept meeting requests Using Outlook 3
D Outlook 2010 vs. Exchange 2003 - Auto accept meeting requests not working Using Outlook 1
N Outlook 2003 SP3: Error when accepting update to recurring meeting: "You have received a more recent Using Outlook 2
J Outlook 2003 Calendar Meeting NO Cancellation Prompt Using Outlook 1
T 2010 Outlook Meeting Appointments not working with 2003 Using Outlook 2
I Cannot see meeting attendee appointment availbility in Outlook 2003 but can see same user(s) availbility in Outlook 2007 Using Outlook 1
M Trying to accept meeting invite in Outlook 2003 and receive Error message 0x800CCC13 "Unable to conn Using Outlook 6
J Outlook 2003 Meeting Request 'Accept' button grey out Using Outlook 1
B Outlook 2003 email sending & receiving suddenly stopped working Using Outlook 3
H Outlook 2003 find by "has attachment" Using Outlook 1
glnz How set up new IMAP on Outlook-Office 365 and merge in pst from Outlook 2003 for same two email accounts? Using Outlook 5
P Import Categories from Outlook 2003 Using Outlook 8
V Outlook 2003 problem with Windows 10 Creators Update 1709 Using Outlook 0
M Outlook 2003 pictures - some visible, some not Using Outlook 0
S Outlook 2003 to Outlook 2013 pst file Using Outlook 5
O Memory Leak in Outlook 2003 Using Outlook 3
W Changing looks of emails in Outlook 2003 Using Outlook 0
O Outlook 2003 can't send, but settings seem OK Using Outlook 1
P URL Hyperlink not working correctly in Outlook 2003 Using Outlook 10
O Outlook 2003 can't open contacts. Using Outlook 2
O Promoting Outlook 2003 User Templates Using Outlook 1
O W-a-a-y too many PSTs (Outlook 2003) Using Outlook 0
J Outlook 2003-2010 PST Field Editor Using Outlook 1
P Outlook 2003 - Do I need a new profile? Using Outlook 2
E Want to Import Outlook 2003 pst files to later version Using Outlook 6
A error message outlook 2003 Using Outlook 1
B Seeking advice now Outlook 2003 is unsupported by Exchange Using Outlook 4
O Change Debit to Credit in Outlook 2003? Using Outlook 1
J problems downloading POP3 emails to Outlook 2003 Using Outlook 1
G Outlook 2003 VBA Won't Run In Outlook 2010 Outlook VBA and Custom Forms 4
P Outlook 2003 - possible to recreate corrupt account? Using Outlook 3
Calvyn Outlook 2003 cannot import .vcs subject Using Outlook 1
T Query about one aspect of migrating .pst files from Outlook 2003 to Outlook 2013 Using Outlook 5
C Outlook 2003 contacts Using Outlook 1
G Configuring Outlook 2003 for Gmail with both pop3 & imap4 accounts Using Outlook 1
M HELP--Extract Data from 2003 outlook transfer to excel spreadsheet Using Outlook 1
V Outlook 2003 editing problem Using Outlook 4
X Outlook 2003 not sending all of the new email message Using Outlook 1
2 How to use outlook 2003 calendar in always offline mode Using Outlook 0
G Outlook 2003 I need to move email to folder based on subject, using wild card Using Outlook 0
G outlook 2013 - Open In Outlook 2003 Using Outlook 1
A Exchange 2003 Outlook 2010 64 Bit- AutoDiscover Connection Err - Certificate Exchange Server Administration 9
T Use Outlook 2003 with Office 2013 Using Outlook 1
Similar threads


















































Top