Jump to content
vrfreres

Enviar Rango de Celdas vía Excel por Outlook

Recommended Posts

Estimados,

Estoy usando un código para remitir un rango de celdas seleccionadas desde una hoja de Excel vía Outlook,  lo encontré entre los casos resueltos de la página http://www.rondebruin.nl/win/s1/outlook/bmail3.htm, mi problema es que quisiera modificarlo para que los rangos remitidos puedan ser uno predeterminado que corresponde a los títulos (Rango A1:J3) y que el otro rango corresponda a las celdas que seleccione en la hoja con el cursor.

Agradeceré vuestra ayuda ya que no he encontrado vueltas al caso.

Ejemplo.xlsm

Share this post


Link to post
Share on other sites

Hola, 

Prueba con esto: 

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
'Working in Excel 2002-2016
    Dim Sendrng As Range
    Dim rangotitulos As Range
    Dim rangoglobal As Range

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Rango de los títulos
    Set rangotitulos = Sheets("Automoviles").Range("A1:J3")

    'Note: if the selection is one cell it will send the whole worksheet
    Set Sendrng = Selection
    
    Set rangoglobal = Union(rangotitulos, Sendrng)

    

    'Create the mail and send it
    With rangoglobal

        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            ' Set the optional introduction field thats adds
            ' some header text to the email body.
            .Introduction = "Estimados" + vbNewLine + "A continuación remitimos el listado de propuestas a ser entregadas para su emisión" + vbNewLine + "Quedamos atentos ante cualquier duda o consulta"

            With .Item
                .To = "vfretes@yacyreta.com.py"
                .CC = ""
                .BCC = ""
                .Subject = "Remisión de Propuestas " & Range("B3")
                '.Send
            End With

        End With
    End With

StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False

End Sub

Debes tener en cuenta que si no seleccionas bien el rango con los datos saldrán cosas raras.

He puesto '.Send para que veas como se genera el mensaje de correo antes de enviarlo. Quita la coma si quieres que se envíe directamente.

Share this post


Link to post
Share on other sites

Hola dogwall, muchas gracias por tu ayuda, he probado el código y selecciona correctamente el rango que es dinámico, pero los títulos no los ha copiado al correo, adjunto una muestra

lksndgf65.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png