[AccessD] Automating Outlook from Access

[dw-murphy at cox.net]

If the only tool you have is a hammer, you will start treating all your
problems like a nail.

Would be much easier to just query the web database from Access and do the
required processing.

Doug
-----Original Message-----
From: AccessD <accessd-bounces+dw-murphy=cox.net at databaseadvisors.com> On
Behalf Of Jim Dettman via AccessD
Sent: Saturday, August 21, 2021 5:43 AM
To: 'Access Developers discussion and problem solving'
<accessd at databaseadvisors.com>
Cc: Jim Dettman <jimdettman at verizon.net>
Subject: Re: [AccessD] Automating Outlook from Access


 Actually, sounds like the long way around; the web site doesn't offer an
API?

 Scraping info from e-mails can be problematic, especially if you are not in
control of the message format.

Jim.

-----Original Message-----
From: AccessD On Behalf Of John Colby
Sent: Saturday, August 21, 2021 8:21 AM
To: Access Developers discussion and problem solving
<accessd at databaseadvisors.com>
Subject: [AccessD] Automating Outlook from Access

I am working on an app to process orders for a program.  A web site takes an
order, accepts payment, then sends an email containing the order info.
I need to receive the email, put email info into an email table, parse the
order info out of the email body, put the order into an Order table, pull
client info out of the order, place the client info into a client table,
then go back and tie the email and order to the client via a client id.

All of the outlook automation I learned from my best friend Google.  I'll
write up how I am doing this stuff for anyone interested. I am not an expert
and so any suggestions for how to do it better is good.  I will write a
handful of emails to detail the parts and pieces.  This is actual code I am
using

In order to automate Outlook I need to sink Outlook events as email comes in
which requires a class.  I create a plain old module to hold pointers to the
Outlook class:

Option Compare Database
Option Explicit

Private mclsOutlook As clsOfficeOutlook

Function cOl() As clsOfficeOutlook
    If mclsOutlook Is Nothing Then
        Set mclsOutlook = New clsOfficeOutlook
    End If
    Set cOl = mclsOutlook
End Function

Function cOlTerm()
    Set mclsOutlook = Nothing
End Function

--
John W. Colby
Colby Consulting
--
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