none
Email de notificação do Excel RRS feed

  • Pergunta

  • Bom dia,

    como faço para o excel me enviar um e-mail sempre que houver datas vencidas numa determinada planilha.

    Ex: 

    Descrição Data para pagamento.

    Item 1 01/12/13 (vencido)

    Item 2 10/12/13

    Item 3 03/12/13 (vencido)




    quinta-feira, 5 de dezembro de 2013 12:30

Respostas

  • Suponha que a coluna em que aparece "vencido" seja a B, e os dados comecem em B2, e que você possua o Outlook instalado e configurado no seu computador:

    Sub fnc()
      Dim appOutlook As Object
      Dim olMail As Object
      Dim lngLast As Long
      Dim lngRow As Long
      Dim wks As Excel.Worksheet
      
      'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
      On Error Resume Next
      Set appOutlook = GetObject(, "Outlook.Application")
      If appOutlook Is Nothing Then
        Set appOutlook = CreateObject("Outlook.Application")
      End If
      On Error GoTo 0
      
      Set wks = ActiveSheet
      lngLast = wks.Cells(wks.Rows.Count, "B").End(xlUp).Row
      For lngRow = 2 To lngLast
        If wks.Cells(lngRow, "B").Value Like "*vencido*" Then
          Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
          With olMail
            .To = "destinatario@email.com"
            .Subject = "Assunto"
            .Body = "Texto do corpo do e-mail"
            .Display 'ou .Send para enviar direto
          End With
        End If
      Next lngRow
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 7 de dezembro de 2013 21:35
    Moderador