Posting info from Access to Outlook Calendar

[Mitchy]

I currently use a db to track quotations by customer. Is there a way to link this data to an Outlook calendar so the quote number appears on the due date?

 

[Remou]

Hi
These may help:
MS Access data into MS Outlook calendar
thread707-1071525
How to Use Automation to Add Meeting Request to Microsoft Outlook
faq705-3667

 

[Mitchy]

Thanks for the tip. I am just a casual user and I am not familiar with writing my own code. In fact, I wouldn't even know how to apply this code. Is it too much for you to walk me through it? The only items I am dealing with in my query is a quote number and the date its due. I would like the quote number to show up on the due date in Outlook.

Thanks for your interest in my problem.

Greg

 

[Remou]

The code below is taken from:
Alarms in Access/Outlook
thread701 -775713
Please acknowledge Jonfer, if it suits. (You can blame me, if it does not )

Add a command button called SetAlarms to your form and paste the code below into the module. You will need to edit the part in blue to the proper names for the fields on your form.

Sub SetAlarms()

    Dim myOlApp As Object, myEvent As AppointmentItem
    Dim nsNameSpace As NameSpace, myFolderCalendar As MAPIFolder
    
    On Error GoTo err_Exit
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set nsNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolderCalendar = nsNameSpace.GetDefaultFolder(olFolderCalendar)
    
    Set myEvent = myOlApp.CreateItem(olAppointmentItem)
    myEvent.start = [blue]Me.StartDateTime[/blue] 'The due date and time field on your form
    myEvent.Subject = [blue]Me.QuoteNumber[/blue] 'The quote number field on your form
    myEvent.Save
        
    Set myOlApp = Nothing
    Set myEvent = Nothing
    Set myFolderCalendar = Nothing
    
    MsgBox ("Event created in your Outlook calendar.")
    
    Exit Sub
    
err_Exit:
    
    MsgBox ("Error " & Err.Number & ": " & Err.Description)
    
End Sub

 

[Remou]

That should be
Alarms in Access/Outlook
thread701-775713