Email button out of MS Access

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Email button out of MS Access

Logged in as: Guest

arrSession:exec spGetSession 2,2,250

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Email button out of MS Access
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Email button out of MS Access - 7/6/2001 12:44:48 PM

skypius

Posts: 1
Score: 0
Joined: 7/6/2001
From:
Status: offline

I have listed a script below. It works to some extent. It is located in an MS Access form. Its purpose is to load Outlook with the email address in the Access form loaded into the Outlook email message "To" field. It runs Outlook but does not bring up the email message form. The Private Sub line appears to be the problem since it is red. Any help you can provide will be appreciated. Here's the code:

Option Compare Database
Private Sub POG Click()
'On Error GoTo Err_POG_Click

'Dim stApptName As String

'stAppName = "C:\Program Files\Microsoft Offlce\Office\OUTLOOK.EXE"
'Call Shell(stAppName, 1)

'Exit_POG_Click:
'Exit Sub

'Err_POG_Click:
'MsgBox Err.Description
'Resume Exit_POG_Click

End Sub

Private Sub POG_GotFocus()
If Not IsNul1(Me![EmailAddress]) Then Me! [POG] HyperlinkAddress = "Mailto:" & Me![EmailAddress]
End Sub