?
Solved

Access VBA - insert record data into Outlook calendar based on date

Posted on 2009-05-14
5
Medium Priority
?
1,397 Views
Last Modified: 2012-05-07
Hi

I have an Access table that contains three columns: "Date", "Time", "Description".
I want to use Access VBA to loop through the records and add each record
to the correct date (based on the "Date" field) at the correct time (based on the "Time" field). I want to then add the description to this calendar entry (based on the "Description" field.
Thank you
0
Comment
Question by:Murray Brown
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 7

Expert Comment

by:shambalad
ID: 24404468
Try the attached code.
Todd

Sub CreateCalendarItem(strSubject As String, strDate As String, strTime As String)
   Dim olkAppt As Outlook.AppointmentItem
   Dim OlkApp As Outlook.Application
   Dim dte As Date
   
   ' Must add Outlook to references for this to work
   dte = CDate(strDate & " " & strTime)
   
   Set OlkApp = New Outlook.Application
   With OlkApp
      Set olkAppt = .CreateItem(Outlook.OlItemType.olAppointmentItem)
      With olkAppt
         .Start = dte
         .Subject = strSubject
         .ReminderSet = False
         olkAppt.Save
      End With
   End With
   
   ' Clean up.
   Set OlkApp = Nothing
   Set olkAppt = Nothing
End Sub
 
Sub testCreateCalendarItem()
   Dim strSubject As String, strDate As String, strTime As String
   strSubject = "Create Menu Item in VBA"
   strDate = "5/20/2009"
   strTime = "8:30:00 PM"
   CreateCalendarItem strSubject, strDate, strTime
End Sub

Open in new window

0
 
LVL 7

Accepted Solution

by:
shambalad earned 2000 total points
ID: 24404482
The attached incorporates the VBA loop to read through the table. It also creates the Outlook object in the calling sub.
Todd

Sub LoadCalendarItems()
   Dim OlkApp As Outlook.Application
   Dim strSubject As String
   Dim rst As DAO.Recordset
   Dim db As DAO.Database
   Dim strDate As String
   Dim strTime As String
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset("MyTable")
   Set OlkApp = New Outlook.Application
   With rst
      Do Until .EOF
         strDate = .Fields("Date")
         strTime = .Fields("Time")
         strSubject = .Fields("Description")
         CreateCalendarItem OlkApp, strSubject, strDate, strTime
         .MoveNext
      Loop
      .Close
   End With
 
   ' Clean up.
   Set OlkApp = Nothing
   Set rst = Nothing
   Set db = Nothing
End Sub
 
Sub CreateCalendarItem(OlkApp As Outlook.Application, _
            strSubject As String, strDate As String, _
            strTime As String)
   Dim olkAppt As Outlook.AppointmentItem
   Dim dte As Date
   
   ' Must add Outlook to references for this to work
   dte = CDate(strDate & " " & strTime)
   
   With OlkApp
      Set olkAppt = .CreateItem(Outlook.OlItemType.olAppointmentItem)
      With olkAppt
         .Start = dte
         .Subject = strSubject
         .ReminderSet = False
         olkAppt.Save
      End With
   End With
   
   ' Clean up.
   Set olkAppt = Nothing
End Sub

Open in new window

0
 

Author Closing Comment

by:Murray Brown
ID: 31581815
Many thanks Todd.Great answer!
0
 
LVL 2

Expert Comment

by:hgj1357
ID: 25093977
How can you get a warning that Outlook isn't running? This code requires Outlook to be running, right?
0
 
LVL 2

Expert Comment

by:hgj1357
ID: 25094002
My mistake! It just takes a few seconds to show up if the event was added with Outlook not running.

How would I add a contact? That would be pretty awesome!
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
We live in a world of interfaces like the one in the title picture. VBA also allows to use interfaces which offers a lot of possibilities. This article describes how to use interfaces in VBA and how to work around their bugs.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

719 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question