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

Darren - Active Billing darren at activebilling.com.au
Mon Sep 28 20:32:44 CDT 2009


Hi John

There are heaps of ways to do this
I like using Mailto: when there is not need to get fancy
Using Mailto: and shelling to it does a lot of the basics and will open the
'default' email client for that pewta

EG try this in START|RUN of XP

	mailto:jw at someServer.com?subject=testing

And then try this in a VBA module
````````````````````````````````````````````````````````````````````````
Private Sub cmd_SendSimpleMailtoEmail_Click()

Dim strRecipient As String
Dim strSubject As String
Dim strFullStringToPass As String


strRecipient = "jw at someServer.com"
strSubject = "Just testing"
strFullStringToPass = "mailto:" & strRecipient & "?subject=" & strSubject

Debug.Print strFullStringToPass

Call ShellExecute(hwnd, "open", strFullStringToPass, vbNullString, vbNullString,
SW_SHOWNORMAL)

End Sub
````````````````````````````````````````````````````````````````````````
Hope this helps

Darren


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Tuesday, 29 September 2009 10:55 AM
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