VB Script to create a calendar appointment

[curtisnewman (Curtis3363)]

Just edit the day, Date and Time and your email

Step 1: Here’s the script just edit

Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1

Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)

With objAppt
    .Subject = "Test"
.Body = "Test"
    .Start = ("08/25/2018 8:00 AM")
.End = DateAdd("h", 1, .Start)
       
    ' make it a meeting request
    .MeetingStatus = olMeeting
    .RequiredAttendees = "your_email_address"
    .Send
End With

Set objAppt = Nothing
Set objOL = Nothing

It’s a little faster to me using this.

[Mike400]

Nice script. Just so everyone is aware you may have to modify the security settings in the Outlook installation to allow the script to connect to your mailbox.