consegui um código que na coluna "F" altere envia uma email, mais no código abaixo só envia email quando é digitado na célula.
mais o que pretendo é: accione a macro quando por uma formula altere a célula.
espero que me passam ajudar!!!!
abaixo à código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim texto As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
linha = ActiveCell.Row - 1
If Target.Address = "$F$" & linha Then
If Folha1.Cells(linha, 6) = "Período Vencido" Then
texto = "Prezado(a) " & Folha1.Cells(linha, 1) & "," & vbCrLf & _
" Nº Conta " & Folha1.Cells(linha, 7) & " Data Abertura " & _
Folha1.Cells(linha, 2) & " Periodo Venceu ou sofreu alterações." & _
vbCrLf & vbCrLf & " Veja informações abaixo:" & vbCrLf & _
" Status: " & Folha1.Cells(linha, 6) & vbCrLf & _
" Ação tomada: " & Folha1.Cells(linha, 5) & vbCrLf & vbCrLf & _
"Cordealmente. " & vbCrLf & vbCrLf & _
"Osvaldo Nicolau " & vbCrLf & "Gestor de Contas (Finanças)"
End If
With OutMail
.To = Folha1.Cells(linha, 1)
.CC = "osvaldonicolau0@gmail.com"
.BCC = "osvaldocandeeiro@outlook.com"
.Subject = "termino do Periodo"
'.HTMLBody = texto
.Body = texto
.Display 'Utilize Send para enviar o email sem abrir o Outlook
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
↧