如何将Excel工作表发送到Outlook邮箱？

我有一个Excel文档来记录白天完成的工作，并将其传递给夜班，以便它们与白天的活动保持同步，反之亦然

计划是填写文档并单击“发送”按钮，将新创建的Excel工作表发送到共享Outlook文件夹

我的尝试被从网上抄袭并尝试过，但没有结果。

也许会有帮助：）

---

如果您使用HTML作为电子邮件正文，您还可以格式化邮件正文。只需更改文件路径即可附加邮件。如果要在邮件正文中包含新行，请使用
（无空格）

子堆栈溢出（）
设置objOutlook=CreateObject（“Outlook.Application”）
设置objOutlookMsg=objOutlook.CreateItem（olMailItem）
带objOutlookMsg
.To=”Johnston@Stackoverflow.com"
.Subject=“Excel文档”
.展示
.HTMLBody=“
”和_
“嗨”&“
”和“
”和_
“这是Excel文档。”_
.HTMLBody
.Attachments.Add（“C:\Desktop\”和“ExcelDocument.xlsx”）
.展示
以
端接头

请发布一些尝试，以便我们为您指出正确的方向。将其保存到临时文件中，然后通过电子邮件将其作为附件发送。这里有很多这样的例子-

Sub outMail()

Dim outApp As Object
Dim oMail As Object
Dim signature As String
Dim obszar As String

Set outApp = CreateObject("Outlook.Application")
Set oMail = outApp.CreateItem(0)

With oMail
    .Display
End With

signature = oMail.Body

With oMail
    .To = "email@email.com"
    .CC = "email2@email.com"
    .BCC = ""
    .Subject = "Log work done during the day"
    .BodyFormat = 2
    .Body = "Hello" & Chr(13) & Chr(10) & "The newly created Excel sheet with log work done during the day " & Chr(13) & Chr(10) & signature

    'here You put directory to your file, for now its directory to file where macro is
    .Attachments.Add ActiveWorkbook.FullName

    'now its set to display only, if You want to send automatically put .send as below
    .Display
    '.Send

End With

End Sub

Sub StackOverflow()
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
    .To = "Johnston@Stackoverflow.com"
    .Subject = "Excel Document"

    .Display
    .HTMLBody = "<p style='font-family:arial;font-size:13'>" & _
    "Hi" & "<br>" & "<br>" & _
    "Here is the Excel document." & _
    .HTMLBody

    .Attachments.Add ("C:\Desktop\" & "ExcelDocument.xlsx")
    .Display
End With
End Sub