Код Outlook VBA, создающий 1 электронное письмо для 2 команд

Question

Я пытаюсь добавить 2 вещи в мое сообщение Outlook для автоматизации получателей, темы и прикрепления в файле.Однако, когда я запускаю свой код, он открывает 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

Я хочу, чтобы обе команды отображения были размещены в одном письме, а не в двух отдельных.Как я могу сделать это?

Answer 1

Если я вас правильно понимаю, вы хотите создать новое письмо на основе шаблона.Поэтому сначала вы должны создать новое письмо из шаблона, а затем изменить его строку «Тема»:

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