ups(Oops) gene yaptım! CDONTS

[kaşif]

Merhaba ;

Yeni sorularım olacağını söylemiştim.
Zaman zaman uğraştığım bir yazılım olsada bu güne dek çok şey yaptım asp ile. Ama gelin görün ki takıldığım yerler oluyor. Mesala Hakkı hocanın ASP kitapcıklarında ileri asp konusu olarak bahsedilen CDONTS .. Arkadaşın biri zamanında yazmıştı.Bende ona bakaraktan bişeyler yapmaya çalıştım..

Vallahi neyin ne olduğunu anladıysam ?? Kendi sitemden mail göndermem için çabalayıp duruyorum.
İstediğim Ziyaetçinin ;Adı Soyadı Mail adresi ve Mail yazacağı kısımdan oluşan ve içinde CDONTS elemanı bulunan bir form.

----------------------
Bu kısmı düzenledim( http://www12.brinkster.com/kasifbaba/cdontsmail.zip )

Kodu indirip bakınız!
-----------------


Şeklinde bir tane yazdım. Hani dedim ya anlamadım.. Bu işi baştan sona anlatırsanız sevinirim.. Ayrıca Bu kod BRİNKSTER.COM sitesinde denendi ve hata ile karşılaşıldı.. Tabi yakında paralı hostinge geçeceğim için lazım...

Biraz saçmaladım ama idare edin. Burada biri deliler gibi gitar çalıyorda ne yazdığımı bilemedim...

Sevgiler

[BERK]

Kodları tam inceleyecek vaktim olmadı ama Brinkster.com çalışmaması gayet normal, çünkü brinkster cdonts mail componentini desteklemiyr. Evindeki Makina XP yada 9x ise gene çalışmaz CDONTS bileşeni bu şekilde

[p4r4h4t]

HOCA kendine doğru dürüst bi SMTP server kursan ve aspemail kullansan daha iyi edersin.

[kaşif]

Bunu nasıl yapacağımı bir bilsem.. Stmp araştırdım hatta
http://www.aspemail.com/download.html adresten bir .exe dosyası indirdim ama.. Öfff ya ne kötü bunları bilmemek...

Buraya bu konuyu açmak bile çok sıkıntı verici. Çünkü yapamayınca birileri benim hazıra konmaya çalışan birisi olduğumu söylerse bu beni çok kırar...

anlıyorsunuz değil mi?

[BERK]

Evdeki makinanda mı çalıştırmayı düşünüyorsun? Yoksa bir serverda mı çalıştıracaksın?

Eğer serverda çalıştırmayı düşünüyorsan büyük ihtimal ile sana bir SMTP server yada bir component kurmaya izin vermiyeceklerdir, var olanı kullanmak zorunda kalacaksın, o yüzden önce serveri ve bu serverin ozelliklerini ogrenmen gerek

evde kullancaksan W2000 kurulu bir makinada bir IIS i kurarken SMTP server seçeneğininde seçili olduğuna emin ol, gerisini o halleder zaten

bir de tavsiye herzaman mail gonderme kısmını bir sub içinde tanımla ve heryerde bu sub ı yada fonksiyonu çağırarak kullan böylece component değiştirmek çok kolay olur

mesela benim

'#########################################

function SendMail3(ad,mail,kime,konu,mesaj)
Set mektup = Server.Createobject("CDONTS.NewMail")
mektup.From = ad & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.BodyFormat = 0
mektup.MailFormat = 0
mektup.Body = mesaj
on error resume Next
mektup.Send
If err <> 0 Then
SendMail=0
Else
SendMail=1
End If

Set mektup = Nothing
end function
function SendMail(ad,mail,kime,konu,mesaj)
Set Mail = CreateObject("CDO.Message")
Set Conf = CreateObject("CDO.Configuration")
Conf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Conf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "212.X.X.X"
Conf.Fields.Update
Set Mail.Configuration = Conf
Mail.To =kime
Mail.Subject = konu
Mail.HtmlBody = mesaj
Mail.From = mail
Mail.Send
Set Mail = Nothing
end function
'#########################################
'#########################################

function SendMail2(ad,mail,kime,konu,mesaj)
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true


msg.From = mail
msg.FromName = ad

msg.AddRecipient kime

msg.Subject = konu

msg.Body = mesaj


if not msg.Send("193.140.200.33" ) then
sendmail=0
else
sendmail=1
end if


end function


'#########################################

şeklinde 3 function ım var server değişince sadece bu fonksiyonlarin isimlerini değiştiriyorum o kadar

//vermemem gereken bir IP adresi vermişim onu düzelttim