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