auto send mail if

0

Hello, i have this macro:

Sub Enviar_correo()
    ActiveSheet.Range("Tabla4").Select
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
       .Item.To = "correo@gmail.com"
       .Item.Subject = "Asunto: Envío rango de Excel por email"
       .Introduction = "Ejemplo de rango adjunto con formato..."
       .Item.Send
    End With
End Sub

And I want it to be running continuously, and when O3 = <> "" send me the email. How can I build the VBA?

Thank you

Answer
Discuss



Answer the Question

You must create an account to use the forum. Create an Account or Login