Form Field open Default mail client

[ducecoop]

Access 2003

I have a field on my database that is for email address.

When I display that field on a form I would like it to be a Mailto: link and open up the users default mail client (assuming they use a local client and not web based email).

The field is self in the table is set to "hyperlink"

Is this form by form coding (In other words can I have it clickable on some forms and not on others?). I guess I could just lock the field on the forms I do not want it clickable.

Any help with this would be appreciated.

tia



Dave

[ajetrumpet]

check out the 'cursortype' property on forms. I think hyperlink fields default to 'hyperlink hand'. you can change it to an arrow i believe.

have you tried the common workarounds, such as making the field text and using coloring and underlining to fool the users? have you tried a followerhyperlink method or something with the phrase "mailto:" preceeding the email address as the address pointer?

[ducecoop]

Sorry Adam, Did not understand a thing you said - so I am guessing I was not clear in what I wanted.

I need a "Field" on a form to be clickable as a MailTo link

[ajetrumpet]

well your profile says you're using 2003, but hyperlinks were only intro'd in the 07 version, if I remember right. so I'm assuming you're on 07?

I just tried clicking an email in a form that already was in a hyperlink field and my email client opened up by default. isn't that what you want?

[ducecoop]

I am using 2003
Hyperlink is a Field "type" in the table.

However I have gone a different direction that I think will be fine.
Email fields have now been changed back to Text type

I have added a button on the only form that I want users to email from.

Coded as such:

Private Sub cmdEmailUSU_Click()
     Dim ToEmail As String
     Dim CCEmail As String
     Dim Subject As String
     Dim Message As String
     Dim Reply As String
     

   'Define Variables
   ToEmail = Me.USUEmail
'   CCEmail = Me.PersonalEmail
   Subject = "Regarding your XXXXXXXXX Email Account"
   Message = "Write your message here"
   
     'CHECK TO SEE IF Email Address exist entered first
    If IsNull(Me.PersonalEmail) Then
    Reply = MsgBox("A Personal email account for the user is not in the database" & vbLf & vbLf & _
    "Do you want to send to ONLY the University account?", vbQuestion + vbYesNo)
        If Reply = vbYes Then
        DoCmd.SendObject , , , ToEmail, , , Subject, Message, True
         End If
    Exit Sub
    Else
    CCEmail = Me.PersonalEmail
    DoCmd.SendObject , , , ToEmail, CCEmail, , Subject, Message, True

   End If
   
End Sub

unfortunately on the machine I am working at this moment I do not have a local email client (only web based) so I can't test to see if it works.
All the users of this will (i think) have a local client. maybe I should turn warning off just in case??

Thanks for your assistance

I am going to call this closed.

Dave