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

Автор ini, 24.08.2011, 02:13

« назад - далее »

ini

Здравствуйте, есть макрос:
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 создает новое письмо, с определенным адресом и темой, взятой из определенной ячейки. К сожалению, данный макрос, создает столько писем, сколько заполнено строк.
Подскажите как необходимо модернизировать макрос, что бы он срабатывал только на последнюю заполненную ячейку с темой
Пример во вложении. Заранее спасибо :)

kuklp

Зачем там столько кнопок? Вот пример, обрабатывает запись по двойному клику в строке.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771