Stuart McLachlan
stuart at lexacorp.com.pg
Mon Sep 28 23:09:49 CDT 2009
Something like Private Sub txtEmail_Click() DoCmd.SendObject , , , txtEmail, , , , , True End Sub -- Stuart On 28 Sep 2009 at 21:53, jwcolby wrote: > Well... > > On that note, can I make the email address a hyperlink in a normal text box and use this somehow? > They really want the email to just be a hyperlink which when they click on it causes the email > client to open with that email in the To: > > John W. Colby > www.ColbyConsulting.com > > > Darren - Active Billing wrote: > > 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... > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com