Mudar ativação de código vba

[Basole]

Com eu disse anteriormente, não testei o codigo pois nao tenho o outlook habilitado. 

Segeu abaixo c/ as correçoes, substitua no modulo1 da sua planilha:

 

Option Explicit

Sub Enviar_Email()
    '  *****   Envia e-mail pelo Outlook
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Dim uL As Long
    Dim rng As Range, c As Range
    
  uL = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row
  
  Set rng = Sheets("Plan1").Range("A7:A" & uL)
     
 
    For Each c In rng
    If c.Value = "X" Then   ' (X maiusculo)
 
 
   Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        
        With OutMail
            .To = Plan1.Cells(c.Row, 4)
            .CC = ""
            .BCC = ""
            .Subject = "Nível"
            .body = "Prezado(a) " & Plan1.Cells(c.Row, 3) & "," & vbCrLf & vbCrLf & _
                    "Segue acompanhamento do mês de Julho."
                    
             .Display    'Send para enviar o email sem abrir o Outlook
             .send
       End With
           On Error GoTo 0
       
        Set OutMail = Nothing
        Set OutApp = Nothing
      
        End If

   Next
    End Sub
 

 

[Felipe2791]

8 minutos atrás, Basole disse:

Com eu disse anteriormente, não testei o codigo pois nao tenho o outlook habilitado. 

Segeu abaixo c/ as correçoes, substitua no modulo1 da sua planilha:

 

Option Explicit

Sub Enviar_Email()
    '  *****   Envia e-mail pelo Outlook
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Dim uL As Long
    Dim rng As Range, c As Range
    
  uL = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row
  
  Set rng = Sheets("Plan1").Range("A7:A" & uL)
     
 
    For Each c In rng
    If c.Value = "X" Then   ' (X maiusculo)
 
 
   Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        
        With OutMail
            .To = Plan1.Cells(c.Row, 4)
            .CC = ""
            .BCC = ""
            .Subject = "Nível"
            .body = "Prezado(a) " & Plan1.Cells(c.Row, 3) & "," & vbCrLf & vbCrLf & _
                    "Segue acompanhamento do mês de Julho."
                    
             .Display    'Send para enviar o email sem abrir o Outlook
             .send
       End With
           On Error GoTo 0
       
        Set OutMail = Nothing
        Set OutApp = Nothing
      
        End If

   Next
    End Sub
 

 

@Basole Perfeito, testei em todos os cenários, inclusive enviando emails do relatório.

Agora é só o corpo de email e pronto.

 

Ótima ferramenta, obrigado a todos;

[CasaDoHardware]

Respondi a MP