ASP ile mail göndermek için sistemimizde component bulunması gerekir.IIS ile hazır bir component gelir. Ancak sorun yaşayabilirsiniz.Sitenizin bulunduğu serverda hangi mail componentinin bulunduğunu öğrendikten sonra eğerCDOSYS komponenti varsa, mail göndermek için gerekli kod:
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 %>