[AccessD] Open an email (to send) in Access

Rocky Smolin rockysmolin at bchacc.com
Mon Sep 28 21:22:44 CDT 2009


John:

I use     

Dim myolApp As Outlook.Application
Dim myItem As Outlook.MailItem

    Set myolApp = CreateObject("Outlook.Application")

    Set myItem = myolApp.CreateItem(olMailItem)
    
    myItem.To = Me.fldCustomerEmail
    myItem.Display
 
HTH

Rocky

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Monday, September 28, 2009 5:55 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Open an email (to send) in Access

Does anyone have any code that will open outlook if it isn't already and
then open an email for send, placing an email address in the To:

I have code for opening Outlook and automatically sending the email but not
to open the email and allow the user to fill it in.  I can go figure it out
but if you have it...

--
John W. Colby
www.ColbyConsulting.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list