Buenas Días a todos! Por favor solicito su ayuda con una macro, la situación esta en que navegando en internet vi que se puede abrir una ventana de correo nuevo de Outlook, por lo cual conseguí un código, este funciona y me abre la ventana, también logre personalizar el correo por HTMLBody, a como manualmente lo mandaba, también conseguí filtrar mi base de Excel y pegar las celdas visibles en el correo con el formato tal cual esta en la base, el problema es que el fragmento de la base que copio, se pega hasta arriba de la información personalizada y yo lo quiero en medio de la información por ejemplo: Lo esperado es: *Cuerpo del Correo* [Nombre del Destinatario], Buenas tardes, le envío los formatos que se procesaron hoy *Lugar de la Tabla* Tabla (Siempre van a ser 4 Columnas, filtradas por la Columna 1 Fecha, ya que envío lo que se trabaja el día) Columna 1 Fecha |Columna 2 |Columna 3 |Columna 4 | 21/02/2019 |PR-768 |Responsable |Descripción | 21/02/2019 |TJ-XX8 |Responsable |Descripción | 21/02/2019 |PGR-7Y4 |Responsable |Descripción | Quedo a la espera de tu confirmación Saludos! Tel. 9999-9999 Correo: 99999999@todoexcel1 (por decir un ejemplo) *Firma sin imagen*(También quiero colocar imagen de mi firma, pero no consigo lograrlo) [Fin del Correo] Pero realmente lo que pasa es que primero coloca la tabla y recorre hacia abajo el resto del correo, dando un acomodo poco práctico y nada presentable, anexo el código como lo estoy haciendo, por favor tomen en cuenta que no se mucho de programación de VBA pero entiendo un poco por favor sería de gran ayuda su participación para el diseño de este Sub Enviar_Correo() Const olFormatHTML As Integer = 2 Const ForReading As Integer = 1 Const TristateUseDefault As Integer = -2 Set MiPc = CreateObject("Scripting.FileSystemObject") Set Cadena = MiPc.GetFile("C:\Users\arurenaa\Downloads\TFM20180306121246.html").OpenAsTextStream(ForReading, TristateUseDefault) Firma = Cadena.ReadAll Dim i, j As Integer Dim pagina1 As Worksheet Set pagina1 = ActiveWorkbook.Worksheets("2019") Dim OutApp As Object Dim Correo As Object With Application .EnableEvents = False .ScreenUpdating = False End With 'Comprobar si Outlook esta abierto y en caso de no estarlo abrirlo On Error Resume Next Set OutApp = GetObject("", "Outlook.Application") Err.Clear If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application") OutApp.Visible = True Set Correo = OutApp.CreateItem(0) 'Crear el correo y mostrarlo With Correo .To = "veberny@truper.com" .Subject = pagina1.Range("N3").Value .HTMLBody = " body{color:black;font-family:Arial;font-size: 9pt;}" & _ " Verónica, &emsp;&emsp;&emsp;&emsp; Te envío por Valija las siguientes Solicitudes de Evaluación de Calidad (QC): &emsp;&emsp;&emsp;&emsp; [Folios QC] &emsp;&emsp;&emsp;&emsp; Favor de confirmarme si recibiste las solicitudes Saludos! " & Firma '.HTMLBody = pagina1.Range("N4:N19").Value '\\\ Así solo deja colocar la firma sin la información del correo Range("B6").Select ActiveSheet.Range("$A$6:$L$1545").AutoFilter Field:=2, Criteria1:=1, _ Operator:=11, Criteria2:=0, SubField:=0 Range("B6:E6").Select Range(Selection, Selection.End(xlDown)).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy 'ActiveSheet.ShowAllData 'Dejar de Filtrar la base .Display SendKeys "^({v})", True DoEvents End With With Application .EnableEvents = True .ScreenUpdating = True End With End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro para enviar correo con formato

Autor del tema LockoRn
Fecha de inicio 21 Feb 2019

LockoRn

New member

21 Feb 2019

Buenas Días a todos!

Por favor solicito su ayuda con una macro, la situación esta en que navegando en internet vi que se puede abrir una ventana de correo nuevo de Outlook, por lo cual conseguí...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro enviar rango de celdas por correo electrónico

Respuestas: 11

14 Mar 2024

Dante Amor M

Pregunta

Macro para enviar correo cuando se modifique una celda

Respuestas: 1

2 Jun 2023

Abraham.Valencia

Pregunta

Macro para enviar correo con tablas (corrección de código) avanzado

Respuestas: 3

11 Mar 2024

paremon

Pregunta

Enviar correo mediante Macro Excel

Respuestas: 1

4 Sep 2022

JasallBcn

Resuelto

Macro enviar correo por outlook con salto o adjunto de varios cuerpos

Respuestas: 4

25 Mar 2022

ErLuRa

Pregunta

Enviar correo con macro pero a nombre de otra cuenta

Respuestas: 1

16 Mar 2022

Abraham.Valencia

Pregunta

Macro enviar archivo por correo

Respuestas: 2

4 Ene 2022

Victor Paulin

Pregunta

Macro para enviar correo copiando y pegando desde Excel

Respuestas: 1

12 Jul 2021

sergiomartu

Pregunta

AYUDA!!! Macro para enviar un correo

Respuestas: 2

2 Jun 2021

sebithac

Pregunta

Enviar imagen por correo mediante una macro, usando outlook (no se visualiza en dispositivos moviles)

Respuestas: 0

23 Feb 2021

el_negro1

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba