28. november 2003 - 16:03
Der er
2 kommentarer og
1 løsning
CDO, komma i navn
Halla,
Jeg har et problem med å opprette og sende e-poster hvor navnet inneholdet et komma.
Jeg benytter CDO for windows 2000 (CDOSYS).
Problemet skjer hvis jeg setter mottaker til noe slikt som:
Dim objMail As New CDO.Message
objMail.To = "Med, Komma<komma@mail.no>"
Det må jo være mulig å kunne sende e-poster selv om navnet inneholder komma. Jeg for forsøkt å sette fnutter og dobbeltfnutter (' og ") uten at hjalp noe.
Hvordan kan man unngå dette?
>Lars<
28. november 2003 - 23:37
#2
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)
