Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Enviar e-mail via E...
 
Notifications
Clear all

Enviar e-mail via Excel - Mudança no Código

 
2024 - VBA & Macros
Post Recente por Miranda 11 anos atrás
7 Posts
2 Usuários
0 Reactions
1,673 Visualizações
RSS
 Miranda
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Senhores, boa tarde!!

Fiz a pesquisa no fórum e consegui achar um link indicado pelos foristas, sobre o envio de e-mail via excel.
O código funciona a partir de uma condicionante de célula, se o status for igual a concluído, dispara automaticamente o e-mail ao endereço co-relacionado. Por favor, poderiam me indicar uma mudança na rotina que, após a atualização dos dados (seja por fórmula ou manual), na linha de status (substituindo o concluído, por: data de vencimento igual ou menor do que a 45 dias), mas que somente após a ativação de um botão de comando (ENVIAR, por exemplo), seja enviado e-mail ao endereço co-relacionado?
Segue o Exemplo.
Abraços.

 
Postado : 02/02/2014 10:23 am
 Miranda
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Caiu a conexão de rede e o Anexo não foi.

Macro para enviar conteúdo de Célula do Excel por e-mail.rar
 
Postado : 02/02/2014 10:26 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Miranda,

Boa Tarde!

Veja se é assim.

Macro para enviar conteúdo de Célula do Excel por e-mail.zip
 
Postado : 02/02/2014 1:28 pm
 Miranda
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Wagner, muito obrigado pela ajuda!!
Testei o exemplo que vc atualizou, mas ao utilizar e alterar o status das outras linhas, retornou o seguinte erro:
Erro em tempo de execução '-2147221238(8004010a0)':
o item foi movido ou excluído.
Na depuração, linha do código marcada:.To = Plan1.Cells(i, 1).
Por favor, o que pode ser?

 
Postado : 02/02/2014 1:49 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Miranda,

Não sei dizer o que está ocorrendo pois aqui o código rodou normalmente. Você pode dizer detalhadamente como está testando?

 
Postado : 02/02/2014 2:02 pm
 Miranda
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Somente copio o meu endereço de e-mail para os campos onde constam os outros endereços que vieram na planilha e também copio a condição de status (para data de vencimento igual ou menor do que a 45 dias) nas mesmas linhas correspondentes ao endereço de e-mail modificado. Abçs

 
Postado : 02/02/2014 2:07 pm
 Miranda
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Agora alterei a ultima parte do código, utilizando .Send (para enviar sem abrir o Outlook) e somente a primeira linha teve os dados enviados como e-mail e no final, o mesmo erro persiste.

 
Postado : 02/02/2014 2:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico