Adding an appointment to Outlook from Excel with VBA

[bibleguy125]

Hello,
I am trying to figure out how to add an appointment to a shared outlook calendar from Excel. I will be entering shipments in an Excel page and would love to just click a button and have an appointment made.
I am very much a novice on how programs communicate with one another. The only information that will need to go on the appointment is the subject, location, and time. We set all our appointments at 15 minutes duration. Have any ideas of how to go about this?

 

[bibleguy125]

Okay, I got this to work, but it only adds an item to my default calendar. Is there a way to add items to another shared calendar instead of the default?

Sub Appointments()
Const olAppointmentItem As Long = 1
Dim olapp As Object
Dim OLNS As Object
Dim OLAppointment As Object
Dim ws1 As Worksheet
Dim time1 As String
Dim time2 As String


time1 = Application.InputBox(prompt:="Enter Time", Type:=1)


Set ws1 = Worksheets("Load Entry")
ws1.Range("AC1").Value = Date & time1


time2 = ws1.Range("AC1").Value


On Error Resume Next
Set olapp = GetObject(, "Outlook.Application")
If olapp Is Nothing Then Set olapp = CreateObject("Outlook.Application")
On Error GoTo 0


If Not olapp Is Nothing Then


Set OLNS = olapp.GetNamespace("MAPI")
OLNS.Logon


Set OLAppointment = olapp.CreateItem(olAppointmentItem)
OLAppointment.Subject = ws1.Range("D2").Value & " - " & ws1.Range("A2").Value & " " & ws1.Range("D5").Value
OLAppointment.Start = ws1.Range("A5").Value + TimeValue(time1 & ":00:00")
OLAppointment.Duration = 15
OLAppointment.Location = Range("G5").Value
OLAppointment.Save


'Set OLAppointment = olapp.Move(olfolder)


Set OLAppointment = Nothing
Set OLNS = Nothing
Set olapp = Nothing
End If


End Sub

 

[bibleguy125]

Anybody have an idea?

 

[bibleguy125]

Bump.

 

[bibleguy125]

Nobody?

 

[bibleguy125]

Bump.

 

[bibleguy125]

bump

 

[bibleguy125]

Bump

 

[bibleguy125]

I've gotten some help with this, but still having trouble with the syntax. Anybody have suggestions?
Adding an appointment to Outlook from Excel with VBA