[AccessD] Outlook Automation

[Daniel Waters]

Hi Rocky,

Good to know!  I don't think I've ever had to use late binding.

-----Original Message-----
From: AccessD <accessd-bounces+df.waters=outlook.com at databaseadvisors.com> On Behalf Of Rocky Smolin
Sent: 21 March, 2024 20:07
To: Access Developers discussion and problem solving <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Outlook Automation

Dan:

I can't use olMailItem because I'm using late binding. So until run time the comp doesn't know the properties and methods of the outlook object. So inserting olMainItem throws an undefined variable error. However olMailItem is an Outlook constant and its value is zero.

If I can't figure this out, I'll switch to early binding and any client that uses the app without having outlook installed will get a broken reference error when they try to run the app.

At the start of the module to create an email I have

    If CheckOutlook = False Then
        MsgBox "Outlook is not installed on this machine.  Import cancelled.", vbCritical
        Exit Sub
    End If

where CheckOutlook returns false if it's not installed:

Function CheckOutlook() As Boolean

Dim MiObj As Object

On Error Resume Next

    Set MiObj = CreateObject("Outlook.Application")

    If Err.Number <> 0 Then
        CheckOutlook = False
    Else
        CheckOutlook = True
    Set MiObj = Nothing

    End If

On Error GoTo 0

End Function


Just trying to make the app a little more user friendly. --> No good deed goes unpunished. :o)

r

On Thu, Mar 21, 2024 at 4:48 PM Daniel Waters <df.waters at outlook.com> wrote:

> In https://learn.microsoft.com/en-us/office/vba/api/outlook.mailitem 
> the way to set up an Outlook Item is
>
>         Set myItem = Application.CreateItem(olMailItem)
>
>         Your code is:
>         Set myItem = Application.CreateItem(0)
>
> Also:
> .Recipients would be for display names:
> Set myRecipient = myItem.Recipients.Add ("Jon Grande")
>
> -----Original Message-----
> From: AccessD 
> <accessd-bounces+df.waters=outlook.com at databaseadvisors.com>
> On Behalf Of Rocky Smolin
> Sent: 21 March, 2024 18:07
> To: Access Developers discussion and problem solving < 
> accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Outlook Automation
>
> Oops - forgot to add these two lines to my post:
>
>     Set myolApp = CreateObject("Outlook.Application")
>     Set myItem = myolApp.CreateItem(0)
>
> Those are probably important :o)
>
> Late Binding BTW.
>
> Thanks
>
> r
>
> On Thu, Mar 21, 2024 at 4:04 PM Daniel Waters <df.waters at outlook.com>
> wrote:
>
> > Hi Rocky,
> >
> > Have you set the variables to the Outlook App itself?  Look back in 
> > the code you cribbed from to find those.
> >
> > HTH!
> > Dan
> >
> > -----Original Message-----
> > From: AccessD
> > <accessd-bounces+df.waters=outlook.com at databaseadvisors.com>
> > On Behalf Of Rocky Smolin
> > Sent: 21 March, 2024 17:52
> > To: Access Developers discussion and problem solving < 
> > accessd at databaseadvisors.com>
> > Subject: [AccessD] Outlook Automation
> >
> > Dear List:
> >
> > I am trying to create an email through Automation using late binding 
> > (in case the target machine does not have access loaded; I check for 
> > that first and bail if no outlook).
> >
> > My DIMs:
> >
> > Dim myolApp As Object
> > Dim myItem As Object
> >
> > Code:
> > myItem.To = Me.fldTenantEmail
> > myItem.cc = "Kathy.Klein at arensgroup.com"
> > myItem.Subject = "Rent Increase Notice - " & Me.fldTenantCompany & " 
> > - " & me.fldTenantAddress & ", " & Me.fldTenantSuiteNumber
> >
> > The lines for .Subject and .CC work but Myitem.To fails with Method 'To'
> > of object '_MailItem' failed.
> >
> > Me.fldTenantEmail contains Armando at fallbrookirrigation.com
> >
> > If I substitute xx for Armando at fallbrookirrigation.com then it works.
> > I'm thinking it may have something to do with the special characters?
> >
> > But I have cribbed this code from another app that works.
> >
> > Any ideas?
> >
> > MTIA
> >
> > Rocky
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
https://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com