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: cobrador1.jpg Após a execução da macro, o e-mail é preparado para ser enviado. cobrador2.jpg 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/

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s