Yaseminfm Flatcast Yardım Destek Sitesi

ASP ile Mail gönderme.

Önceki başlık Sonraki başlık Aşağa gitmek

ASP ile Mail gönderme.

Mesaj tarafından 10uR Bir Perş. Haz. 04, 2009 11:01 am

Mail gönderme işlemini gerçekleştirecek mail nesneleri kullanımı bildiğiniz üzere bileşene göre değişiyor. Mail bileşeninizi ve mail formatınızı seçerek istediğiniz tarzda mailleri ASP bileşenleri aracılığı ile gönderebilirsiniz.

<------------- mail.asp ----------------->

<% @ Language="VBscript" %>
<% Option Explicit %>
<%
' ASP ActiveX Mail Bileseni Nesnesi (CDONTS, Persits, ASPEmail)
' 16.01.2005 - Sunday
' deathrole[at">msn[dot">com
' ASP Rehberi - www.asprehberi.net

'Hata olursa bir sonraki satirdan devam et.
On Error Resume Next

Dim COMType 'Kullanilacak olam mail bileseni. KULLANACAGINIZ BILESENIN BASINDAKI "'" KALDIRIN !!!
Dim objMail 'Mail göndermemizi saglayan sunucu nesnesi
Dim blnHTMLMail 'Mailin HTML/Text formati
Dim strBody 'Gönderilecek mesaj
Dim YourName 'Nesneye ait gönderenin adi
Dim FromEmail 'Nesneye ait gönderen mail adresi
Dim ToEmail 'Nesneye ait giden mail adresi
Dim MailServer 'Nesneye ait mail sunucusu
Dim MailSubject 'Nesneye ait mail konusu
Dim MailBody 'Nesneye ait mail mesaji

'Degiskenlere degerlerini veriyoruz
'Bilesen seçimini yapin
COMType = "CDONTS"
'COMType = "Persits"
'COMType = "ASPEmail"
blnHTMLMail = True
strBody = "

Deneme Yazısı

"
YourName = "Deathrole"
FromEmail = "user"
ToEmail = "mail@domain.com"
MailServer = "mail.domain.com"
MailSubject = "Mail Konusu"
MailBody = strBody


'Mail bilesenimize göre nesnemizi olusturmamiza yardimci olan select ifadesi ile sinama islemi yapiyoruz.
Select Case COMType

'Eger bilesen CDONTS ise,
Case "CDONTS"

'Nesnemizi olusturalim
Set objMail = Server.CreateObject("CDONTS.NewMail")

'Nesnemizin özelliklerini belirliyoruz.
With objMail
If blnHTMLMail then
.MailFormat = HTML
.BodyFormat = HTML
Else
.MailFormat = Text
.BodyFormat = Text
End If
.From = YourName & " <" & FromEmail & ">"
.To = ToEmail
.Subject = MailSubject
.Body = MailBody
.Send
End With


'Eger bilesen Persits ise,
Case "Persits"

'Nesnemizi olusturalim
Set objMail = Server.CreateObject("Persits.MailSender")

'Nesnemizin özelliklerini belirliyoruz.
With objMail
If blnHTMLMail then
.IsHTML = True
Else
.IsHTML = False
End If
.From = FromEmail
.FromName = YourName
.Host = MailServer
.Subject = MailSubject
.Body = MailBody
.Send
End With


'Eger bilesen ASPMail ise,
Case "ASPMail"

'Nesnemizi olusturalim
Set objMail = Server.CreateObject("SMTPsvg.Mailer")

'Nesnemizin özelliklerini belirliyoruz.
With objMail
.FromAddress = FromEmail
.FromName = YourName
.RemoteHost = MailServer
.AddRecipient = ToEmail
.Subject = MailSubject
.BodyText = MailBody
.SendMail
End With
End Select

'Nesnemizi kaldiriyoruz.
Set objMail = Nothing
%>

<----------------------------------------->

_________________

avatar
10uR
Site Sahibi
Site Sahibi

Kova
Yaş : 33
Nerden : SAMSUN
Mesaj Sayısı : 226
Mesaj Rep : 610
Kayıt tarihi : 29/05/09
Doğum tarihi : 01/02/84
İş/Hobiler : Hiçbişey

Ekstra
Kişisel İleti / Not Defteri:

http://flatcast.benimforum.org

Sayfa başına dön Aşağa gitmek

Önceki başlık Sonraki başlık Sayfa başına dön

- Similar topics

 
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz