• 7 / 24 Müşteri Hizmetleri
  • +90 (232) 425 19 60

CDO - Cdonts

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

Bu cevap yeterince yardımcı oldu mu?

 Bu dökümanı yazdır

Aşağıdaki Bilgiler İlginizi Çekebilir

Hostingime erişemiyorum ne yapmalıyım?

EgeDataCenter®, vermiş olduğu hosting paketlerini siz değerli müşterilerimizin...

MySQL - Max. User Connection Hatası

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [MySQL][ODBC 3.51...

Sunucularınız Nerede?

Sunucularımızın tamamı İzmir lokasyonlu olup kendi bünyemizde barındırılmaktadır. Detaylar...

Plesk Şifremi Unuttum

Şifreleriniz sizin güvenliğiniz için kesinlikle telefonla yada sistemde kayıtlı...

ASP Mail error 8004020e

"error '8004020e' /gonder.asp, line xxx " Yukarıdaki hatayı alıyorsanız mail...

Bize Ulaşın


Egedatacenter Bilişim Teknolojileri San. Tic. LTD. ŞTİ.

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

Web: www.egedatacenter.net

Copyright © 2016 Egedatacenter® & EnerjiDizayn. Tüm Hakları Saklıdır