Excel 通过邮件信封发送电子邮件

我想将特定范围复制到邮件中（带有图像）

为什么信封只显示一秒钟，之后什么也没发生

---

我将

.Send

替换为

.Display

，但没有任何更改。或者，我尝试使用RNGtoHTML代码，但该代码不复制图像（我在“电子邮件”页中有动态链接图片）

您的问题在于您使用

.展示

但您不会等待发送，然后关闭信封而不发送： ActiveWorkbook.EnvelopeVisible=False

• 只需对其进行注释，对话框将保留在那里供您发送

如果需要使用.Send或.Display根本不起作用：

• 在管理模式下运行outlook可以解决此问题
• 将Programatic access*的MS Outlook设置更改为“如果..则警告我”解决了这一问题（使用.Send时显示恼人的对话框）
• 将MsgBox Err.description放在末尾以调试错误
  MsgBox Err.description 端接头

• 仍在试图找出实际的解决方案

邮件发送宏对我有效，但过了一会儿就停止了。不太清楚为什么。我甚至尝试添加一些注册表项（）。但那没用

*最有趣的是，如果禁用MS outlook警告以进行编程访问（）

---

-在admin中启动MS O并转到该设置-它停止显示警告，但也停止请求和功能。微软现在的惯常行为是……

尝试通过它

当您运行脚本时，它将在您到达这行代码时显示

.display

但随后将运行下面的代码，这将导致它停止显示

ActiveWorkbook.EnvelopeVisible = False

如果你一步一步地阅读代码，你应该能够看到你的内容，直到你到达上面的代码行

ActiveWorkbook.EnvelopeVisible = False