Здравствуйте,
Я пытаюсь отправить электронное письмо на основе косвенного изменения значения ячейки (например, > 7) с вложением электронной почты и конкретной ссылкой на измененные ячейки в теле моей исходящей почты. У меня есть косвенное изменение значения ячейки в зависимости от критериев. Однако я получаю сообщение об ошибке 424 при попытке установить переменную для вызова адреса ячейки в мою электронную почту. Не могли бы вы помочь? Я чувствую, что я рядом.
Dim xRg как диапазон
Dim xRgSel как диапазон
'Установить диапазон и цель
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre как диапазон
On Error Resume Next
Если Target.Cells.Count > 1, то выйдите из подпрограммы
Установите xRg = диапазон ("Q2: Q43")
Установите xRgPre = xRg.Precedents
Установите xRgSel = Intersect (Цель, xRg)
ActiveWorkbook.Save
Если xRg.Value > 7 Тогда
Вызов Mail_small_Text_Outlook
ElseIf (Not xRgPre — ничто) и (Intersect(Target, xRgPre).Address = Target.Adress) Тогда
End If
End If
End Sub
Подпрограмма Mail_small_Text_Outlook()
Dim xOutApp как объект
Dim xOutMail как объект
Dim xMailBody как строка
Установите xOutApp = CreateObject("Outlook.Application")
Установите xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привет, ячейки(я)" & xRgSel.Address(False, False) & _
" в рабочем листе '" & Me.Name & "' через 3 дня после приема" & vbNewLine & vbNewLine & _
"Пожалуйста, просмотрите и свяжитесь с лидами" & vbNewLine & _
"Спасибо"
On Error Resume Next
С xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Дней с момента потребления свинца"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Показать или .Отправить
Конец с
По ошибке GoTo 0
Установите xOutMail = Ничего
Установите xOutApp = Ничего
End Sub
Благодаря!
Я пытаюсь отправить электронное письмо на основе косвенного изменения значения ячейки (например, > 7) с вложением электронной почты и конкретной ссылкой на измененные ячейки в теле моей исходящей почты. У меня есть косвенное изменение значения ячейки в зависимости от критериев. Однако я получаю сообщение об ошибке 424 при попытке установить переменную для вызова адреса ячейки в мою электронную почту. Не могли бы вы помочь? Я чувствую, что я рядом.
Dim xRg как диапазон
Dim xRgSel как диапазон
'Установить диапазон и цель
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre как диапазон
On Error Resume Next
Если Target.Cells.Count > 1, то выйдите из подпрограммы
Установите xRg = диапазон ("Q2: Q43")
Установите xRgPre = xRg.Precedents
Установите xRgSel = Intersect (Цель, xRg)
ActiveWorkbook.Save
Если xRg.Value > 7 Тогда
Вызов Mail_small_Text_Outlook
ElseIf (Not xRgPre — ничто) и (Intersect(Target, xRgPre).Address = Target.Adress) Тогда
End If
End If
End Sub
Подпрограмма Mail_small_Text_Outlook()
Dim xOutApp как объект
Dim xOutMail как объект
Dim xMailBody как строка
Установите xOutApp = CreateObject("Outlook.Application")
Установите xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привет, ячейки(я)" & xRgSel.Address(False, False) & _
" в рабочем листе '" & Me.Name & "' через 3 дня после приема" & vbNewLine & vbNewLine & _
"Пожалуйста, просмотрите и свяжитесь с лидами" & vbNewLine & _
"Спасибо"
On Error Resume Next
С xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Дней с момента потребления свинца"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Показать или .Отправить
Конец с
По ошибке GoTo 0
Установите xOutMail = Ничего
Установите xOutApp = Ничего
End Sub
Благодаря!