|
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mailscriptserver" ' Değiştirmeyiniz !!!
Mail.MailFrom = "hesap@domaininiz.com" 'Kendi domaininiz olması
zorunludur !!!
Mail.From = "hesap@domaininiz.com" ' Gönderenin adresi
Mail.FromName = "ornek" ' Gönderenin adı (opsiyonel-silinebilir)
Mail.AddAddress "ali@aliltd.net", "alıcı adı"
Mail.AddAddress "veli@veliltd.com" ' İsim opsiyonel
Mail.AddReplyTo "hesap@ornek.com" 'Opsiyonel
Mail.Subject = "Mail konu başlığı"
Mail.Body = "Sayın:" & Chr(13) & Chr(10) & _
"Teşekkür ederiz..."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
Örnek Kodlar Asagidadir;
default.asp içerigi;
<html>
<head>
<title>Persits Örnek Form</title>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1254">
</head>
<body>
<form name="form1" method="post" action="gonder.asp">
<table width="100%" border="1" class="nf"
cellspacing="0" cellpadding="4">
<tr> <td colspan="2">
<b> İletişim Formu<b><b><b> </b></b></b>
</b></td>
</tr><tr><td height="2" colspan="2"
bordercolor="#FFFFFF"></td>
</tr><tr valign="middle">
<td width="17%" height="35" bordercolor="#FFFFFF"> Ad
Soyad</td>
<td width="83%" height="35" bordercolor="#FFFFFF">
<input name="strad" type="text" id="strad"
value="" size="20">
</td></tr><tr valign="middle">
<td width="17%" height="35" bordercolor="#FFFFFF"> E-Mail
Adresi</td>
<td width="83%" height="35" bordercolor="#FFFFFF">
<input name="stremail" type="text" id="stremail"
value="" size="20">
</td></tr><tr valign="middle">
<td width="17%" height="35" bordercolor="#FFFFFF"> Telefon</td>
<td width="83%" height="35" bordercolor="#FFFFFF">
<input name="strtel" type="text" id="strtel"
value="" size="20" maxlength="11">
</td></tr><tr>
<td width="17%" height="25" valign="top"
bordercolor="#FFFFFF"><br> Mesajınız</td>
<td width="83%" height="25" valign="top"
bordercolor="#FFFFFF"> <br>
<textarea name="strmesaj" cols="30" rows="5"
wrap="VIRTUAL" id="strmesaj"></textarea>
<br> <br> <input name="strgonder"
type="submit" id="strgonder" value="Gönder">
<input type="reset" name="Submit2" value="Sil">
<br>
</td></tr>
</table>
</form>
</body>
</html>
gonder.asp içerigi;
<%
'##################################################################
Dim strad,stremail,strtel,strmesaj
'------------- FORMDAN GELEN BILGILERI ALIYORUZ
strad=trim(Request.Form("strad"))
stremail=trim(Request.Form("stremail"))
strtel=trim(Request.Form("strtel"))
strmesaj=trim(Request.Form("strmesaj"))
'------------- BILGILER YUKARIDA SAKLANDI
'##################################################################
'------------- KENDIMIZE AIT BILGILERI YAZIYORUZ
Dim Alici_Adi,Alici_Emaili,Konu,Kayitli_Email_Adresim,Eksik_Bilgi,Gonderildi
'------------- Not: Lütfen sadece çift tirnak içerisindeki bilgileri degistiriniz.
Alici_Adi="Kriweb Bilgi Formu"
Alici_Emaili="bilgi@kriweb.com"
Konu="Website İletişim Formu"
Kayitli_Email_Adresim="bilgi@kriweb.com" 'Buradaki email kendi
domaininize ait olmak zorundadir.
Eksik_Bilgi="Bilgileriniz Yetersiz Lütfen Formu Doldurmak icin Geri
Dönünüz."
Gonderildi="Formu Doldurduğunuz için tesekkür ederiz."
'##################################################################
'##################################################################
'------------- ASAGIDAKI BILGILERI DEGISTIRMEYINIZ --------------
IF trim(Request.Form("strad"))<>"" and trim(Request.Form("stremail"))<>""
and trim(Request.Form("strmesaj"))<>"" THEN
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mailscriptserver" ' Degistirmeyiniz !!!
Mail.MailFrom = Kayitli_Email_Adresim
Mail.From = stremail
Mail.FromName = strad
Mail.AddAddress Alici_Emaili, Alici_Adi
Mail.AddReplyTo stremail, strad
Mail.isHTML = True
Mail.Subject = Konu
Mail.Body = "<font face='verdana' size='3'>" & strmesaj
& "<br><br> Tel : "& strtel & "</font><br>"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Response.Write("<font face='verdana' size='2' color=red>"&Gonderildi&"</font>")
ELSE
Response.Write("<font face='verdana' size='2' color=red><a
href='javascript:history.go(-1)'>"&Eksik_Bilgi&"</font></a>")
END IF
'##################################################################
%>
|
Asp E-Mail