Boa noite pessoal!
Gostaria de uma ajuda por gentileza em uma macro de excel.
Estou tentando criar uma macro para enviar e-mails de propostas e pedidos automaticamente para clientes.
Segue abaixo o código da macro que redigi:
Sub PROPOSAL()
'Macro utilizada para encaminhar proposta automática ao cliente
Dim EnviarPara As String
Dim Mensagem As String
Dim Titulo As String
EnviarPara = Cells(Application.ActiveCell.Row, 17)
Mensagem = "Bom dia, Prezado(a) " & Cells(Application.ActiveCell.Row, 16) & "." & vbCrLf & vbCrLf & "Segue anexo nossa proposta de número " & Cells(Application.ActiveCell.Row, 1) & "." & vbCrLf & vbCrLf & "Permanecemos a disposição para qualquer dúvida ou para o que for necessário para o encarramento desta negociação!" & vbCrLf & vbCrLf & "Atenciosamente," & vbCrLf & vbCrLf & "Paulo Fernando Moraes" & vbCrLf & "Vendas - Interior de São Paulo" & vbCrLf & "Telefone: (11) 4004-2222" & vbCrLf & "E-mail: PauloFMoraes@Eaton.com" & vbCrLf & "Eaton Corporation"
Titulo = "[" & Cells(Application.ActiveCell.Row, 3) & "-" & Cells(Application.ActiveCell.Row, 1) & "] Follow Up Proposta Eaton - " & Cells(Application.ActiveCell.Row, 4)
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.to = EnviarPara
.CC = ""
.BCC = ""
.Subject = Titulo
.Attachments.Add "C:UserspauloDesktopEatonteste.xlsm" 'PASTA TESTE NO MEU PC DE ONDE ESTÁ O ANEXO
.Body = Mensagem
.Display 'código .Send para enviar a mensagem e .Display para visualizar o texto no Outlook
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Set objOlAppAnexo = Nothing
End Sub
É o seguinte, toda vez que tento executar essa macro o excel exibe o seguinte erro:
"Erro em tempo de execução '-2147024894 (80070002)':
Não é possível localizar este arquivo. Verifique se o caminho e o nome do arquivo estão corretos."
Tenho certeza de que o arquivo está na pasta indicada e já pesquisei por diversos lugares e não encontrei nada concreto sobre este erro que me ajude a resolver o problema. Já tentei com arquivos do tipo word, pdf e excel, já tentei alterar o final do nome do arquivo pra.xlsm .pdf e nada, tentei de diversas maneiras e sempre dá o mesmo erro. Alguém poderia me ajudar a resolver ? Ficaria muito grato!
Postado : 04/03/2017 10:01 pm