Bom dia Filipe,
O formato da macro é que não está adaptado para tabela dinâmica, por exemplo, na tabela os dados podem ficar expandidos ou recolhidos, quando recolhidos, se eu escrevo a opção "enviado" para enviar o e-mail automático com as informações da linha,
ele não pega os valores, pois estão recolhidos. Não existe restrição em enviar mais de uma linha, o problema é que minha macro só verifica a linha da qual escrevo a palavra "enviado", não consegui adaptar ela para isso, não sei se entendeu o funcionamento,
por isso segue o código da macro de envio de e-mail:
Sub Worksheet_Change(ByVal Target As Range)
Dim oMensagem As Object
Dim oConfiguração As Object
Dim texto As String
Dim vFields As Variant
'Dim linha As Variant
Set oMensagem = CreateObject("CDO.Message")
Set oConfiguração = CreateObject("CDO.Configuration")
oConfiguração.Load -1 'Padrões CDO
Set vFields = oConfiguração.Fields
With vFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Se quiser enviar um e-mail pelo Windows Live:
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidor smtp"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Se seu servudor solicita uma conexão protegida (SSL)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "e-mail"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Update
End With
linha = ActiveCell.Row - 1
If Target.Address = "$K$" & linha Then
If Plan3.Cells(linha, 11) = "Enviado" Then
texto = "Prezado(a) " & Plan3.Cells(linha, 4) & "," & vbCrLf & vbCrLf & _
" Gostaria de informar que houve um alerta de vírus conforme a descrição abaixo:" & vbCrLf & vbCrLf & _
" Usuário: " & Plan3.Cells(linha, 4) & vbCrLf & _
" Data do Evento: " & Plan3.Cells(linha, 2) & vbCrLf & _
" Número de Alertas: " & Plan3.Cells(linha, 10) & vbCrLf & _
" Nome do Computador: " & Plan3.Cells(linha, 6) & vbCrLf & _
" Ação Antivírus: " & Plan3.Cells(linha, 7) & vbCrLf & _
" Nome da(s) Ameaça(s): " & Plan3.Cells(linha, 8) & vbNewLine & _
" Caminho da(s) Ameaça(s): " & Plan3.Cells(linha, 9) & vbCrLf & vbCrLf & _
"Pedimos a sua atenção para acessos a dispositivos móveis, acessos a sites da internet, e-mails suspeitos, downloads, que possam vir a trazer
alertas ou até mesmo incidências de vírus. Uma incidência de vírus pode causar muitos danos, pois o vírus pode se espalhar pela rede e infectar os demais computadores ou até danos mais sérios." & vbCrLf & vbNewLine & _
"Atenciosamente," & vbCrLf & _
"Help Desk"
With oMensagem
Set .Configuration = oConfiguração
.To = Plan4.Cells(linha, 4)
'.CC = Plan4.Cells(linha, 4)
'.BCC = "email"
.From = """Help Desk"" <e-mail>"
.Subject = "Alerta de Vírus"
.TextBody = texto
.Send 'Utilize Send para enviar o email sem abrir o Outlook
End With
On Error GoTo 0
Set oConfiguração = Nothing
Set oMensagem = Nothing
End If
End If
End Sub
