Asp De Mail Gönderme

28/Kas/12 20:16

Kısayol

Şikayet

Özel Mesaj

mobydick64

Kayıt Tarihi: 27/Mart/2007

arkadaşlar asp sitem var. ben konularıma yazı yazıldığında maillede üyelerimin bilgilenmesini istiyorum bunu nasıl yapabilirim

sitem www.superusak.com

ne mektup geliyor ne haber senden,söyle de bileyim bıktın mı benden,her akşam güneşin battığı yerden,gözlerin doğuyor gecelerime......

Alıntı yap

28/Kas/12 20:42

Kısayol

Şikayet

Özel Mesaj

_PesimisT_

Kayıt Tarihi: 27/Nisan/2008

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!

Alıntı yap

28/Kas/12 21:16

Kısayol

Şikayet

Özel Mesaj

mobydick64

Kayıt Tarihi: 27/Mart/2007

_PesimisT_ bunu yazdı

Hangi bileşeni kullanacaksın?

smtp

mobydick64 tarafından 28/Kas/12 21:17 tarihinde düzenlenmiştir

ne mektup geliyor ne haber senden,söyle de bileyim bıktın mı benden,her akşam güneşin battığı yerden,gözlerin doğuyor gecelerime......

Alıntı yap

28/Kas/12 21:29

Kısayol

Şikayet

Özel Mesaj

nickalti
Lightsaber

Kayıt Tarihi: 29/Ağustos/2012

FromEmail = "sunucumailin@mailin.com"
FromName= "site sahibi"
ToEmail="kime@kime.com"
ToName="Sayın Üye"
Subject="konuya yeni bir cevap var"
Body="BUrdan görebilirsiniz:blablabla"
sub MailSender(FromEmail,FromName,ToEmail,ToName,Subject,Body)
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("JMail.message")
objNewMail.charset = "windows-1254"
objNewMail.From = FromEmail
objNewMail.FromName = FromName
objNewMail.AddRecipient ToEmail,ToName
objNewMail.Subject = Subject
objNewMail.HTMLBody = Body
objNewmail.Send(site_smtp)
Set objNewMail = Nothing
Case "CDONTS"
Set objmail=Server.CreateObject("cdonts.newmail")
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("SMTPsvg.Mailer")
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("Persits.MailSender")
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(site_smtp, ToEmail, FromEmail, Subject, body)
Set objNewMail = Nothing 
Case "CDO"
set objNewMail = server.createobject("CDO.Message") 
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("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = site_smtp
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.Fields.Update
end with
objNewMail.Send 
Set objNewMail = Nothing
case "bamboo"
Set objNewMail = Server.CreateObject("Bamboo.SMTP")
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 göre düzenlersin hocam

not: değişken isimlerinde ufak hatalar olabilir

İnsan; insan olsaydı,insan olmazdı..

Alıntı yap

28/Kas/12 21:32

Kısayol

Şikayet

Özel Mesaj

nurk

Kayıt Tarihi: 15/Eylül/2006

persist kullansana hocam. :)

<%
        icerik = "mesajj"
        mserv = "mailservisi"
        posta = " eposta"
        Set obj = Server.CreateObject("Persits.MailSender")
        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.Send
response.redirect("default.asp")
        set obj = Nothing
%>

[22817//kaanabak]

Alıntı yap