Jump to content
Fórum Script Brasil
  • 0

Erro em tempo de execução 424


Question

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 = "[email protected]"
.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 to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149195
    • Total Posts
      645461
×
×
  • Create New...