Notifications
Clear all

TRANSFORMAR GUIAS EM PDF E ENVIAR POR EMAIL

20 Posts
3 Usuários
0 Reactions
3,103 Visualizações
(@eraldofer)
Posts: 70
Trusted Member
Topic starter
 

Boa Tarde,
Trabalho em um setor financeiro, de um hospital onde faço o pagamento dos médicos prestadores, o que que acontece todo mês tenho que preencher uma planilha onde contem uma guia para cada médico, esta planilha serve para apurar o custo do setor, depois de preenchido com seus devidos valores (como se fosse um extrato de serviços prestados) tenho que enviar a guia correspondente de cada médico para seu email particular e assim o mesmo proceder com o envio da nota fiscal.
Do que Preciso?

Preciso de uma macro, que transforme cada guia da planilha em um arquivo pdf com o nome do médico, depois que este arquivo em pdf seja enviado por e-mail, a lista de emails esta na ultima aba da planilha com nome e e-mail do médico. Uso office 2010 na empresa e trabalho com o 2016 em casa, segue em anexo um modelo simples da planilha contendo apenas 5 médicos.
Atualmente trabalho com 2 planilhas com 28 médicos cada.
Usamos o Outlook na empresa
Ah sim importante
No final do envio gostaria de receber um email informando quantos emails foram enviados do total de tentativas feitas e os emails que deram falha por qualquer motivo, e todos os emails enviados gostariam que enviasse a confirmação de leitura.

Desde já agradeço!!
Será que é possível fazer algo do tipo?

 
Postado : 07/12/2016 10:48 am
(@miguel-70)
Posts: 207
Estimable Member
 

Baixe o arquivo em anexo e;
1º - Cole a pasta "Arquivos PDF" em meus documentos não mudar o nome da pasta caso mude tem que mudar nome na linha do código,
2º - A planilha cole na área de trabalho ou outro não importa somente a pasta com os anexo sim tem q esta em meus documentos,
3º - Faça as alterações nas linhas do código de endereço do email e senha do email preferencialmente no gmail,
4º - Quando estiver enviando então arisca em outro servidor.

 
Postado : 11/12/2016 12:17 pm
(@miguel-70)
Posts: 207
Estimable Member
 

O modelo em anexo vc pode adaptar para seu jeito.

Dúvidas posta aí

 
Postado : 13/12/2016 6:53 am
(@eraldofer)
Posts: 70
Trusted Member
Topic starter
 

Bom Dia,
Miguel70,

Então fiz os testes com seu ultimo arquivo enviado e o que que acontece, se eu ja tiver o PDF gerado na pasta ele envia, agora o arquivo não esta gerando o PDF esta dando algum tipo de erro, e sim, eu troquei o nome da pasta para a do meu computador.
Outra coisa verifiquei o servidor de email coorporativo, fiz as configurações mas não rodou
Servidor: Zimbra
smtp.inob.com.br
porta: 587

Gmail e Hotmail rodando normal!!

 
Postado : 15/12/2016 6:53 am
(@miguel-70)
Posts: 207
Estimable Member
 

Se mudar o nome da pasta tem que mudar nas linhas do código;
Salvar_Arquivo 'Atenção na linha abaixo "MP" é usuário nome do teu pc. Mude para o nome do teu pc, click meu computador e propriedade do sistema para descobrir o nome do teu pc. Tambem "Arquivos PDF" para a sua nova pasta

strCaminho = "C:UsersMPDocumentsArquivos PDF" & Range("f7").Value & ".pdf", Quality _

Enviar_email 'mudar aqui "Arquivos PDF para a nova pasta

strCaminho = objWS.SpecialFolders("mydocuments") & "Arquivos PDF" & "" & ActiveCell.Offset(0, 2) & ".pdf"

 
Postado : 15/12/2016 9:48 am
(@miguel-70)
Posts: 207
Estimable Member
 

Desculpe pela demora, mas conseguiu resolver?

 
Postado : 20/01/2017 11:13 am
Página 2 / 2