alone_mech
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Очень нужна помощь в построении макроса:
Имеется защищённый лист с двумя диапазонами, разрешёнными для изменения разным людям (бухгалтер и слесарь). Доступ к ячейкам защищён паролем. После заполнения заявки бухгалтер нажимает кнопку, выполняющую отправку письма слесарю, сохраняет и закрывает документ.
Подскажите, как изменить макрос оправки письма, так, чтобы не пустые ячейки выходили из доступного для изменения диапазона?
Код:
Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
Application.ScreenUpdating = False
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
Err.Clear
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0)
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
sTo = ""
sSubject = "jurnal zayavok"
sBody = "Postupila novaya zayavka."
With objMail
.To = sTo
.CC = ""
.BCC = ""
.Subject = sSubject
.Body = sBody
.Attachments.Add sAttachment
.Send
End With
Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
End Sub
|
|
Всего записей: 1 | Зарегистр. 26-09-2017 | Отправлено: 15:32 26-09-2017 | Исправлено: alone_mech, 08:28 27-09-2017 |
|
