Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro com condicion...
 
Notifications
Clear all

Macro com condicional para email

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
4 Posts
2 Usuários
0 Reactions
1,272 Visualizações
RSS
 RenanOP
(@renanop)
Posts: 0
New Member
Topic starter
 

Ola amigos,

Ja li vários tópicos aqui e preciso da ajuda de vocês.

Tenho a seguinte planilha
A|B|C|D|E|F|G
Fornecedor - Valor de contrato - Vigência de contrato - Data Atual - Dias para vencer - Meses a vencer - status
Vamos ai que estou quebrando a cabeça.

Ja tentei montar " N " vezes uma macro que funcione da seguinte forma.
sempre que um contrato faltar 3 meses para vencer, deve se encaminhar um e-mail para uma unica pessoa. para isso a coluna Status( G1 ) tem 2 condição "NO PRAZO" e "FORA DO PRAZO" , sempre que aparecer FORA DO PRAZO deve se enviar um e-mail automático com as informações do valor do contrato(B1), quando irar vencer(C1) e qual fornecedor(A1).

Uso o Excel 2016 e o outlook 2016.
PS: nao sei se é necessario que configure o email ou algo do tipo estou uma enorme dificuldade se poderem me ajudar ficar muito agradecido

 
Postado : 12/09/2017 5:45 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

RenanOP,

Segue exemplo semelhante com endereços de email fictícios. Faça as necessárias adaptações.

Envio de Email de vencidos.zip
 
Postado : 12/09/2017 6:41 am
 RenanOP
(@renanop)
Posts: 0
New Member
Topic starter
 

wagner

Sem Palavras voce solucionou algo que estava me dando dor de cabeça muito obraigaod mesmo

Se nao for abusar muito de voce.

O testo como posso formatar
Negrito Sublindado a font essas coisas?

PS: Como eu coloco que "$", como eu trabalho com valores na hora que eu configurei o tipo de moeda R$ UR$ o '$' Nao aparece
resumindo um formado de moeda igual excel
MUITO OBRIGADO

 
Postado : 12/09/2017 1:22 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Renan,

Bom dia!

Para colocar o texto em negrito (exemplo):

    'Para colocar o texto em negrito
    strbody = "<font size=""3"" face=""Arial"" color=""black"">" & _
    "<b>Bom dia.</b><br>" _
                & "<br>" _
                & "<b>Segue planilha de recebimento de NF do dia " & Plan1.[A1].Value & "</b>"

Para outras formatações, igualmente, você precisa utilizar HTML e inserir na variável que compõe o texto do email.

Quanto a questão da formatação de valores como moeda você precisa usar o comando Format do VBA. Por Exemplo:

'Formatar o valor que está na célula A1 como moeda
Range("A1").Value = "R$" & Format(Range("A1").Value, "#,##0.00")
 
Postado : 13/09/2017 6:31 am
Forum Jump:
  Tópico Anterior
Próximo Tópico