קומפוננטות לשליחת דואר:
CDO.Message
CDONTS.NewMail
ASP.MAIL
JMAIL
חשבון ממנו שולחים דואר חייב להיות מוגדר בפנל ניהול.
| |
| |
כיצד ניתן לשלוח מייל בעזרת אובייקט CDO.Message?
|
|
| |
<%@ Language=VBScript%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
set objCDOSYSMail = CreateObject("CDO.Message")
set objCDOSYSCon = CreateObject("CDO.Configuration")
' if Mail_smtpAuthenticate then
' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
' end if
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
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") = 300
objCDOSYSCon.Fields.Update
set objCDOSYSMail.Configuration = objCDOSYSCon
set b = objCDOSYSMail.bodypart
b.charset = "windows-1255"
objCDOSYSMail.From = "error@e-publish.co.il"
objCDOSYSMail.To = "admin@e-publish.co.il"
'objCDOSYSMail.CC = "ff"
'objCDOSYSMail.BCC = "gg"
' objCDOSYSMail.AddAttachment F_Email_Attachment_File1, "", ""
objCDOSYSMail.Subject = "test"
objCDOSYSMail.HTMLBody
="<html><head><title>Contact
letter</title></head><body dir='rtl'
style='font-family:arial; font-size:12px;'><br> Testing
CDO.Message</body></html>"
objCDOSYSMail.Send
set objCDOSYSMail = Nothing
set objCDOSYSCon = Nothing
%>
<html>
<head>
<title>ASP test page.</title>
</head>
<body>
</body>
</html>
|
כיצד ניתן לשלוח מייל בעזרת CDONTS.NewMail?
|
|
| |
<%@ Language=VBScript%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim MyBody
Dim MyCDONTSMail
%>
<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "error@e-publish.co.il"
MyCDONTSMail.To= "admin@e-publish.co.il"
MyCDONTSMail.Subject="This is a Test"
MyBody = "Thank you for ordering that stuff"
MyBody = MyBody & "We appretiate your business"
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= "fff"
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
<html>
<head>
<title>ASP test page.</title>
</head>
<body>
</body>
</html>
|
|
כיצד ניתן לשלוח מייל עם אובייקט JMAIL?
|
|
| |
<%@ Language=VBScript%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "127.0.0.1"
JMail.AddRecipient "admin@e-publish.co.il"
JMail.Sender = "error@e-publish.co.il"
JMail.Subject = "Your subject"
JMail.ContentType = "text/html"
JMail.Body = "Hi just testing out this JMail component."
JMail.Execute
Set JMail= Nothing
%>
<html>
<head>
<title>ASP test page.</title>
</head>
<body>
</body>
</html>
|
Article ID: 7, Created On: 8/25/2008, Modified: 3/23/2012