收取郵件不必手忙腳亂

一江春水　曹春華

收取郵件是大部分辦公人士每天必做的日常工作，雖然簡(jiǎn)單，但也繁瑣。以下筆者收集了幾個(gè)小技巧，幫你簡(jiǎn)化郵件收取過(guò)程中一些重復(fù)繁瑣的步驟。

預(yù)覽郵件附件也要看高清

對(duì)于大部分朋友來(lái)說(shuō)，郵件主要還是Office文檔，不過(guò)如果在網(wǎng)頁(yè)預(yù)覽附件，效果似乎總不如客戶端來(lái)得出色。其實(shí)，如果你主要使用網(wǎng)易郵箱，那么可以在高清效果下預(yù)覽Word、Excel、PowerPoint等Office格式的附件文檔。

登錄網(wǎng)易郵箱的高清附件預(yù)覽申請(qǐng)頁(yè)面（http：//hd2.mail.163.com/），申請(qǐng)成功之后，進(jìn)入郵箱打開包含附件的郵件，點(diǎn)擊“在線預(yù)覽”即可使用高清版預(yù)覽。此時(shí)會(huì)模擬客戶端的預(yù)覽效果，閱讀更加清晰，并不需要將附件下載回來(lái)進(jìn)行閱讀。如果覺(jué)得不太習(xí)慣，可以點(diǎn)擊預(yù)覽頁(yè)面右上角的“返回極速版”切換回原來(lái)的預(yù)覽版本。

郵件收取作業(yè) 自動(dòng)分類

平時(shí)向?qū)W生布置的電子作業(yè)，一般會(huì)要求學(xué)生完成后發(fā)送到郵箱中。打開郵箱后，才發(fā)現(xiàn)收件箱中郵件附件太多，既有學(xué)生交來(lái)的作業(yè)附件，也有其他各種各樣的郵件附件，要從這么多附件中把學(xué)生的作業(yè)找出來(lái)下載，還真費(fèi)力氣。能不能讓學(xué)生的作業(yè)自動(dòng)歸類到指定的文件夾中呢？筆者使用的是163郵箱，通過(guò)下面的方法即可實(shí)現(xiàn)。

登錄163郵箱頁(yè)面，依次單擊“設(shè)置/郵箱設(shè)置/來(lái)信分類/新建來(lái)信分類”（如圖1），任意起一個(gè)名稱，比如“學(xué)生作業(yè)”，在條件設(shè)置中，可以選擇“郵件主題”、“包含”，關(guān)鍵詞中輸入“作業(yè)”，執(zhí)行動(dòng)作中，選擇“轉(zhuǎn)移到”，并單擊“新建文件夾”，彈出“文件夾添加”窗口，輸入文件夾名稱（比如“學(xué)生作業(yè)”）后確定。

經(jīng)過(guò)以上設(shè)置，要求學(xué)生在發(fā)送作業(yè)電子郵件時(shí)，必須在“主題”中填寫“作業(yè)”。這樣，當(dāng)你收到主題中含有“作業(yè)”關(guān)鍵詞的郵件時(shí)，它們都將被自動(dòng)轉(zhuǎn)移到“學(xué)生作業(yè)”文件夾中。

如何一次收取文件夾中的文件呢？單擊“文件中心”中“附件”、“附件管理”，通過(guò)“篩選”功能即可選出學(xué)生作業(yè)。比如，如果學(xué)生作業(yè)都是文檔形式，則篩選條件設(shè)置為“文檔”，篩選之后，從列表中勾選學(xué)生作業(yè)文檔，再單擊“下載”（如圖2），彈出下載窗口，即可打包下載所有選中的學(xué)生作業(yè)文檔了。

批量提取郵件附件

還有很多朋友都是使用Microsoft Outlook處理郵件，保存附件的并不復(fù)雜，不過(guò)如果希望同時(shí)多份郵件中的附件保存下來(lái)，操作就麻煩多了。其實(shí)，我們可以借助VBA代碼批量提取郵件附件。

第1步：做好準(zhǔn)備工作

在“收件箱”下創(chuàng)建一個(gè)名為“批量提取附件”的文件夾（也可以使用其他的名稱），將需要批量提取附件的郵件拖拽到這個(gè)文件夾。在硬盤某個(gè)位置創(chuàng)建一個(gè)專門文件夾，用來(lái)儲(chǔ)存提取出來(lái)的附件，例如“g：＼temp＼”，其位置和文件夾名稱同樣可以任意設(shè)置。

第2步：創(chuàng)建宏文件

打開Microsoft Outlook，按下“Alt+F11”組合鍵，進(jìn)入Microsoft Visual Basic編輯器。依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)新的空白模塊，粘貼如下代碼：

Sub test（）

Dim olApp As New Outlook.Application

Dim nmsName As Outlook.NameSpace

Dim vItem As Object

Set nmsName = olApp.GetNamespace（"MAPI"）

Set myFolder = nmsName.GetDefaultFolder（olFolderInbox）

Set fldFolder = myFolder.Folders（"批量提取附件"）

For Each vItem In fldFolder.Items

For Each att In vItem.Attachments

att.SaveAsFile "g：＼temp＼" & att.FileName

Next

Next

Set fldFolder = Nothing

Set nmsName = Nothing

End Sub

完成上述操作之后，退出Microsoft Visual Basic編輯器窗口，按下“Alt+F8”組合鍵（如圖3），選擇“test”宏，運(yùn)行之后即可將相關(guān)郵件的附件全部提取出來(lái)，隨后就可以在“g：＼temp＼”找到所有的附件。