View Full Version : کمک Jmail & ASPMAIL
mostafa
چهارشنبه 01 بهمن 1382, 01:07 صبح
سالم :D
من کد کامل @JMAIL@ , @ASPMAIL@ رو نیاز دارم..
میدونم تو نت هست! ولی کار نمیکنه.. لطفا یه نسخشو بدین که خودتونم امتحان کردین!
!! سرورم این 2 کامپوننت رو پشتیبانی میکنه!
ویولت
جمعه 17 بهمن 1382, 11:26 صبح
کافیه یه فرم بسازید که
body
subject
name
email
رو با Action=send.asp به send.asp بفرسته
و می تونید هر میل کامپوننتی رو که می خواهید از حالت مارک خارج کنید
send.asp
<%
Dim Body,Subject
Dim YourEmail, FromEmail
Dim FromName, Mailserver
Dim EmailType
YourEmail = "info@yoursite.com" '
Mailserver = "mail.yoursite.com" '
'EmailType ="ASPmail"
'EmailType ="cdonts"
EmailType ="jmail"
'EmailType ="ASPEmail"
'EmailType ="OCXMail"
'Request the form elements from the last page
Body = request.form("body")
Subject = request.form("subject")
FromName = request.form("name")
FromEmail = request.form("email")
' Now lets send the email by using the include file
%><!--#include file ="email-functions.asp"--->
email-functions.asp
<%
' ASPMail sender
on error resume next
Select case emailtype
case "ASPmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = FromName
objNewMail.FromAddress = FromEmail
' the mail server goes below
objNewMail.RemoteHost = MailServer
objNewMail.AddRecipient YourEmail, YourEmail
objNewMail.Subject = Subject
objNewMail.BodyText = Body
SendOk = objNewMail.SendMail
case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
'on error resume next '## Ignore Errors
objNewMail.Send FromEmail, YourEmail, Subject, Body
case "jmail"
set objNewMail = server.createobject("JMail.SMTPMail")
objNewMail.Sender = FromEmail
objNewMail.ServerAddress = MailServer
objNewMail.AddRecipient YourEmail
objNewMail.Subject = Subject
objNewMail.Body = body
objNewMail.execute
case "ASPEmail"
Set objNewMail = CreateObject("Persits.MailSender")
objNewMail.From = FromEmail
objNewMail.Host = MailServer
objNewMail.AddAddress YourEmail
objNewMail.Subject = Subject
objNewMail.Body = body
objNewMail.Send
case "OCXmail"
Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
SendEmail = objNewMail.SendMail(MailServer, YourEmail, FromEmail, Subject, body)
Set objNewMail = Nothing
end select
'response.write err.number
%>
Vahid_Nasiri
جمعه 17 بهمن 1382, 20:21 عصر
جناب ویولت عزیز :wink:
برای اینکه کدها صحیح نمایش داده شوند تمام آنها را select کنید و سپس روی دکمه ی code کلیک نمایید. به این صورت از چپ به راست بودن کدها هنگام نمایش حفظ می شود.
mostafa
سه شنبه 21 بهمن 1382, 04:39 صبح
مرسی ویولت ولی من همه ی اینا رو امتحان کردم!
حالا فهمیدم مشکل چیه!!! ایمیل ها به hotmail نمیرن!!! به هر ایمیلی بجز @hotmail.com
میرن!!! حتی ز میل سرورش "smpt"؛
ویولت
یک شنبه 26 بهمن 1382, 13:15 عصر
ممکن است که سرور میل شما ایمیل ها را Block کرده باشه
جناب نصیری از راهنمایی شما ممنون و انجام شد. :wink:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.