#Mailto

[Ultimateneo]

Hello i am using the code below, but when i have the email generated in outlook the to section has after the email address #mailto and part of the name. How do i get it to be just the email address in the to of the email?

Private Sub CurrentEmail_Click()
    Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")


Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Dear," & Me.CurrentFirstName & Me.CurrentLastName
oMail.Subject = "Test Subject"
oMail.To = Me.CurrentEmail
oMail.Display
Set oMail = Nothing
Set oApp = Nothing
End Sub

Thank you for any help provided much appreciated

[Micron]

Isn't this just a continuation of this thread?
https://www.accessforums.net/showthread.php?t=82264