[thelist] CDO.Newmail UNICODE support?

Sam Carter sam at nativeintelligence.com
Tue Aug 26 22:44:10 CDT 2003


I've cobbled together a CDO email function that follows.
 
I need help to extend it to support UNICODE or UTF-8.
 
Sam
 
Function sendemail(strFrom, strTo, strCc, strBcc, strSubject, strBody)
Const cdoSendUsingPort = 2
Dim objMail
on error resume next
Set objConfiguration = CreateObject("CDO.Configuration")
Set objFields = objConfiguration.Fields
With objFields
       .Item(cdoSendUsingMethod) = cdoSendUsingPort
       .Item(cdoSMTPServerPort) = 25
       .Item(cdoSMTPServer) = "localhost"
       .Update
End With
 
Set objMessage = CreateObject("CDO.Message")
With objMessage
 Set .Configuration = objConfiguration
 .MimeFormatted         = False
 .AutoGenerateTextBody  = False
 .From  = strFrom
 .To   = strTo
 .Cc   = strCc
 .Bcc  = strBcc
 .Subject = strSubject
 .TextBody = strBody
 .Send
End With
 
SET objMessage = Nothing
SET objFields = Nothing
SET objConfiguration = Nothing
 
sendemail = ""
if err.number <> 0 then sendemail = "Send Email error number: " &
CSTR(err.number) & " description: " & err.description
End Function


More information about the thelist mailing list