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?
Code:
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