Ir ao conteúdo
  • Cadastre-se
André Costa TI

Macro excel - enviar email automático

Recommended Posts

Preciso de uma macro que, ao digitar o mês do vencimento de contrato de um funcionário, a macro filtra os funcionários com o respectivo mês digitado, copie as células com os dados do(s) funcionário(s), e envie-os por email (Outlook) para todos os chefes. Os nomes dos chefes e os respectivos endereços eletrônicos estão em um sheet separado. Segue em anexo um exemplo.

 

Caso precisem de alguma informação, me avisem. Preciso desta macro urgente :/

 

Example mail.xls

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Sub EMail_Automático()

    Dim olApp As Object, olMail As Object
    If Range("B1").Value >= Range("a1").Value Then
        Set olApp = CreateObject("Outlook.Application")
        Set olMail = olApp.CreateItem(0)
    
        'olMail.From = "fulano@hotmail.com" 'Quem está enviando o e-mail. Pode deixar desabilitado. _

        olMail.Subject = "Teste1" 'Campo Assunto

        olMail.Body = "Teste2" 'Campo referente a mensagem que se quer enviar

        olMail.To = "f046779@correio.intra.bnb" 'Endereços dos destinatários

        'olMail.cc = "F114170" 'Campo Com cópia

        'olMail.Attachments.Add "C:/CONFIG.SYS" 'Arquivo a inserir

        olMail.Send 'Envio direto. Se quiser ver primeiro o e-mail para depois enviar, substitua _
        esse comando por Display
        
        Set olApp = Nothing
        Set olMail = Nothing
    End If
End Sub

Só adaptar ao seu problema.

Qualquer coisa só avisar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×