調(diào)用outlook生成并發(fā)送郵件的代碼

來源：懂視網(wǎng) 責(zé)編：小采時(shí)間：2020-11-09 08:27:26

調(diào)用outlook生成并發(fā)送郵件的代碼

調(diào)用outlook生成并發(fā)送郵件的代碼:代碼說明：本代碼可以在安裝了outlook（2000以上版本的）的機(jī)器上運(yùn)行。不過outlook xp 以上的版本由于出于防止郵件病毒的目的，對(duì) 發(fā)送郵件進(jìn)行監(jiān)控，運(yùn)用本程序每發(fā)送一封 email都需要用戶確認(rèn)，會(huì)有點(diǎn)麻煩，但是還是出于安全的角度考慮。可以

推薦度：

點(diǎn)擊下載本文 文檔為doc格式

導(dǎo)讀調(diào)用outlook生成并發(fā)送郵件的代碼:代碼說明：本代碼可以在安裝了outlook（2000以上版本的）的機(jī)器上運(yùn)行。不過outlook xp 以上的版本由于出于防止郵件病毒的目的，對(duì) 發(fā)送郵件進(jìn)行監(jiān)控，運(yùn)用本程序每發(fā)送一封 email都需要用戶確認(rèn)，會(huì)有點(diǎn)麻煩，但是還是出于安全的角度考慮。可以

代碼說明：本代碼可以在安裝了outlook（2000以上版本的）的機(jī)器上運(yùn)行。不過outlook xp 以上的版本由于出于防止郵件病毒的目的，對(duì) 發(fā)送郵件進(jìn)行監(jiān)控，運(yùn)用本程序每發(fā)送一封 email都需要用戶確認(rèn)，會(huì)有點(diǎn)麻煩，但是還是出于安全的角度考慮。可以

代碼說明：
本代碼可以在安裝了outlook（2000以上版本的）的機(jī)器上運(yùn)行。不過outlook xp 以上
的版本由于出于防止郵件病毒的目的，對(duì)發(fā)送郵件進(jìn)行監(jiān)控，運(yùn)用本程序每發(fā)送一封
email都需要用戶確認(rèn)，會(huì)有點(diǎn)麻煩，但是還是出于安全的角度考慮。

可以將這段代碼嵌入access的模塊、excel的宏中運(yùn)行。

程序要求：

需要引用"microsoft outlook x.x library"

代碼：

sub email_send()

Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim emailadd,para as String

Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olMailItem)

'郵件正文內(nèi)容
para = para+"祝新春快樂，并友情提醒注意新的郵件病毒。"

'收件人的email地址，這里沒有輸入內(nèi)容。
emailadd = ""

With newmail

.To = emailadd
.Subject = "新春快樂" ' 郵件的主題
.Importance = olImportanceHigh '郵件的為重要等級(jí)
.Body = para '將郵件正文內(nèi)容指定para變量內(nèi)容

.Send '發(fā)送

End With

end sub

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com