#1  
Alt 06-02-2013, 11:26 PM
WO Üyesi
 
Üyelik tarihi: Jun 2013
Yaş: 27
Mesajlar: 81
Tecrübe Puanı: 484
Free STYLE is on a distinguished road
Standart Asp koduyla mail gönderme

Kod:
<% 

If request(“submit”) <> “” THEN 
Set objEMail = Server.CreateObject(“CDO.Message”) 
Set objConfig = Server.CreateObject(“CDO.Configuration”) 
Set Confi = objConfig.Fields 
Confi(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 1 
Confi(“http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory”) = “C:\inetpub\mailroot\pickup” 
Confi.Update 
Set objEMail.Configuration = objConfig 
objEMail.To = “your@emailaddress.com” 
objEMail.From = Request(“from”) 
objEMail.Subject = Request(“subject”) 
objEMail.TextBody = Request(“message”) 
objEMail.Send 
Set objEMail = Nothing 

Response.Write(“Message Sent”) 
Else 

%> 

<form method=”post” action=”this.asp”> 
From Email: <INPUT type=text name=”from”><br /> 
Subject: <INPUT type=text name=”subject”><br /> 
Message: <TEXTAREA name=”message” rows=10 cols=40></TEXTAREA><br /> 
<INPUT type=”submit” value=”Send” name=”submit”> 
</form> 

<% 
End If 
%>
Alıntı ile Cevapla
Cevapla

Bookmarks

Etiketler
asp, gönderme, koduyla, mail

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Forum Sosyal
Powered by vBulletin® Webster Edition
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1 ©2011, Crawlability, Inc.
- Forum

Tasarım : VampRens
Wmofisi.Com Her Hakkı Saklıdır