Can't Open Outlook From Access With Simplest Code

**Soule** · 12-20-2011, 07:32 PM

I'm going to scream so loud my desktop monitor screen won't survive...

I cannot get these simplest of test codes to execute. I'm just trying to open Outlook using vb code behind a button on an Access form.

1) Dim olApp As Outlook.Application
Set olApp = New Outlook.Application

OR

2) Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

I added both the "Microsoft Access 12.0 Object Library" and "Microsoft Outlook 12.0 Object Library" to my References.

All relevant Visible properties are set to "yes".

Both code versions run without errors (my F8/Step Into debugging feature not working is another issue; I have the Special Keys in Options checked.

)....but Outlook doesn't open.

Nothing is working. How could a two line block of code not work. Only Microsoft could make that a reality.

Please rescue me from this limbo before I'm awarded a digital limbotamy.

**June7** · 12-20-2011, 08:15 PM

I expect that Outlook is open, just not visible. Set a breakpoint after the Set line, run procedure, when it stops on the breakpoint, check Windows Task Manager to see if Outlook is listed under Processes but not Applications. This works for me:

Code:

Public Sub TestEmail()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = "email address"
    ''.cc = ""
    ''.bcc = ""
    .Subject = "HTML TEST"
    .HTMLBody = "<HTML><body>" & _
                "<font color='red'>This is a test</font>" & _
                "<body><HTML>" & _
                Chr(10) & Chr(13) & Now
    ''.Attachments.Add (strZip)
    .DeleteAfterSubmit = True 'to not save in sent bin
    .Display
    .Send
End With
End Sub

Can't Open Outlook From Access With Simplest Code

Thread Tools

Can't Open Outlook From Access With Simplest Code

Similar Threads

FORMATTING Outlook Email in BODY of Access code

Simplest conversion of Excel nested 'If' statements to Access VBA

Open Outlook window but don't send

Open Outlook & populate e-mail

Code to check if form1 is open, then open then opoen form 2

Posting Permissions