2008 Sunucularda cdo objesini nasıl kullanabileceğinizi aşağıdaki örnek kodlardan inceleyebilirsiniz.
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sHTMLBody
'Get data from previous page
sTo = Request("sTo")
sFrom = Request("sFrom")
sSubject = Request("sSubject")
sTextBody = Request("sTextBody")
sHTMLBody = Request("sHTMLBody")
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody
objMail.HTMLBody = sHTMLBody
'Send the email
objMail.Send
'Set sMsg which will be used later
sMsg = "Your message was sent to: " & sTo
'Clean-up
Set objMail = Nothing
End If
EgeDataCenter®, vermiş olduğu hosting paketlerini siz değerli müşterilerimizin...
Microsoft OLE DB Provider for ODBC Drivers error '80004005' [MySQL][ODBC 3.51...
Sunucularımızın tamamı İzmir lokasyonlu olup kendi bünyemizde barındırılmaktadır. Detaylar...
Şifreleriniz sizin güvenliğiniz için kesinlikle telefonla yada sistemde kayıtlı...
"error '8004020e' /gonder.asp, line xxx " Yukarıdaki hatayı alıyorsanız mail...
Küçük Çiğli mahallesi 8708/1 Sokak no:1/1 kat 2 D.4 Çigli-izmir
Telefon: +90 232 425 19 60 ( PBX )
Teknik Sorumlu: Mehmet Alkan
E-mail: info@egedatacenter.net