[RESOLVIDO] Erro - Não é possível localizar este arquivo 2147024894
Enviado: Seg Mai 04, 2020 11:10 pm
Pessoal,
A linha que está dando erro é:
strLocalBoleto = CurrentProject.Path & "\Print's\" & Me("Renomear Boleto") & ".pdf"
Muito obrigada
Cy Rangel
- 1
A linha que está dando erro é:
strLocalBoleto = CurrentProject.Path & "\Print's\" & Me("Renomear Boleto") & ".pdf"
- 2
Código: Selecionar todos
Dim strLocalDemonstr As String
Dim strLocalBoleto As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object
Const olMailItem = 0
Const olByValue = 1
Set objOut = CreateObject("Outlook.application")
Set objmail = objOut.CreateItem(olMailItem)
Set objAnexo = objmail.Attachments
With objmail
.SentOnBehalfOfName = Me!Conta
.To = Me("E-mail")
.Subject = Me!Assunto & " - " & Me!Segurado
.Body = "Prezados (as)," & vbNewLine & vbNewLine & Saudacao & vbNewLine & vbNewLine _
& Me!Mensagem & vbNewLine & vbNewLine & vbNewLine & vbNewLine _
& Me!Assinatura & vbNewLine & vbNewLine
.Save
strLocalBoleto = CurrentProject.Path & "\Print's\" & Me("Renomear Boleto") & ".pdf"
objAnexo.Add strLocalBoleto, olByValue, 1
objmail.Display
Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing
End With
End Sub
Muito obrigada
Cy Rangel