Я использую Excel VBA для создания электронных писем в Outlook, и он работает хорошо.
Dim template As Outlook.MailItem, tomerge As Outlook.MailItem
' Create E-mail
tomerge.Close olSave
Электронные письма можно затем вручную переместить в папку «Черновики» и отправить с помощью этого подпункта .
'Loop through items in Drafts folder
objDrafts.Item(i).Send
Однако у многих пользователей в папке «Черновики» есть куча дополнительных черновиков, которые они не хотят отправлять.
Если я заменю «olFolderDrafts» на «olFolderOutbox» и попытаюсь отправить их из «Исходящих». Первое сообщение отправляет, а затем я получаю «Ошибка во время выполнения» «Outlook уже начал передавать это сообщение».
Есть ли какой-нибудь способ отправить все из Исходящих или , еще лучше, есть ли способ подготовить и отправить из только что созданной папки?