Loop vba одновременно отображает различные электронные письма

Im сжатие файла в частях 10MB с помощью WINRAR. Я хочу создать петлю и создать 1 письмо с каждой частью и отобразить все электронные письма, прежде чем отправлять их.

Set OutApp = CreateObject("Outlook.Application") Application.Wait (Now + TimeValue("0:00:30")) On Error GoTo 0 Set OutMail = OutApp.CreateItem(0) For i = 1 To times With OutMail .To = wb1.Sheets("MAIL").Cells(4, 3).Value .CC = wb1.Sheets("MAIL").Cells(5, 3).Value .BCC = "" .Subject = wb1.Sheets("MAIL").Cells(6, 3).Value .Body = wb1.Sheets("MAIL").Cells(9, 3).Value 'You can add other files also like this If (times > 1) Then .Attachments.Add source & "part" & i & ".rar" Else: .Attachments.Add source & "rar" End If '.Send 'or use .Display .Display End With Next i 
  1. Если я запустил его с помощью «.Send», он отправит 1 письмо без каких-либо привязок.
  2. Если я использую «.Display», он показывает 1 электронную почту в Outlook, готовом для отправки со всеми прилагаемыми частями. (3 части в моем примере).

Я хочу:

  • Чтобы отправить 3 сообщения электронной почты с 1 частью файла, каждый прикрепленный OR
  • Отобразите 3 сообщения электронной почты, каждый из которых содержит 1 часть, готовую нажать «отправить» в Outlook.

Надеюсь, я объяснил сам.

Вы просто пропустили ту часть, где вы создаете новую почту
Set OutMail = OutApp.CreateItem(0)
внутри цикла , например:

 For i = 1 To times Set OutMail = OutApp.CreateItem(0) With OutMail .To = wb1.Sheets("MAIL").Cells(4, 3).value .CC = wb1.Sheets("MAIL").Cells(5, 3).value .BCC = "" .Subject = wb1.Sheets("MAIL").Cells(6, 3).value .Body = wb1.Sheets("MAIL").Cells(9, 3).value 'You can add other files also like this If (times > 1) Then .Attachments.Add Source & "part" & i & ".rar" Else .Attachments.Add Source & "rar" End If '.Send 'or use .Display .Display End With Next i 
  • Планировщик задач Outlook и Excel VBA
  • Данные электронной почты, экспортированные в Excel - Сортировка по Полученной Дате
  • Получатели
  • Вставить конкретный диапазон excel в обзорную встречу
  • Как подключить активную книгу Excel к электронному письму
  • Выбор первой записи нескольких записей при разрешении получателя Outlook
  • Новая рабочая книга Excel, созданная макросом Outlook, не сохраняется в каталоге
  • Запросы на собрания в Outlook с использованием VBA, совместимого с Календарем Google
  • Могу ли я автоматически сохранить приложение Excel в Outlook, используя содержимое из файла в качестве имени?
  • Как добавить подпись в электронную почту Excel VBA?
  • Экспорт информации электронной почты Outlook в книгу Excel
  • Interesting Posts

    Проверьте, существует ли рабочий лист с помощью инфраструктуры

    Снятие защиты с защитного листа

    Установите тип данных, например номер, текст и дату в столбце Excel, используя Microsoft.Office.Interop.Excel в c #

    Связывать данные файла Excel с TFS

    Объект Range с переменными

    Excel Macro – выбор всех ячеек с данными и их формат в виде таблицы

    Вставка изображения не выполняется без добавления одного и того же изображения в одну ячейку

    Сравните две ячейки, если они равны, а затем удалите и замените

    Цикл и счетчик выделяют ячейки, содержащие данные, затем перебирают действие, которое много раз

    Запуск сохраненного Proc через соединение Excel – работает в SSMS, но не через макрос VBA

    Закрытие файла Excel, если он уже находится в открытом состоянии при открытии того же файла во второй раз с использованием (VBA)

    Excel – переместить целую строку на следующий рабочий лист, если текст в определенной ячейке первого рабочего листа равен Y (или да)

    Получение заголовка для сопоставления данных

    экспортированный файл excel генерирует неизвестные символы

    Транспонирование столбца в строку на SQL Server 2008 R2

    Давайте будем гением компьютера.