Ir ao conteúdo
  • Cadastre-se
Eliel_Silva

Email automático - vba

Recommended Posts

Caros, boa Tarde. Estou utilizando um código VBA para envio de e-mail automático utilizando dados do Excel, para controle de vigência de Seguros. porém é que o código só envia o e-mail se clicar na célula e alterá-la, não envia a partir de uma alteração por formulas. Como faço para alterar?

 

Gostaria de enviar o alerta para Seguros e IPVA, como ambos estão na mesma sheet, esta dando erro de duplicidade do Objeto/Procedimento.Como faço pra usar duas "Private Sub Worksheet_Change" na mesma sheet?

Segue cod. utilizado.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    linha = ActiveCell.Row - 1
    If Target.Address = "$H$" & linha Then
        If Plan2.Cells(linha, 8) = "Solicitar Renovação" Then
            texto = Plan2.Cells(linha, 8) & " Seguro Ref. Veículo:  " & Plan2.Cells(linha, 3) & " com Vigência final em:" _
                    & Plan2.Cells(linha, 7)
        End If
        With OutMail
            .To = "elielcont@hotmail.com"
            .cc = "elielcont@hotmail.com"
            .BCC = ""
            .Subject = "Vencimento de Apólice"
            .HTMLBody = texto
            .Send   'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

 

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

×