通過電子郵件發送書籍或工作表

如果您經常需要通過電子郵件發送某些書籍或表格，那麼您應該注意到這個過程不能快速調用。 如果你“經典”地做，那麼你需要：

  • 打開電子郵件程序（例如 Outlook）
  • 創建新消息
  • 輸入地址、主題和文本
  • 將文件附加到消息中（不要忘記！）
  • 點擊按鈕 送出

事實上，可以通過多種不同的方式直接從 Excel 輕鬆發送郵件。 去…

方法一：嵌入式發送

如果您仍然擁有良好的舊 Excel 2003，那麼一切都很簡單。 打開所需的書/表並從菜單中選擇 文件 - 發送 - 消息 （文件 — 發送至 — 郵件收件人）. 將打開一個窗口，您可以在其中選擇兩個發送選項之一：

在第一種情況下，當前書籍將作為附件添加到消息中，在第二種情況下，當前工作表的內容將作為文本表（沒有公式）直接進入消息文本。

此外，菜單 文件 - 提交 （文件 - 發送至） 還有一些更具異國情調的運輸選擇：

 

  • 留言（供審核） （郵件收件人進行審核） – 發送整個工作簿，同時為它打開更改跟踪，即開始明確固定 – 誰、何時以及在哪些單元格中進行了哪些更改。 然後您可以顯示在菜單中所做的更改 服務 - 修復 - 突出顯示修復 （工具 - 跟踪更改 - 突出顯示更改） 或在選項卡上 審查 - 更正 （Reveiw - 跟踪更改） 它看起來像這樣：

    彩色框架標記對文檔所做的更改（每個用戶都有不同的顏色）。 當您將鼠標懸停時，會彈出一個類似註釋的窗口，其中詳細說明了此單元格中更改的人員、內容和時間。 審閱文件非常方便，例如當您編輯下屬的報告或老闆編輯您的報告時。

  • 沿途 （路由收件人） – 將附加您的書的消息將通過一系列收件人，每個收件人都會像接力棒一樣自動進一步轉發。 如果需要，您可以將消息設置為在鏈的末端返回給您。 您可以啟用更改跟踪以查看線程中每個人所做的編輯。

在新的 Excel 2007/2010 中，情況略有不同。 在這些版本中，要通過郵件發送圖書，您需要選擇按鈕 辦公 （辦公按鈕） 或標籤 文件 （文件） 和團隊 送出 （發送）. 接下來，為用戶提供一組發送選項：

請注意，在新版本中，發送插入信函正文的單獨工作簿工作表的功能已消失 - 就像在 Excel 2003 及更高版本中一樣。 剩下的唯一選擇是發送整個文件。 但是有一個有用的機會發送眾所周知的 PDF 格式和不太知名的 XPS（類似於 PDF，但不需要 Acrobat Reader 來閱讀 - 它直接在 Internet Explorer 中打開）。 發送書評的命令可以通過快速訪問面板上的附加按鈕拉出 文件 - 選項 - 快速訪問工具欄 - 所有命令 - 送審 （文件 - 選項 - 快速訪問工具欄 - 所有命令 - 發送以供審閱）.

方法 2. 簡單的宏發送

發送宏要容易得多。 通過菜單打開 Visual Basic 編輯器 服務 – 宏 – Visual Basic 編輯器 （工具——宏——Visual Basic 編輯器）, 將新模塊插入菜單 插入 - 模塊 並在那裡複製這兩個宏的文本：

Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="[email protected]", Subject:="Catch the file" .Close SaveChanges:=False End With End Sub

之後，複製的宏可以在菜單中運行 服務 - 宏 - 宏 （工具——宏——宏）. 發送工作簿 將整個當前書籍發送到指定地址，並且 發送表 — Sheet1 作為附件。

運行宏時，Excel 將聯繫 Outlook，這將導致屏幕上出現以下安全消息：

等到按鈕 解決 變為活動狀態並單擊它以確認您的提交。 之後，自動生成的消息將被放置在文件夾中 即將離任 並將在您第一次啟動 Outlook 時發送給收件人，或者，如果您運行它，則立即發送給收件人。

方法3.通用宏

如果你想發送的不是當前的書，而是任何其他文件？ 並且消息的文本也很適合設置！ 以前的宏在這裡沒有幫助，因為它們受到 Excel 本身功能的限制，但您可以創建一個宏來管理 Excel 中的 Outlook——創建並填寫一個新的消息窗口並發送它。 宏如下所示：

Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") '以隱藏模式啟動 Outlook OutApp.Session.Logon On Error GoTo cleanup '如果沒有開始 - 退出 Set OutMail = OutApp.CreateItem(0) '創建一條新消息 On Error Resume Next '用 OutMail .To = Range("A1").Value .Subject = Range("A2") 填寫消息字段。 Value .Body = Range("A3").Value .Attachments.Add Range("A4").Value 'Send 可以替換為 Display 以在發送前查看消息 .Send End With On Error GoTo 0 Set OutMail = Nothing cleanup : 設置 OutApp = Nothing Application.ScreenUpdating = True End Sub

郵件的地址、主題、文本和附件的路徑必須在當前工作表的單元格 A1:A4 中。

  • 使用 PLEX 插件從 Excel 進行群組郵件
  • Dennis Wallentin 通過 Lotus Notes 從 Excel 發送郵件的宏
  • 什麼是宏，在 Visual Basic 中插入宏代碼的位置
  • 使用 HYPERLINK 功能創建電子郵件

 

發表評論