利用CDONTS傳送郵件的ASP函式

2021-09-30 02:21:32 字數 1564 閱讀 1140

<%

「last updated by recon on 05/14/2001

「on error resume next

「利用cdonts元件在win2k上傳送郵件

「傳送普通郵件

sendmail "[email protected]", "[email protected]", "normal mail!",

"please check the attatchment!", 2, 0, "c:/love.txt"

「傳送html郵件

dim m_fso, m_tf

dim m_strhtml

set m_fso = server.createobject("scripting.filesystemobject")

set m_tf = m_fso.opentextfile("c:/mail.htm", 1)

m_strhtml = m_tf.readall

「write m_strhtml

set m_tf = nothing

set m_fso = nothing

sendmail "[email protected]", "[email protected]", "html mail!",

m_strhtml, 2, 1, null

「引數說明

「strfrom : 發件人email

「strto : 收件人email

「strsubject : 信件主題

「strbody : 信件正文

「lngimportance : 信件重要性

「 : 0 - 低重要性

「 : 0 - 中等重要性(預設)

「 : 0 - 高重要性

「lngatype : 信件格式

「 : 為1時將郵件正文作為html(此時可以傳送html郵件)

「strattach : 附件的路徑

sub sendmail(strfrom, strto, strsubject, strbody,

lngimportance, lngatype, strattach)

dim objmail

set objmail = server.createobject("cdonts.newmail")

with objmail

.from = strfrom

.to = strto

.subject = strsubject

.body = strbody

.importance = lngimportance

if lngatype = 1 then

.bodyformat = 0

.mailformat = 0

end if

if isempty(strattach) = false and isnull(strattach) = false

then

.attachfile strattach

end if

.send

end with

set objmail = nothing

end sub

%>

利用CDO Message傳送郵件

由於公司把 從自己的伺服器上移到了gd的asp空間上,gd的空間又不支援gmail,找了很多的資料。才找到下面這個發郵件的 經測試,完全可用 mymail.subject 郵件標題 dim content content 郵件主體 mymail.htmlbody content response.w...

利用Web傳送郵件

方法一 using system.web.mail system.web.mail.mailmessage myemail new system.web.mail.mailmessage myemail.from email 163.myemail.to email 163.myemail.subj...

利用SQL Server傳送郵件

配置sql server 允許發郵件這裡有兩種方式一中是通過介面操作,一中是全 操作。兩種方式的結果是一樣的,使用者可以先通過 操作,在通過介面操作去檢視 1 操作 1.配置資料 exec sp configure show advanced options 1 reconfigure with o...