Mikrohosting.net – Hosting, Vps, Vds, Sanal Sunucu

Örnek cdo componentidir arkadaşlar inceleyip hazırlayabilirsiniz.

 

<%
Dim MyBody
MyBody = MyBody &“1.Satır   :<Br>” & vbcrlf Â
MyBody = MyBody &“2.Satır   :<Br>” & vbcrlf
MyBody = MyBody
Dim ObjSendMail
Set ObjSendMail = CreateObject(“CDO.Message” ) Â
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing” ) = 2
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserver” ) = “mail.siteadi.com”
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserverport” ) = 25 Â
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpusessl” ) = False
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout” ) = 60
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate” ) = 1
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusername” ) = “Site_Email@Adresi.com”
ObjSendMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendpassword” ) = “Sifreniz”
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = “Gonderen@Email_Adresi.com”
ObjSendMail.Subject = “Email Konusu”
ObjSendMail.From = “mikrohosting@adres.com”
ObjSendMail.HTMLBody = MyBody
ObjSendMail.SEnd
Set ObjSendMail = Nothing Â
%>