php中自动发送邮件的函数

全部代码如下：

PhpMailerphp

代码如下:

<php

/

有身份验证的电子邮件发送类（PHP）

使用本类发送邮件需要一个SMTP服务器地址以及一个合法帐号

如163的SMTP地址为：smtp163splitneteasecom

合法帐号可以通过随意注册一个免费信箱来获得。

改编 一起PHP技术联盟 >下载地址：>

<%

Set jmail = ServerCreateObject("JMAILMessage") '建立发送邮件的对象

jmailsilent = true '屏蔽例外错误，返回FALSE跟TRUE两值j

Jmaillogging = true '启用邮件日志

jmailCharset = "GB2312" '邮件的文字编码为国标

jmailContentType = "text/html" '邮件的格式为HTML格式

jmailAddRecipient Email '邮件收件人的地址

jmailFrom = "Email From for Sender" '发件人的E-MAIL地址

jmailMailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名

jmailMailServerPassword = "Password of Email" '登录邮件服务器所需的密码

jmailSubject = "Mail Subject" '邮件的标题

jmailBody = "Mail Body" '邮件的内容

jmailSend("Server Address") '执行邮件发送（通过邮件服务器地址）

jmailClose() '关闭对象

%>

<form name=contact method=post action="sendmailasp"></form>

sendmailasp中可以这样写：

<%@ Language=VBScript %>

<%

dim strT,strT1,strSend

strt=requestform("Name")

if trim(strt)<>"" then

strSend=strSend & "姓名:" & strt & vbcrlf

end if

strt=requestform("Email")

if trim(strt)<>"" then

strSend=strSend & "E-Mail:" & strt & vbcrlf

end if

strt=requestform("CompanyName")

if trim(strt)<>"" then

strSend=strSend & "公司:" & strt & vbcrlf

end if

strt=requestform("Industry")

if trim(strt)<>"" then

strSend=strSend & "职业:" & strt & vbcrlf

end if

strt=requestform("Phone")

if trim(strt)<>"" then

strSend=strSend & "电话:" & strt & vbcrlf

end if

strt=requestform("Street")

if trim(strt)<>"" then

strSend=strSend & "地址:" & strt & vbcrlf

end if

strt=requestform("PostalCode")

if trim(strt)<>"" then

strSend=strSend & "邮编:" & strt & vbcrlf

end if

strt=requestform("Subject")

if trim(strt)<>"" then

strSend=strSend & "留言主题:" & strt & vbcrlf

end if

strt=requestform("Content")

if trim(strt)<>"" then

strSend=strSend & "留言内容:" & vbcrlf & strt & vbcrlf

end if

set mail = serverCreateObject ("CDONTSNewMail")

mailTo = "收件人信箱地址"

mailFrom = "发件人信箱地址（可以随便填）"

mailSubject = "标题"

mailBody = strSend

mailSend

%>

前一段时间有发过一个简单的JMAIL邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子：

首先是jmailsmtpmail的核心代码：

<%

Set jmail = ServerCreateObject("JMAILSMTPMail") '创建一个JMAIL对象

jmailsilent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmaillogging = true '启用使用日志

jmailCharset = "GB2312" '邮件文字的代码为简体中文

jmailContentType = "text/html" '邮件的格式为HTML的

jmailServerAddress = "Server Address" '发送邮件的服务器

jmailAddRecipient Email '邮件的收件人

jmailSenderName = "SenderName" '邮件发送者的姓名

jmailSender = "Email Address" '邮件发送者的邮件地址

jmailPriority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmailSubject = "Mail Subject" '邮件的标题

jmailBody = "Mail Body" '邮件的内容

jmailAddRecipientBCC Email '密件收件人的地址

jmailAddRecipientCC Email '邮件抄送者的地址

jmailExecute() '执行邮件发送

jmailClose '关闭邮件对象

%>

w3 Jmail43组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmailsmtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：

<%

Set jmail = ServerCreateObject("JMAILMessage") '建立发送邮件的对象

jmailsilent = true '屏蔽例外错误，返回FALSE跟TRUE两值j

maillogging = true '启用邮件日志

jmailCharset = "GB2312" '邮件的文字编码为国标

jmailContentType = "text/html" '邮件的格式为HTML格式

jmailAddRecipient Email '邮件收件人的地址

jmailFrom = "Email From for Sender" '发件人的E-MAIL地址

jmailMailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名

jmailMailServerPassword = "Password of Email" '登录邮件服务器所需的密码

jmailSubject = "Mail Subject" '邮件的标题

jmailBody = "Mail Body" '邮件的内容

jmailPrority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmailSend("Server Address") '执行邮件发送（通过邮件服务器地址）

jmailClose() '关闭对象

%>

再讲一下微软自带的CDONTS组件的发信的方法：

<%

Set cdomail = ServerCreateObject("CDONTSNewMail") '建立邮件对象

cdomailSubject = "Mail Subject" '邮件标题

cdomailFrom = "Sender's Mail" '发件人的地址

cdomailTo = "Email will from" '收件人的地址

cdomailBody = "Mail Body" '邮件的内容

cdomailSend '执行发送

%>

这种方法发送邮件是最简单的，同时也带来一定的问题，就是很少有服务器会开这项服务！

我们写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：

<%

'参数说明

'Subject : 邮件标题

'MailAddress : 发件服务器的地址,如smtp163com

'Email : 收件人邮件地址

'Sender : 发件人姓名

'Content : 邮件内容

'Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)

Set jmail = ServerCreateObject("JMAILSMTPMail") '创建一个JMAIL对象

jmailsilent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmaillogging = true '启用使用日志

jmailCharset = "GB2312" '邮件文字的代码为简体中文

jmailContentType = "text/html" '邮件的格式为HTML的

jmailServerAddress = mailaddress '发送邮件的服务器

jmailAddRecipient Email '邮件的收件人

jmailSenderName = sender '邮件发送者的姓名

jmailSender = fromer '邮件发送者的邮件地址

jmailPriority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmailSubject = subject '邮件的标题

jmailBody = content '邮件的内容

'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复

'jmailAddRecipientBCC Email '密件收件人的地址

'jmailAddRecipientCC Email '邮件抄送者的地址

jmailExecute() '执行邮件发送

jmailClose '关闭邮件对象

End Sub

'调用此Sub的例子

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = "这是一封用JMAIL发送的测试邮件"

strContent = "JMail组件发送测试成功！"

strEmail = "runbing@eyoucom"

strFromer = "runbing@eyoucom"

strMailAddress = "mailubbcncom"

Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

%>

以上是我对发邮件代码的一个粗略的见解，忘大家不吝赐教！

以上就是关于php中自动发送邮件的函数全部的内容，包括:php中自动发送邮件的函数、用VB编写一个全自动的电子邮件的发送程序。、怎么实现网页确认以后自动发送邮件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！