CDO, komma i navn

prøv med "\" ... = "Med \, Komma<komma@mail.no>"

Hvorfor "renser" du ikke adressen for alt det der står foran, så du kun har
  objMail.To = "komma@mail.no"
?

Private Function TOadress_short(TOadress_long As String) As String
  Dim lngStart As Long
  Dim lngEnd As Long
  On Error GoTo ErrorLabel
  lngStart = InStr(1, TOadress_long, "<") + 1
  lngEnd = InStr(lngStart, TOadress_long, ">")
  TOadress_short = Mid(TOadress_long, lngStart, lngEnd - lngStart)
  Exit Function
  ErrorLabel:
    TOadress_short = "SomeErrorOccured"
End Function

I programmet skriver du:

Dim adress as string
adress = "Med, Komma<komma@mail.no>"
objMail.To = TOadress_short(adress)

Jeg måtte til slutt fjerne navne-delen og kun sende e-post adressen.