我需要自动化报告,这几乎完全自动化,但在流程结束时,它有一个特定的工作表通过电子邮件发送,他们要求一种特殊的格式。
我找到了将发送电子邮件的代码,但它与我手动使用它时执行的操作不同,在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
时,它不会显示