[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