making the entries in e-mail field a hyperlink to send an e-mail in outlook

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • PurpleMuse
    New Member
    • Jan 2007
    • 1

    #16
    The simplest way I have done this is to attach a "Person" Smart tag to the Email field, the user then only needs to choose "email" from the smart tag options... you can use a simple text field (I usually use a blue underlined text, it is what people are used to seeing to identify email addresses. the smart tag does all the work for you.

    Is there any better benefit/reason for doing it through all that Mailto: code?

    Just curious.

    PM

    Comment

    • MMcCarthy
      Recognized Expert MVP
      • Aug 2006
      • 14387

      #17
      Originally posted by PurpleMuse
      The simplest way I have done this is to attach a "Person" Smart tag to the Email field, the user then only needs to choose "email" from the smart tag options... you can use a simple text field (I usually use a blue underlined text, it is what people are used to seeing to identify email addresses. the smart tag does all the work for you.

      Is there any better benefit/reason for doing it through all that Mailto: code?

      Just curious.

      PM
      It depends what version of Access the OP is using.

      Comment

      • jlcastrejon
        New Member
        • Feb 2007
        • 2

        #18
        I'd made some modifications to original code and after that i did adapt it to my form, this code is for a buton located beside the field that has the email adddres of my contact in the form, Note: this field has to be declared as TEXT not as hiperlink.
        The code is this

        Code:
        Private Sub Send_email_Pers__Click()
        On Error GoTo Err_Send_email_Pers__Click
        Dim To_ As String
        Dim Cc_ As String
        
        
        email_pers_.SetFocus
        To_ = email_pers_.Text
        email_Off_.SetFocus
        Cc_ = email_Off_.Text
        email_pers_.SetFocus
        
        DoCmd.SendObject , , , To_, Cc_, , , , , intSeeOutlook
        
        x = MsgBox("Email has been sent")
        
        Exit_Send_email_Pers__Click:
            Exit Sub
            
        Err_Send_email_Pers__Click:
            MsgBox Err.Description
            Resume Exit_Send_email_Pers__Click
        
        
        End Sub
        Any question please don't hesitate to ask
        best regards
        Jose Luis
        Last edited by MMcCarthy; Feb 15 '07, 06:34 AM. Reason: code tags

        Comment

        Working...