Excel 2010 電子郵件 VBA 發送整個工作簿

Question

我一直在尋找可以發送整個工作簿的 VBA。

我找到了這個

    Sub Mail()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail
        .To = "mymail@domain.com"
        .CC = ""
        .BCC = ""
        .Subject = Range("A1").Value
        .body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

但是打開發送的郵件時，工作簿全是空的。 所以我必須在使用 VBA 之前保存工作簿。

是否有解決方法，因此它只能像正常文件一樣工作 -> 保存並發送 -> 作為附件發送？

Answer 1

我假設你不想保存它所以使用 [ Application.Dialogs MSDN ]

示例 1

Option Explicit
Public Sub example()
    Application.Dialogs(xlDialogSendMail).Show _
                arg1:="mymail@domain.com", _
                arg2:=Range("A1").Value
End Sub

---

示例 2 [ Workbook.SendMail MSDN ] 使用已安裝的郵件系統發送工作簿

Option Explicit
Public Sub example()
ActiveWorkbook.SendMail _
     Recipients:=Array("mymail@domain.com", "mymail@domain.com"), _
        Subject:=Range("A1").Value
End Sub

---

或在發送前保存您的工作簿。

例子

 ActiveWorkbook.Save .Attachments.Add ActiveWorkbook.FullName .send