Ir para conteúdo
Fórum Script Brasil

arthurferroni

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que arthurferroni postou

  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 Controle.Cells(linha, 6) = "30" Then texto = "Prezado Cliente " & Controle.cell(linha, 1) & "," & vbCrLf & "O seu Cetificado Digital vencerá em 30 dias. Favor entrar em contato conosco para a regularização." & vbCrLf & "Atenciosamente" & vbCrLf & "Access Contabilidade LTDA" & vbCrLf & "Telefone (035)3222-4705" End If endereço = Controle.Cells(linha, 1) Set arquivo = ActiveWorkbook With outMail .To = "arthurferroni@gmail.com" .CC = "" .BCC = "" .Subject = "Teste" .Body = "texto" .attachments.Add arquivo.FullName .Disply 'Utilize Send para enviar o e-mail sem abrir o outlook End With On Error GoTo 0 Set outMail = Nothing Set outApp = Nothing End If End Sub
×
×
  • Criar Novo...