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

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

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

程序要求：

需要引用"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 '郵件的為重要等級
.Body = para '將郵件正文內(nèi)容指定para變量內(nèi)容

.Send '發(fā)送

End With

end sub

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