Excel 宏發送 email

Question

我有一份報告，我想通過 excel 發送。 它將包括收件人、主題和正文中的信息。 實際上它可以復制有問題的單元格。 到目前為止我所做的是創建一個按鈕並使用以下代碼為其分配一個宏：

Private Sub CommandButton1_Click()
 Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("Sheet1").Range("E3"), _
                      arg2:=Sheets("Sheet1").Range("E7")

End Sub

問題是此命令將工作簿作為附件發送。

有人可以幫助我編寫允許我執行此操作的代碼。

太感謝了！

干杯

Answer 1

設置對“Microsoft Outlook xx.x Object 庫”的引用，您可以將此代碼用作構建或發送 Z0C83F57C786A0B4A39EFAB23731C7EBC 的示例

因為它只會顯示 email 而不發送。 您可以注釋掉 .display 行並取消注釋 .send 以發送它。

Sub EmailFromExcel()
    On Error GoTo PROC_EXIT
    Dim OL As New Outlook.Application

    Dim olMail As Outlook.MailItem
    Set olMail = OL.CreateItem(olMailItem)

    Dim SrcSheet As Excel.Worksheet
    Set SrcSheet = Sheets("Sheet1")

    With olMail
        .To = SrcSheet.Range("E3").Text
        .Subject = SrcSheet.Range("E7").Text
        .Body = SrcSheet.Range("E12").Text
        .Display vbModal
        '.Send
    End With

 PROC_EXIT:
    On Error GoTo 0
    OL.Quit
    Set OL = Nothing
End Sub

Answer 2

添加對outlook com庫的引用； 然后您可以復制/粘貼值並格式化您需要的新工作表，然后將其復制到 outlook 郵件中。