Пользователь D, я бы сказал, сначала используйте оператор С для скорости и читабельности. Затем есть метод Сохранить , который будет сохраняться как черновик в текущем пространстве имен (папка учетных записей электронной почты по умолчанию ' Черновик ), поскольку у вас может быть несколько учетных записей электронной почты. ваш клиент, и каждый считается своим собственным пространством имен). Если вы используете метод .Send , он будет отправлять аналогично, если вы используете метод .Display , он не будет отправлять, а будет появляться на вашем экране (и будет отображаться как другая задача в Taskmgr) ,
Sub DraftEmails()
Dim oApp As New Outlook.Application
Dim oM As Outlook.MailItem
Set oM = oApp.CreateItem(olMailItem)
With oM
.To = "someone@somewhere.somedomain"
.Save
End With
End Sub
Кроме того, чтобы быть более динамичным, я хотел бы рассмотреть возможность использования комбинации UsedRange.Columns и Find . Это позволило бы вам сказать, найдите в столбце A ячейку, в которой есть «to», а затем можете итерировать вниз оттуда. Так что, если вы скорректировали свои столбцы, скажем, это поймало бы и ваш код не нуждался бы в корректировке.
Сообщите нам, ответил ли он на то, что вам нужно, или на любое другое руководство, которое мы можем дать.
Danny
ExcelVBADude