microsoft.public.access

correcto

Pieter

"Freehal04" wrote in message
news:3CA2CA90-4276-4AFA-ADD9-CD16250A95D2@microsoft.com...
> Okay, thanks. So I should change my email field from a hyperlink to a
> plain
> text field?
>
> "Arvin Meyer [MVP]" wrote:
>
>> Try this:
>>
>> Private Sub cmdEmail_Click()
>> Dim strMail As String
>> strMail = "#MailTo:" & Me.txtEMail & "#"
>> Application.FollowHyperlink HyperlinkPart(strMail, acAddress)
>> End Sub
>>
>> The above uses a plain text field and textbox (txtEmail) to mail from an
>> email address in the database. Three advantages:
>>
>> 1. Your problem is solved
>> 2. Larger file size of hyperlinks is eclipsed
>> 3. Less chance of corruption
>> --
>> Arvin Meyer, MCP, MVP
>> http://www.datastrat.com
>> http://www.mvps.org/access
>> http://www.accessmvp.com
>>
>>
>> "Freehal04" wrote in message
>> news:DC75A6E0-4A9A-4274-BB24-BDB6F01AC2A0@microsoft.com...
>> > So I tried to fix my hyperlink field for my email so it would add the
>> > 'mailto:' in front of what a user types in. Here's what I have.
>> >
>> > Private Sub Email_AfterUpdate()
>> > ' If you just type in an email name: Somebody@hotmail.com
>> > ' Access changes it to:
>> > Somebody@hotmail.com#http://somebody@hotmail.com#
>> > !!
>> > ' This code tries to fix it
>> > Dim intI As Integer
>> > ' Don't do anything if email is empty
>> > If IsNull(Me.PMemailAddress) Then Exit Sub
>> > ' Fix up http:// if it's there
>> > Me.PMemailAddress = Replace(Me.PMemailAddress, "http://", "mailto:")
>> > ' Now look for the first"#" that delimits the hyperlink display name
>> > intI = InStr(Me.PMemailAddress, "#")
>> > ' And put the person name there instead if found
>> > If intI > 0 Then
>> > Me.PMemailAddress = (Me.PMemailAddress + " ") & Me.LastName & _
>> > Mid(Me.PMemailAddress, intI)
>> > End If
>> > End Sub
>> >
>> > When I try to type something in I get a compile error "Method or data
>> > member
>> > not found. and it highlights the line before the End if,
>> > Mid(Me.PMemailAddress,intI)
>> >
>> > I don't get it. What's wrong.
>>
>>
>>