如何联系“发送给邮件收件人”

Question

我需要自动化报告，这几乎完全自动化，但在流程结束时，它有一个特定的工作表通过电子邮件发送，他们要求一种特殊的格式。

我找到了将发送电子邮件的代码，但它与我手动使用它时执行的操作不同，在Excel功能区上“发送给邮件收件人”按钮。

这是我正在使用的代码：

Dim aSheet As Worksheet
Dim Sendrng As Range
Dim rng As Range

On Error GoTo StopMacro

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Set Sendrng = Worksheets("for_Mail_test").Range("A1:j42")
Set aSheet = ActiveSheet

With Sendrng
    .Parent.Select
    Set rng = ActiveCell
    .Select
    ActiveWorkbook.EnvelopeVisible = True
    With .Parent.MailEnvelope
       .Introduction = "This is test mail 2."
        With .Item
            .To = "ron@debruin.nl"
            .CC = ""
            .BCC = ""
            .Subject = "My subject"
            .Display
        End With
    End With
  rng.Select
End With

aSheet.Select

StopMacro:
   With Application
      .ScreenUpdating = True
      .EnableEvents = True
   End With
 ActiveWorkbook.EnvelopeVisible = False

有两个问题： 1它不会保持与我在工作表上相同的格式 2当我将方法从.send更改为.display时，它不会显示