Нужна помощь с использованием VBA, чтобы запросить отправку по электронной почте, когда количество продукта становится слишком низким - PullRequest
Новая
       10

Нужна помощь с использованием VBA, чтобы запросить отправку по электронной почте, когда количество продукта становится слишком низким

1 голос
/ 16 апреля 2020

Я пытаюсь использовать VBA, чтобы предложить пользователю отправить электронное письмо администратору, когда количество продуктов падает ниже количества повторного заказа. Все детали перечислены в таблице в Excel, а столбец Общее количество находится рядом со столбцом количества повторного заказа. У меня есть некоторый написанный код, но я не могу заставить работать условия, чтобы электронное письмо всплывало, когда QTY опускается ниже Reorder QTY. Мой код ниже. Проблема, с которой я столкнулся, заключается в том, что когда количество падает ниже количества RO, ничего не происходит. Любой совет? ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ Я новичок в VBA, поэтому я извиняюсь, если этот код является jibberi sh. 

Private Sub Reorder_Change(ByVal Target As Range)

On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Dim xRg As Range
Set xRg = Intersect(Range("I5:I100"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value <= Application.WorksheetFunction.VLookup(Target.Value, Sheets("Inventory List").Range("I5:J52"), 2, False) Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Part needs to be reordered" & vbNewLine & vbNewLine & _
"Part Number: " & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "ES ADMIN"
.CC = ""
.BCC = ""
.Subject = "Reorder parts!"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
...