Omay Bilişim yardım - Mail ve POP3 Ayarları -
ASP Mail Script
<%
Set Mail = Server.CreateObject("dCCern.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 "can@cansp.net", "alıcı adı"
Mail.AddAddress "yunus@yunussp.com" ' İsim opsiyonel
Mail.AddReplyTo "hesap@ornek.com" 'OpsiyonelMail.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>dCCern Ö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="dCCern Bilgi"
Alici_Emaili="info@dccern.com"
Konu="Website İletişim Formu"
Kayitli_Email_Adresim=" info@dccern.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
'##################################################################
%>
Omay Bilişim T-(216) 416 96 25 F- (216) 416 96 25
