Então eu usei este excelente artigo
Como enviar e-mail automaticamente com base no valor da célula no Excel? (extendoffice. Com) e juntei as respostas das respostas para fazer isso funcionar como eu preciso, mas a última parte que não consigo descobrir é como duplicar o que fiz para executar várias células. Eu tentei copiar/colar e reorganizar o código com valores diferentes como C4, C5, etc. mas sempre recebo erros. Eu tenho funcionado muito bem para onde, se o valor em C3 for < 5, ele enviará um e-mail quando a pasta de trabalho for salva. O que eu preciso agora, já que isso é para uma planilha de inventário, é ter vários outros valores de célula verificados em valores diferentes . Por exemplo, se apenas C3 < 5 envie um email. Se apenas C4 for < 6 envie um email. Se C3 < 5, C4 for < 6 e C5 < 3 envie um email. Seria bom se apenas um e-mail fosse gerado ao salvar com todos os valores que correspondessem aos critérios <. O que estou tentando fazer é enviar um e-mail automaticamente quando alguém salva a pasta de trabalho e o nível de estoque de um item caiu abaixo de um valor específico, então eu sei que um pedido precisa ser feito em breve. Até agora este é o meu código:
Esta pasta de trabalho
Private Sub Workbook_AfterSave (ByVal Success As Boolean)
On Error Resume Next
Dim xI como inteiro
Dim xRg como intervalo
Set xRg = Range("Informações!C3")
xI = Int(xRg.Valor)
Se xI < 5 Então
Ligue para Mail_small_Text_Outlook
Se acabar
End Sub
Módulo 1
Sub Mail_small_Text_Outlook()
Dim xOutApp como objeto
Dim xOutMail como objeto
Dim xMailBody como string
Set xOutApp = CreateObject("Outlook.Application")
Definir xOutMail = xOutApp.CreateItem(0)
xMailBody = "Olá" & vbNewLine & vbNewLine & _
"Esta é a linha 1" & vbNewLine & _
Range("Informações!C3") & vbNewLine & _
"Esta é a linha 2"
On Error Resume Next
Com xOutMail
.To = "Endereço de e-mail"
.CC = ""
.BCC = ""
.Subject = "enviar por teste de valor de célula"
.Body = xMailBody
.Exiba 'ou use .Enviar
Terminar com
Em erro GoTo 0
Definir xOutMail = Nada
Definir xOutApp = Nada
End Sub