<% With Request If .Form("send") <> "" Then Call SendMail(.Form("email_from"), .Form("email_to"), .Form("email_subject"), .Form("telefon"), .Form("email_body")) Response.Write "Email Gönderildi -->  " & .Form("email_to") & "
(Formu tekrar doldurarak farklı bir konu gönderebilirsiniz)" End If End With %>

İsim:
Konu ve Telefon:
Lütfen bilgi almak istediğiniz konuyu açıklayınız ve e-mail adresinizi yazınız.

<% Sub SendMail(strFrom, strTo, strSubject, strtelefon, strMessage) Dim cdoConfig Dim objMail Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item("sendusing") = 2 .Item("smtpserver") = "127.0.0.1" .Item("smtpport") = "2500" .Update End With Set objMail = Server.CreateObject("CDO.Message") With objMail Set .Configuration = cdoConfig .From = strFrom .To = strTo .Subject = strSubject .Subject = strtelefon .TextBody = strMessage ' Or .HTMLBody = strMessage .Send End With End Sub %>