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
 
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.
Similar threads
Thread starter Title 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
D Wishlist How to use 'app password' in Outlook 2003 after Google pulled plug on "less secure apps" Using Outlook 2
J Outlook 2003 .pst Will Not Restore Completely to Outlook 2019 Using Outlook 5
D Outlook 2003 Mail Fails Using Outlook 1
D Wrong email address in Outlook 2003 "From" tab in new outgoing emails Using Outlook 4
V Outlook 2003 and Windows 11 Using Outlook 4
glnz Moving from Outlook 2003 to MS365 Outlook - need basics Using Outlook 4
I Outlook 2003 shows html code when To: field is empty Using Outlook 7
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
D Outlook 2003 contact folder opend in scrolled down position Using Outlook 2
O Need advice ASAP! Outlook 2003. Using Outlook 1
H Custom Contact form not working in Outlook 2003 Using Outlook 3
O Outlook 2003 forms problem Using Outlook 3
O Duplicate folders in Outlook 2003 Using Outlook 3
O Moving OUtlook 2003 from bad XP to Win 7 Pro 64 -- URGENT! Using Outlook 8

Similar threads

Back
Top