Access 2000 Outlook 2007

[bh]

I'm trying to email from Access 2000 using the following:

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
Set objOutlookRecip = .Recipients.Add("Email addresses separated
by semicolons")
objOutlookRecip.Type = olTo
.Subject = "Whatever subject"
.Body = "Whatever message text"
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
.Display
End With

Set objOutlook = Nothing
SendMessage = True

This process always worked fine with Outlook 2000 and then Outlook 2003;
however, in Outlook 2007, I get an Error 287 (Object definition error). I
was using Outlook Library 11.0, previously, but now some users are using
Outlook 2007 instead of '03. When I put the program on a machine with 2007,
however, the Library 12.0 is showing as referenced in my code-behind
(appearing to have grabbed automatically)... The machine I actually
developed the app on has Outlook 2003, and only some of the users will have
2007, and I manually had chosen the 11.0 library. Any ideas on how to
resolve this would be helpful.

 

[Arvin Meyer [MVP]]

Your code looks OK and shouldn't need anything more than the new reference
unless there is a problem with permissions. Try the code on my website:

http://www.datastrat.com/Code/OutlookEmail.txt