sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"


' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
' objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' cdoSendUsingPort
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="xxxx@emailadres.com"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="sifreni gir"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConfig.Fields.Update


' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="Adı <xxxx@email.com>"
objMail.ReplyTo="xxxx@email.com"
objMail.To="giden@eposta.com"
objMail.BodyPart.Charset = "windows-1254"
' objMail.BodyPart.CharSet = "iso-8859-9"
objMail.Subject="Konu"
' objMail.TextBody="ÜĞİŞÇÖığüişçö"
objMail.HTMLBody="Bilgiler içerik"
objMail.Send

set objMail=nothing