Hangi bileşeni kullanacaksın? Bu dahil; tüm genellemeler yanlıştır! Yolcu; Kendi Yolunda... Şükür biz Allahtan başka sahibi olmayanlarız!

FromEmail = "sunucumailin@mailin.com" FromName= "site sahibi" ToEmail="kime@kime.com" ToName="Sayın Üye" Subject="konuya yeni bir cevap var" Body="BUrdan grebilirsiniz:blablabla" sub MailSender on error resume next blnHTMLMail = True Select Case CDONTS 'MailTypeCase buraya bileşenini yaz sunucunun desteklediği mesela burdaki gibi cdonts eğer başka bir bileşen destekliyorsa onu yaz Case "jmail" set objNewMail = server. createobject objNewMail. charset = "windows-1254" objNewMail. From = FromEmail objNewMail. FromName = FromName objNewMail. AddRecipient ToEmail, ToName objNewMail. Subject = Subject objNewMail. HTMLBody = Body objNewmail. Send Set objNewMail = Nothing Case "CDONTS" Set objmail=Server. CreateObject objmail. From = FromEmail objmail. To = ToEmail objMail. BodyFormat=0 objMail. MailFormat=0 objmail. Subject = Subject objmail. Body = Body objmail. Sendset objmail= nothing Case "ASPmail" Set objNewMail = Server. CreateObject objNewMail. FromName = FromName objNewMail. FromAddress = FromEmail objNewMail. RemoteHost = site_smtp objNewMail. AddRecipient ToEmail, ToEmail objNewMail. Subject = Subject objNewMail. BodyText = Body SendOk = objNewMail. SendMail Case "ASPEmail" Set objNewMail = CreateObject objNewMail. Charset = "ISO-8859-9" objNewMail. Host = site_smtp objNewMail. Username = site_email objNewMail. Password = site_mailpass objNewMail. From = FromEmail objNewMail. FromName = FromName objNewMail. AddAddress ToEmail objNewMail. Subject = Subject objNewMail. Body = body objNewMail. IsHTML = TRUE objNewMail. Send Case "OCXmail" Set objNewMail = Server. CreateObject("ASPMail. ASPMailCtrl.1") SendEmail = objNewMail. SendMail Set objNewMail = Nothing Case "CDO" set objNewMail = server. createobject objNewMail. bodyPart. Charset = "windows-1254" 'objNewMail. BodyPart. CharSet = "iso-8859-9" objNewMail. From = FromEmail objNewMail. To = toEmail 'objNewMail. bcc =FromEmail objNewMail. HtmlBody = body objNewMail. Subject = subject with objNewMail. Configuration. Fields = 2. Fields = site_smtp. Fields = "25" . Fields. Update end with objNewMail. Send Set objNewMail = Nothing case "bamboo" Set objNewMail = Server. CreateObject objNewMail. Server = site_smtp objNewMail. Rcpt = toemail objNewMail. From = fromemail objNewMail. FromName = fromname objNewMail. Subject = Subject objNewMail. Message = Body objNewMail. Send Set objNewMail = Nothing End Select End sub bunu kendine gre düzenlersin hocam not: değişken isimlerinde ufak hatalar olabilir İnsan; insan olsaydı, insan olmazdı..

Hangi bileşeni kullanacaksın? smtp mobydick64 tarafından 28/Kas/12 21:17 tarihinde düzenlenmiştir ne mektup geliyor ne haber senden, syle de bileyim bıktın mı benden, her akşam güneşin battığı yerden, gzlerin doğuyor gecelerime...

persist kullansana hocam. :) <% icerik = "mesajj" mserv = "mailservisi" posta = " eposta" Set obj = Server. CreateObject obj. Host = mserv obj. From = eposta obj. AddAddress posta obj. Subject = "Yeni Mesaj Var Panpa." obj. Body = icerik obj. IsHTML = True on error resume next obj. Sendresponse. redirect set obj = Nothing%>

arkadaşlar asp sitem var. ben konularıma yazı yazıldığında maillede üyelerimin bilgilenmesini istiyorum bunu nasıl yapabilirimsitem www.superusak.com ne mektup geliyor ne haber senden, syle de bileyim bıktın mı benden, her akşam güneşin battığı yerden, gzlerin doğuyor gecelerime...