sub sendmessage(adi,msg)

Dim ObjSendMail
Set ObjSendMail = Server.CreateObject("CDO.Message"


'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserver") = "your mail server"
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/sendusername") = "mail address"
ObjSendMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
ObjSendMail.Configuration.Fields.Update

'End remote SMTP server configuration section==
ObjSendMail.To = " "
ObjSendMail.Subject = adi&"is sending"
ObjSendMail.From = " "
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.TextBody = msg

ObjSendMail.Send
Set ObjSendMail = Nothing
End Sub



//////// help me! this function is not send unicode text ! //////

Hi !


This row set mail body

ObjSendMail.TextBody if you want text

ObjSendMail.HTMLBody if Html

Steweb

visit my website
www.steweb.net

i know,
my textbody is only text
but not send unicode text
for example:

msg = "щялфт нщкгл"

when send result
ЩЯЛФТ НЩКГЛ

whether you use UTF-8 !

I set you mail in html and insert

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

Ciao Steweb

visit my website
www.steweb.net

thanks for take an interest, but don't be again.
it's ASCII response be seen open with outlookexpress. good works. bye