0
Kayıt Ol

formmail gibi mail atabilme

3

●

621

  • 07-03-2008, 16:44:40
    #1
    apridev
    apridev
    merhaba arkadaşlar;

    bana öyle bi kod lazım ki kişi site üzerinden aynı formmail gibi istediği mail adresine mail atabilmeli. Host bileşenim CDOSYS destekliyor. Yardımcı olursanız sevinirim...
  • 12-03-2008, 01:22:16
    #2
    Tuncsoft
    Tuncsoft
    Üyeliği durduruldu
    ASPindir.com da örnek uygulama bulabilirsin
  • 24-03-2008, 01:43:06
    #3
    Tuncsoft
    Tuncsoft
    Üyeliği durduruldu
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!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önderme</title>
</head>

<body>
<form action="" method="post">
<table width="60%" border="0" align="center">
  <tr>
    <td width="31%">Gönderen Kişi Mail Adresi </td>
    <td width="2%">:</td>
    <td width="67%"><input name="gonderenmail" type="text" id="gonderenmail" /></td>
  </tr>
  <tr>
    <td>Alıcı Kişi Mail Adresi </td>
    <td>:</td>
    <td><input name="alicimail" type="text" id="alicimail" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Mail Konusu </td>
    <td>:</td>
    <td><input name="mailkonusu" type="text" id="mailkonusu" /></td>
  </tr>
  <tr>
    <td>Mail İçeriği </td>
    <td>:</td>
    <td><textarea name="icerik" cols="40" rows="7" id="icerik"></textarea></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value=" GÖNDER " /></td>
  </tr>
</table>
</form>
<%
IF REQUEST.ServerVariables("REQUEST_METHOD")="POST" THEN
'Post Edilince Çalışacak


'Code By FATIH [ TUNCSOFT ]
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' SMTP Ayarları
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
' CDOSYS Ayarları
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Trim(Request.Form("gonderenmail"))
objCDOSYSMail.To = Trim(Request.Form("alicimail"))
objCDOSYSMail.Subject = Trim(Request.Form("mailkonusu"))
objCDOSYSMail.HTMLBody = Trim(Request.Form("icerik"))

' Gönder
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

If Err.Number <> 0 Then
Response.Write ("Mail Gönderilemedi")
Else
Response.Write("<h2>Mail Gönderildi</h2>" )
End If




'Tamam
END IF
%>
</body>
</html>

    Araştırma yapmayı bilmeyip bide abuk subuk cevap yazan adamlar için oturup kodlama yapıyorum.

    Al yukardaki kodları kullan
  • 29-03-2008, 02:24:28
    #4
    maniaccoder
    maniaccoder
    Üyeliği durduruldu
    Tunçsoft eline sağlık kod canavar da, server da relay kurulu ise çalışmıyor (denedim)

    Kodu deneyip de çalıştıramayacak olan arkadaşları uyarıyım diye yazdım. Yoksa kod süper çalışıor. Relayi kapatırsan