VB中如何把復制的內容貼到郵件的正文里后發送郵件

Betty1016

請教大神，下面一段代碼執行后，郵件的文本里沒有我復制的表格，如何把表格內容貼到郵件的正文里，謝謝！




Sub mail出貨()

Sheets("出貨數").Activate
[a1:D11].Copy
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.Recipient
  

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

Set myRecipient = myItem.Recipients.Add("XXX@163.COM")

myItem.Subject = "出貨數日報表:" & Format(Int(Now()), "YYYY年MM月DD日")
myItem.Display
Application.SendKeys ("^v")
myItem.Send
ActiveWorkbook.Close SaveChanges:=False

End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

Betty1016

上传表格，谢谢提醒

闻启学

邮件内容 就是出货单内容 ？！！！！

Betty1016

闻启学 发表于 2023-1-8 20:12
邮件内容 就是出货单内容 ？！！！！

你好，是的。我copy完了发邮件时贴不上去，只有一个空白的邮件。

闻启学

Betty1016 发表于 2023-1-8 20:33
你好，是的。我copy完了发邮件时贴不上去，只有一个空白的邮件。

这个不能copy上去  要从新画一个表格