VB New 自動傳送郵件的方法

2021-05-24 00:28:04 字數 1571 閱讀 6762

asp.net 自動傳送郵件的方法 

今天有乙個模組需要自動傳送郵件的功能,就隨便寫了乙個,記錄一下作為積累。

一、首先需要配置web.config檔案:

port="25" defaultcredentials="false"/>

二、然後編寫傳送郵件的函式:

'''/

''' 郵件傳送方法(帶附件)

'''

''' 郵件標題

''' 郵件正文

''' 附件路徑

'''

public function mysendmail(byval mailto as string, byval mailsubject as string, byval mailbody as string, byval mailfrom as string, byval list as arraylist) as boolean

try'郵件傳送人位址

dim from as new system.net.mail.mailaddress(mailfrom)

'如[email protected],初步測試,用[email protected]不行,用163的郵件伺服器,就必須用163郵箱的使用者名稱

'收件人位址

dim [to] as new system.net.mail.mailaddress(mailto)

'如[email protected]

dim mail as new system.net.mail.mailmessage(from, [to])

mail.subject = mailsubject

mail.body = mailbody

'以下設定伺服器

dim mysmth as new system.net.mail.smtpclient()

'以下為增加附件

dim count as integer = list.count

for i as integer = 0 to count - 1

dim data as new system.net.mail.attachment(list(i).tostring())

mail.attachments.add(data)

next

mysmth.send(mail)

mail.dispose()

return true

catch

return false

end try

end function

三、最後就是對函式的呼叫了:

dim mailsubject as string = "會員註冊確認函"

dim mailbody as string = "正文內容。"

dim list as new arraylist()

'傳送成功,進行相應處理

if mysendmail(me.txtemail.text, mailsubject, mailbody, mailfrom, list) then

else

'傳送失敗,進行相應處理

return

end if

自動傳送郵件

程式功能 可以指定發件人,指定抄送人,指定標題,指定內容。郵件傳送基於 smtp 簡單郵件傳輸協議 郵件傳送 程式使用 smtp 協議來傳送電郵到接收者的郵件伺服器。smtp 協議只能用來傳送郵件,不能用來接收郵件,而大多數的郵件傳送伺服器都是使用 smtp 協議。smtp 協議的預設 tcp埠號是...

自動傳送郵件

import smtplib from email.mime.text import mimetext from email.header import header 傳送郵件主題 subject python email test 編寫html型別的郵件正文 msg mimetext html u...

自動傳送郵件的問題

using system using system.data using system.configuration using system.web using system.web.security using system.web.ui using system.web.ui.webcontro...