Отправка письма с разными темами из ячейки, когда ячеек ок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Гость

Дата: Среда, 24.08.2011, 12:25 | Сообщение № 1

Группа: Гости

Здравствуйте, есть макрос:

Code

Function Письмо(sTo As String, sSabj As String)
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.To = sTo
.Subject = sSabj
.Display
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Function

Sub Письмо2()
Dim a
For i = 2 To [b1].End(xlDown).Row
a = Письмо(Cells(i, 9).Value, Cells(i, 15).Value)
Next
End Sub

Идея была такая, напротив каждой строки есть кнопка "отправить", при нажатии программа Outlook создает новое письмо, с определенным адресом и темой, взятой из определенной ячейки. К сожалению, данный макрос, создает столько писем, сколько заполнено строк.
Подскажите как необходимо модернизировать макрос, что бы он срабатывал только на последнюю заполненную ячейку с темой
Пример во вложении. Заранее спасибо smile

Ответить

ini

Дата: Среда, 24.08.2011, 12:30 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Пример во вложении.

К сообщению приложен файл: _ini.xlsx (15.4 Kb)

Ответить

Саня

Дата: Среда, 24.08.2011, 13:38 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

Code

Sub Письмо2()
i = [o1].End(xlDown).Row
a = Письмо(Cells(i, 9).Value, Cells(i, 15).Value)
End Sub

у тебя там формула какая-то, и как я написал, будет обработана строка с последней формулой в столбце "O"

Ответить

ini

Дата: Среда, 24.08.2011, 13:51 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Формула будет растягиваться так же для каждой ячейки примерно в 1000 строк, а как можно добавить условие, если например в столбце B данные не заполнены то он игнорирует ячейку с формулой из столбца О?