Question

我正在尝试在我的Outlook邮件中添加2项内容，以使收件人，主题和文件附件自动化。但是，当我运行代码时，每个变量显示都会打开2封新电子邮件。我无法找出为什么有2封电子邮件在网上打开了它（也许是因为我错称我的问题，所以我决定在这里发帖）

我的代码是：

Set msg1 = Application.CreateItem(olMailItem)
msg1.Subject = "Assignments " & Format(Now, "m/dd/yyyy")
Set msg = Application.CreateItemFromTemplate("File Location")
msg.Display
msg1.Display

我希望将两个Display命令都放在一封电子邮件中，而不要放在2个单独的电子邮件中。我该怎么做呢？

Answer 1

如果我对您的理解正确，则希望基于模板创建新邮件。因此，首先必须从模板创建新邮件，然后修改其主题行：

 Set msg = Application.CreateItemFromTemplate("File Location")
 msg.Subject = "Assignments " & Format(Now, "m/dd/yyyy")
 msg.Display

Outlook VBA代码为2个命令创建1个电子邮件

1 个答案: