Notifications
Clear all

Macro para envio de e-mail com critérios

5 Posts
2 Usuários
0 Reactions
1,146 Visualizações
(@apache81)
Posts: 17
Active Member
Topic starter
 

Boa tarde,
Necessito de ajuda para efetuar uma Macro em que a mesma abra o outlook já com o anexo da folha de excell, respeitando os seguintes critérios:
- A folha de excel deve estar como pdf
- Deve ser enviada em pdf com o nome de " Escala - célula D6 - Célula BJ4" (Se utilizarem o botão "Guardar pdf" guarda em pdf exatamente como quero que assuma o anexo no mail).
- Pretendo ser eu a preencher os campos de assunto, corpo do mail e os destinatários.

Anexo a planilha completa, já com o restante formatado, á exeção desta macro que necessito de ajuda. Assim que a tenha pronta, deixo para todos.

Nota: já agora, se souberem de alguma fórmula de colocar automáticamente o mês corrente, sem que altere quando for aberta novamente, também agradeço

Obrigado.

 
Postado : 24/09/2017 6:19 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Apache81,

Boa tarde!

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 : 25/09/2017 12:29 pm
(@apache81)
Posts: 17
Active Member
Topic starter
 

Boa tarde Wagner,
Desde já o meu muito obrigado pela ajuda.

Sim, era mesmo isto.
tenho ainda uma questão (isto por não perceber muito de vba), que é como fazer que o mail assuma os endereços de email no campo To: e no campo Cc:

No Campo To pretendo os emails que se encontram nas células BO47 a BO 58
No campo Cc: pretendo os emails que se encontram nas células BR47 a BR49

With EmailItem
.Subject = "" 'Assunto do Email
.Body = "" 'Corpo do email
.To = "" 'Destinatários do email
.CC = "" 'Destinatários em cópia
'.Importance = olImportanceNormal
.Attachments.Add Arquivo 'Anexo do email
.Display 'Exibe o email

Abraço e muito obrigado!

 
Postado : 25/09/2017 12:38 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok. Segue nova versão.

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 : 25/09/2017 1:58 pm
(@apache81)
Posts: 17
Active Member
Topic starter
 

Obrigado Wagner pelo tempo e paciência.
Abraço! :D

 
Postado : 25/09/2017 2:29 pm