Notifications
Clear all

Renomear anexo salvo e enviado por email conforme texteboxes

4 Posts
2 Usuários
0 Reactions
1,161 Visualizações
(@eufrasio)
Posts: 23
Eminent Member
Topic starter
 

Olá amigos!

Preciso de um apoio com este trabalho a dificuldade que enfrento é a seguinte: tenho um arquivo que é salvo e enviado por e-mail, até aí tudo bem, já consegui, quando clico no botão enviar e-mail ele salva e envia o anexo. Só que preciso renomear o arquivo conforme os texteboxes: Equipamento, Modelo e série. Ou seja, de acordo com os dados destes textebox o anexo assume os nomes que há neles.
No assunto do e-mail consegui inserir: .Subject = Range("A6") pegando texto que há na célula A6.
Tentei para renomeamento do arquivo mas não consegui.

Estou enviando o trabalho anexo se alguém poder me ajudar fico fico grato!

 
Postado : 14/01/2018 7:14 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Eufrásio,

Boa tarde!

Não sei se entendi corretamente. Vejamos:

O que você quer é que quando clicar no botão para enviar email o sistema salve o arquivo .PDF com o nome do Equipamento, seguido pelo Modelo e Nº de Série do Equipamento para que quando o mesmo for enviado pelo email vá para o destinatário com esse nome. É isso mesmo?

Se for isso, eu fiz alguma alterações que favorecem isso. Criei uma variável chamada NomeArquivo e nela armazenei o modelo e o número de série do equipamento separados por um hífen, pegando esses valores diretamente das caixa de texto respectivas. Não armazenei o nome do equipamento porque não achei nenhum textbox que contenha esse valor. Mas, isso é fácil de você alterar.

Após esse armazenamento, apenas substituí onde você coloca a palavra Local, pela variável NmeArquivo.

Veja se é assim.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/01/2018 12:50 pm
(@eufrasio)
Posts: 23
Eminent Member
Topic starter
 

Boa noite!!!

Amigo ficou perfeito!!! Excelente, estou extremamente grato; era tudo que eu precisava Muio obrigado mesmo!!!

 
Postado : 18/01/2018 6:20 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

De nada.

Por favor, vote positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 19/01/2018 9:07 am