Jump to content
Fórum Script Brasil

arthurferroni

Membros
  • Content Count

    1
  • Joined

  • Last visited

Everything posted by arthurferroni

  1. estou enfrentando problemas para executar esse codigo, ele detecta o vencimento de datas e me avisa por email quando faltar 30 dias para vencer, e esta me retorna este erro. segue o codigo em anexo Public Sub detectarvencimento() Set sheet1 = Sheets("Planilha1") Dim outApp As Object Dim outMail As Object Dim texto As String Dim endereco As String Set outApp = CreateObject("outlook.application") Set outMail = putapp.createitem(0) linha = ActiveCell.Row + 1 If Target.adrres = "$F$" & linha Then If
×
×
  • Create New...