Solved

opening outlook calendar from access form

Posted on 2008-10-29
10
490 Views
Last Modified: 2013-11-27
I'm no longer going to preface questions with "is it possible" - cuz I now know that almost anything is!! what I need to know now is how complicated would it be to open ms outlook directly to the calendar from a command button on an access form; and, would this be possible on a multi-user (splid) database environment where it would be difficult to modify each user's version of access or outlook (supplying files would not be hard because i have front-end updater software that could deliver it... but modifying settings within office apps would not be so practical) thanks!!
0
Comment
Question by:jpomerantz
  • 5
  • 5
10 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
Comment Utility
Hi, jpomerantz.

It's not hard at all.  The code below opens the default calendar.  Add the code to a button's click event and you should be in business.
Const olFolderCalendar = 9

Dim olkApp, olkSes, olkFolder

On Error Resume Next

Set olkApp = GetObject(,"Outlook.Application")

If TypeName(olkApp) = "Nothing" Then

	Set olkApp = CreateObject("Outlook.Application")

	Set olkSes = olkApp.GetNameSpace("MAPI")

	'Change Outlook on the next line to the name of the default mail profile'

	olkSes.Logon "Outlook"

Else

	Set olkSes = olkApp.Session

End If

Set olkFolder = olkSes.GetDefaultFolder(olFolderCalendar)

olkFolder.Display

Set olkApp = Nothing

Set olkSes = Nothing

Set olkFolder = Nothing

Open in new window

0
 

Author Comment

by:jpomerantz
Comment Utility
WOW!! that is so cool :) I can't thank you enough!!! for some reason though, it opens the calendar - but only if outlook is already open. if outlook is not open, nothing happens.  is there something to add to it to get it to first open outlook?
0
 
LVL 76

Expert Comment

by:David Lee
Comment Utility
I included code to open Outlook if it isn't already open.  That's the code between the IF and ELSE.  Did you change the profile per the comment in the code?  Your profile may not be called Outlook.
0
 

Author Comment

by:jpomerantz
Comment Utility
I didn't change anything in it - just cut and pasted it... I'm sort of a newbie and don't know about profiles... how do I know what my profile is? I do know that the school has it's own exchange server - I remote in using a vpn but most users will be on the network in the building... is there a way to figure out what the profile should be?
thank you so much!!
0
 
LVL 76

Expert Comment

by:David Lee
Comment Utility
Here's how to check your profile name.

1.  Open the control panel
2.  Double-click the Mail icon
3.  Click the Show Profiles button
4.  Look at the "Always use this profile" selection at the bottom.  The name you see there is the name of the default profile.  It's typically "Outlook", but could be soemthing different.
0
How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

 

Author Comment

by:jpomerantz
Comment Utility
sure enough, the profile does say outlook... I wonder what is going on. I tried this on two computers and it's the same thing: if outlook is open already, the code opens the calendar - but if it's not - nothing happens.  any ideas?
I really appreciate this!!
0
 
LVL 76

Assisted Solution

by:David Lee
David Lee earned 500 total points
Comment Utility
Replace line #5 with the line below

If TypeName(olkApp) <> "Application" Then
0
 

Author Closing Comment

by:jpomerantz
Comment Utility
Works perfectly now!!! thank you so so so much :-)
0
 

Author Comment

by:jpomerantz
Comment Utility
that did it! I can't thank you enough :-)
0
 
LVL 76

Expert Comment

by:David Lee
Comment Utility
You're welcome.  Glad I could help!
0

Featured Post

Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

Join & Write a Comment

Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

763 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now