Generate MS Outlook Task Based on Date Text Box in Access Form

**twinnyfo** · Aug 6 '12, 02:25 PM

bkyzer,

I don't know if creating a task is possible, but I know you can set up appointments in VBA. Here is some sample code to get started:

Code:

Option Compare Database
Option Explicit

Public Function CreateAppointment(SubjectStr As String, BodyStr As String, StartTime As Date, EndTime As Date, AllDay As Boolean)
On Error Goto EH
    Dim OlApp As Outlook.Application
    Dim Appt As Outlook.AppointmentItem
    Set OlApp = CreateObject("Outlook.Application")
    Set Appt = OlApp.CreateItem(olAppointmentItem)
    Appt.Subject = SubjectStr
    Appt.Start = StartTime
    Appt.End = EndTime
    Appt.AllDayEvent = AllDay
    Appt.BOdy = BodyStr
    Appt.Save
    Set Appt = Nothing
    Set OlApp = Nothing
    Exit Function
EH:
    MsgBox Err.Number & " " & Err.Description
    Exit Function
End Function

You would call this Function from elsewhere within your code like this:

Code:

Private Sub cmdButton_Click()
     CreateAppointment "John Test", "This is the body", Now(), Now + 1, True
End Sub

I hope this gets you pointed in the right direction.....

**bkyzer** · Aug 6 '12, 05:45 PM

Thanks for the insight. If Tasks are a no-go I'll try to go with this appointment option. I get that I need to put the subroutine behind my control, however, how do I need to build the Function that is your first set of code?

Thanks for the help as I'm self-taught one all of this and I wish I could do some formal training.

**twinnyfo** · Aug 6 '12, 05:56 PM

No problems.... I am completley self-taught, too. But, I do recommend taking some time to learn in a formal setting, as you will learn some of the basic principles of databases that you could only learn after much trial and error on your own....

For the first part of my code, I would place that in a separate module (I always have a module in my Access projects called modSystem, that contains all my public functions and subroutines). Then, on your form, you can set the addressees for the appointment and set other criteria for the appointment and have a command button on the form which executes the function as depicted in my second portion of code. All of the arguments for that code would be based on the text boxes on your form.

I hope this helps.