Cobrador de status

Esta ferramenta é algo que uso bastante. É um lembrador, que automaticamente envia e-mails para várias pessoas, cada uma com o seu assunto específico. Download aqui. Deve-se ter o MS Outlook instalado. Exemplo: Após a execução da macro, o e-mail é preparado para ser enviado. Abrindo a caixa-preta. Uso uma função chamada “E_Mail”, já formatada para envio de e-mails, que aliás me foi passada pelo Maurício Cota. Sub E_Mail(sHTMLBody As Variant, sSubject As Variant, sTo As Variant, bHasAttachment As Boolean, boolconf As Boolean, _ Optional sPathAttachment As String, Optional sCC As String, Optional sBC As String) Argumentos: corpo do texto (em html), assunto, destinatário e outros. Para cada linha da tabela, troco o “fulano” pelo nome da pessoa, e passo o e-mail e o corpo do texto para a função e_mail. For i = 1 To nl ‘Troca fulano pelo nome da pessoa sTexto = Range(“b3”) sTexto = Strings.Replace(sTexto, “fulano”, eDados(i, 1)) & “<br>” & eDados(i, 3) E_Mail sTexto, sTitulo, eDados(i, 2), False, True Next i Onde <br> é break line em html, e eDados é a tabela de dados lida.

---

Ideias técnicas com uma pitada de filosofia: https://ideiasesquecidas.com Ferramentas Excel-VBA: https://ferramentasexcelvba.wordpress.com/