Software

Ask something
Discussion Locked

Auto import database to outlook calendar

0 helpful
7 replies

by curtisadmin

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.
I am using Outlook 2003 SP2 and Access 2003 SP2. I would like to create a macro or button in Outlook that will import Service Call info from the Access database into the calendar. I already know how to run the Import using the menus and dialog boxes. I would just like to automate this with a button or key combo. I don't have any experience with Visual Basic. If there is a script I can download or copy, that would be most helpful. Thanks!

7 replies

by curtisadmin

I do not have an answer yet. My e-mail is curtisadmin@illicom.net. Any help would be greatly appreciated.

by eric.goberman

I tried the samething and looked at what it would take in VB (with little VB experience) to figure this out.

I ended up using AUTOIT..

I create what ever appointment I want.. in the CSV format..

Outlook is usally open.. I point to the calendar

I run a 'macro' from autoit..and it does the keystrokes and nouseclicks in Outlook..just as one would do in EXCEL.

Download/install.. to completion of macro.. under 1 hour

by kmcnutt

This should get you started. It will require you to use some VBA though.

This goes into a module.

Public Sub ToOutLookCalendar(ByVal Subject As String, ByVal EventStart As Date, ByVal EventEnd As Date)
On Error GoTo errTrap
Dim oApp As New Outlook.Application
Dim oCalendar As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oCalendar = oNameSpace.GetDefaultFolder(olFolderCalendar)
With oCalendar.Items.Add(olAppointmentItem)
.AllDayEvent = True
.Subject = Subject
.Start = EventStart
.End = EventEnd
.ReminderSet = False
.Save
End With
Err_Exit:
Set oCalendar = Nothing
Set oNameSpace = Nothing
Set oApp = Nothing
Exit Sub
errTrap:
'Code to handle errors goes here
Resume Err_Exit
End Sub

Then this can go on your form:

Private Sub cmdOutlook_Click()
On Error GoTo errTrap
Dim oApp As New Outlook.Application
Dim oCalendar As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oCalendar = oNameSpace.GetDefaultFolder(olFolderCalendar)
With oCalendar.Items.Add(olAppointmentItem)
.AllDayEvent = True

.Subject = Me.Summary ' Name of your field for the subject
.Start = Me.Begin ' name of your field for start time
.End = Me.End_Due_Date ' name of your field for start time
.ReminderSet = False
.Save
End With
Err_Exit:
Set oCalendar = Nothing
Set oNameSpace = Nothing
Set oApp = Nothing
Exit Sub
errTrap:
'Code to handle errors goes here
Resume Err_Exit
End Sub

Again this should get you started. There are other fields you can map, just search the help or google.

Oh, one last thing. Make sure you reference the Outlook Object Library under Tools;References in the VBA Editor. Just in case... You can bring up the VBA editor by pressing Alt+F11. Though if you didn't already know that, you probably won't want to mess with this.

Kevin

by nick.mosher

Kevin -
I appreciate your response. This was exactly what I was looking for. Now for a silly question. I'd like to map this to a different calendar in outlook other than the default. How would I change to code to do that?

Thanks, Nick

This discussion is closed to new replies.