VBA 可以操作 Outlook 嗎？

下面**可以實現Outlook傳送郵件，B1單元格是寫收件人，B2是主題，B3是正文，B4是附件的路徑。

sub sendmail()

dim outlookitem as

set outlookitem =

dim receiver as stringdim subjecttext as stringdim bodytext as stringdim attachedobject as stringreceiver = [b1].valuesubjecttext = [b2].valuebodytext = [b3].

valueattachedobject = [b4].valueon error goto sendmail_errorwith outlookitem

to = receiver

subject = subjecttextbody = bodytext

if attachedobject <>"" thenattachedobject

end if

sendend with

sendmail_exit:

exit sub

sendmail_error:

msgbox

resume sendmail_exit

end sub

如果要集中傳送電子郵件，可以使用Excel郵件合併功能，不需要VBA，所以讓我們研究一下。

它工作正常，已經使用了一年多。 它適用於 Excel 或 Word。

網際網絡上有無數的東西，你可以尋找它們。

你可以直接使用 api 函式 shellexecute 複製下面的 **，直接貼上到你的 ** 模組中，然後執行 emailsend 看看效果。

option explicit

private declare function shellexecute lib "" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long

sub emailsend()

dim receiver$, mymail$, mysubject$receiver = ""

mysubject = "試一試"

這是個測試"

shellexecute 0&, vbnullstring, mymail, vbnullstring, vbnullstring, 1

end sub

將郵件護罩從發件箱中沖洗乾淨。

sub subsendemail()

on error resume next

dim fld_outbox as

dim objitems as

dim myitem as object

dim myitems() as objectdim iindex as integeriindex = 0

dim n as integer

獲取發件箱。

set fld_outbox = "mapi").getdefaultfolder(olfolderoutbox)

set objitems = fld_

if fld_ = 0 then

如果發件箱郵件數為 0，則從草稿箱中移動郵件。

將多封郵件從草稿箱移動到發件箱。

funmovemailtooutbox 15end if

如果發件箱中有物件，則將寄送其中的郵件分支。

if > 0 then

for n = 1 to

if (objitems(1).class = 43） 然後。objitems(n).sendend if

next n

end if

end sub