I'm using the following coded to generated Outlook emails from Access. The output is in the format :
How would I remove the #mailto:Emily.Rosenb@abc?
On Error GoTo err
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strBody As String
Dim db As Database
Dim rs As Recordset
Dim emailcount As Long
emailcount = 0
Set OutApp = CreateObject("Outlook.Application")
Set db = CurrentDb
Select Case Me.EMAILTYPE
Case "Annual Training"
Set rs = Forms!frmAnnualTraining.Form.RecordsetClone
If rs.RecordCount = 0 Then
MsgBox "There are no reminders to create!", vbCritical, "Reminders"
Set rs = Nothing
Do Until rs.EOF
If Not IsNull(rs![EMPEMAIL]) And IsNull(rs![AETDATE]) Then
Set OutMail = OutApp.CreateItem(0)
.To = rs![EMPEMAIL]
.CC = ""
.BCC = ""
.Subject = Me.EMAILSUBJECT
.HTMLBody = Me.EMAILDESC
emailcount = emailcount + 1
If emailcount = 0 Then MsgBox "There are no employees without an Annual Training date for the calendar year." Else MsgBox "Created Alerts. Please review them and send."
DoCmd.Close acForm, "frmReminders"
MsgBox "Unable to create emails at this time. If problem persists, contact system administrator."