Persist Mail - R10.net

10-10-2007, 01:04:43

Üyeliği durduruldu

Persits Mail İle Mail Gönderimi Not : (Sunucunuzda Bileşen Yüklü Olmalı)

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Mail Gönderimi</title>
</head>
<%
' strHost Genelde localhost olur
strHost = "localhost"
If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' Mail server
   Mail.Host = strHost
   Mail.From = Request("From") ' From address
   Mail.FromName = Request("FromName") ' Optional
   Mail.AddAddress Request("To")
   ' message subject
   Mail.Subject = Request("Subject")
   ' message body
   Mail.Body = Request("Body")
   strErr = ""
   bSuccess = False
   On Error Resume Next
   Mail.Send 
   If Err <> 0 Then
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If
%>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
<% = Request("To") %> Mail Gönderildi
<% End If %>
<FORM METHOD="POST" ACTION="?">
<TABLE width="397" CELLPADDING=2 CELLSPACING=0 BGCOLOR="#E0E0E0">
<TR>
   <TD>Gönderen Host :</TD>
   <TD><B><% = strHost %></B></TD>
</TR>
<TR>
   <TD>Gönderici Mail Adresi:</TD>
   <TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
   <TD>Gönderici ismi:</TD>
   <TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
   <TD>Gönderilecek Mail Adresi :</TD>
   <TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
   <TD>Mail Başlığı :</TD>
   <TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
   <TD>Mail Yazısı:</TD>
   <TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
   <TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="GONDER">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

10-10-2007, 23:22:50

#2

~~LineBilisim~~

paylaşım için teşekkürler
kurbanın mail adresi ne oluyor anlamadım ama

Kodları daha sadeleştirebilirsin..

11-10-2007, 09:49:06

#3

~~Tuncsoft~~

Üyeliği durduruldu

Başta mail bomber olarak yapmıştım sonra vazgeçtim normal mail gönderimi olarak yaptım ondan öyle kalmış "kurbanın mail adresi", düzenleyim tekrar yazıyı, kodlar gayet sade zaten.

14-10-2007, 23:30:49

#4

~~CeSuR~~

Üyeliği durduruldu

Kodlara şu ibarelerde eklenmediği takdirde bu şekilde yollanan mailler büyük ihtimalle pop3 mailler harici maillere ulaşmıyor.. yani hotmail, gmail vs.

Mail.Username = "mail@site.com"
Mail.Password = "mailiniz şifresi"

Ayrıca mailde türkçe karakter problemi olmaması için vede mail içeriğinde html kodlarının kullanılabilmesi içinde şu satırları eklemek gerekecektir..

Mail.IsHTML = True
Mail.Charset="windows-1254"

16-10-2007, 21:35:30

#5

~~Tuncsoft~~

Üyeliği durduruldu

Saol Cesur katkıların için, eklemeyi unutmuşum hatırlattın saol .

22-01-2008, 12:02:58

#6

paylasturka

Sayın Tuncsoft bu persist ile attach yada nasıl diim dosyada gonderebilioz mu?