Здравствуйте,
Я намагаюся надіслати електронний лист на основі непрямої зміни значення клітинки (наприклад, > 7), із вкладенням електронного листа та конкретним посиланням на змінені клітинки в тілі мого вихідного листа. Я маю непряму зміну значення комірки на основі критеріїв. Однак я отримую помилку 424 під час спроби встановити змінну для виклику адреси комірки в моїй електронній пошті. Чи могли б ви допомогти? Я відчуваю себе поруч.
Dim xRg As Range
Dim xRgSel як діапазон
«Встановити діапазон і ціль
Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Dim xRgPre як діапазон
On Error Resume Next
Якщо Target.Cells.Count > 1, то вийдіть із Sub
Встановити xRg = діапазон ("Q2:Q43")
Встановіть xRgPre = xRg.Precedents
Встановити xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Якщо xRg.Value > 7 Тоді
Телефонуйте Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Тоді
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Зменшіть xOutApp як об’єкт
Змінити xOutMail як об’єкт
Заглушити 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 (This Workbook.FullName)
.Показати 'або .Надіслати
Кінець з
При помилці GoTo 0
Встановіть xOutMail = Нічого
Встановіть xOutApp = Нічого
End Sub
Спасибо!
Я намагаюся надіслати електронний лист на основі непрямої зміни значення клітинки (наприклад, > 7), із вкладенням електронного листа та конкретним посиланням на змінені клітинки в тілі мого вихідного листа. Я маю непряму зміну значення комірки на основі критеріїв. Однак я отримую помилку 424 під час спроби встановити змінну для виклику адреси комірки в моїй електронній пошті. Чи могли б ви допомогти? Я відчуваю себе поруч.
Dim xRg As Range
Dim xRgSel як діапазон
«Встановити діапазон і ціль
Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Dim xRgPre як діапазон
On Error Resume Next
Якщо Target.Cells.Count > 1, то вийдіть із Sub
Встановити xRg = діапазон ("Q2:Q43")
Встановіть xRgPre = xRg.Precedents
Встановити xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Якщо xRg.Value > 7 Тоді
Телефонуйте Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Тоді
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Зменшіть xOutApp як об’єкт
Змінити xOutMail як об’єкт
Заглушити 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 (This Workbook.FullName)
.Показати 'або .Надіслати
Кінець з
При помилці GoTo 0
Встановіть xOutMail = Нічого
Встановіть xOutApp = Нічого
End Sub
Спасибо!