Ir para conteúdo
Fórum Script Brasil
  • 0

Erro em tempo de execução 424


arthurferroni

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...