Access with OutLook Reminder or New Appotiment Capability

[oldmanbumper]

I have a page that has a series of dates. I am wondering if I could turn each label into a "button" or a "link" that would open up Microsoft Outlook and take that date to start a "New Appointment for me. Lets say 8:00 am - 8:30am by taking the date entered in the data below the label and using that date in Outlook. So I just click, click click and its all entered in.



In addition if could in the Title put the company name and address. I don't know if this far above what access can do. Asking to see how far I can take this.

[Minty]

Access using VBA and Outlook Automation can create Appointments, Meetings, Calendar entries, and even emails

There are sample codes knocking about, if you get utterly stuck post back and I'm sure we can track them down.

[mike60smart]

Hi
The attached is an Outlook Calendar created by Peter Hibbs & MajP

Just double Click on any date and it Pops up a Form for you to set the Appointment details

[Minty]

@ Mike - I think the OP wanted to create Outlook appointments not a Access calendar, but I could be wrong?

[Welshgasman]

@ Mike - I think the OP wanted to create Outlook appointments not a Access calendar, but I could be wrong?

That was my thoughts as well.

https://www.google.com/search?q=crea...hrome&ie=UTF-8

https://www.youtube.com/results?sear...ent+access+vba

[mike60smart]

Sorry my mistake

[DMT Dave]

Is it this kind of target ?

 Dim olobj As Object, oloappt As Object
Dim apptBody as String
Dim dtApptDate as Date, dtApptTime as Date

Set olobj = CreateObject("Outlook.Application") 
Set oloappt = olobj.CreateItem(olAppointmentItem)
    apptBody = "My Appointment:||" & TextLine1 or String & "||" & "Date: " & Format(dtApptDate, "dddd-dd-mmm-yyyy") & "||" & _
    "Time: " & Format(dtApptTime, "hh:nn")

    With oloappt
        .Start = Nz(dtAppttDate, "") & " " & Nz(dtApptTime, "")
        .subject = "Add Appointment Subject " & " " & "Appointment " & dtApptDate & " " & dtApptTime, these are 
        .ReminderMinutesBeforeStart = 10080
        .ReminderSet = True
        .Location = "Add Your Location"
        .Body = Replace(apptBody, "|", vbCrLf)
        .Save
        .Close (olSave)
    End With
Set olappt = nothing
Set olobj = Nothing

Hope this helps, as all guy's on here are so helpful to me, i am thinking this maybe a starting point

[Welshgasman]

Dave,
Does that actually work? as I thought you could not use object constants if late binding?

[DMT Dave]

@WGM, it's what i use for interviews, this is only the section to add the appt

i have sent some interviews out today using it and they are saved on my ol calendar, it pops up immediately to confirm the appointment.

the full code isn't pasted on here but thats the part that sets an app on ol, certainly works for me

[DMT Dave]

I didn't post date, time and mail body but that can be added by an inputbox or text box i guess

for me dtapptDate is an inputbox asking for appointment date
dtappttime is an input asking for appt time using 24hr clock
apptBody is a string something like:

Hello, having read your CV | = new line
i am pleased to offer you an interview on dtapptdate at dtappttime

[DMT Dave]

There is an email that goes out to the recipient prior to this, this is the part that saves to ol calendar