PROGRAMAR EN VBA MACROS PARA EXCEL: febrero 2018

Como Enviar Mail con Tabla en Cuerpo del Mensaje con Excel





Me pregunta un suscriptor como enviar una tabla de Excel por Mail, pero en el cuerpo del mensaje no en archivo adjunto; este pos responde ese requerimiento, la macro toma una tabla de Excel y la envía por mail en el cuerpo del mensaje, este ejemplo es otra variante más de las distintas formas que se requiere enviar un mail utilizando Excel mediante Outlook, existen otros ejemplos que menciono a continuación quizás sean de utilidad como enviar mail con hoja Excel en cuerpo del mensaje y PDF adjunto, como enviar mail con Excel con un link, hiperlink, hipervinculo en el cuerpo del mensaje, macro muestra alerta y envía mail a varios destinatarioscomo enviar Mail con Excel utilizando Gmail o Yahoo, si quieres más ejemplos visita enviando mail con Excel.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  



La macro que envía una tabla de Excel en el cuerpo del mensaje de correo electrónico o mail, apela a una función que permite transformar una tabla de Excel en una tabla Web mediante una codificación html, es algo simple no requiere muchos conocimiento en este lenguaje de programación.

En el post macro que permite crear una tabla html a partir de una tabla de Excel se explicó en detalle como utilizar una macro para crear una tabla WEB, recomiendo echarle un vistazo.

La macro crea el objeto Outlook,ya que utiliza este aplicativo para enviar el mail que es creado con una macro de Excel, luego utiliza este objeto para enviar el mail esto se hace con el código:

Set OApp = CreateObject("Outlook.Application")

Luego se utilizan una seria de variables para crear el body o cuerpo del mensaje que incluye la tabla también, el cuerpo del mail surge de concatenar estas variables; la variables sini guarda el texto o string que hará de mensaje que acompañará a la tabla.

Nos detendremos un poco en la variable stbl, en esta variable se guarda la tabla creada con la función TableHTML, para aprender más acerca de como crear tablas WEB con una macro de Excel, visita el post como crear una tabla Web con macro de Excel.

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

La función TableHTML lo que hace básicamente es mediante un bucle ir recorriendo las filas y las columnas de la tabla e ir concatenando los valores que van surgiendo a medida que se ejecuta el bucle, creando el código html que permite crear una tabla Web.

Posteriormente se concatenan la variables anteriores, obteniendo el cuerpo del mail con la tabla incluida, cuya codificación html esta en la variable sbdy, que es la que en definitiva se utiliza al momento de enviar el mail.

Para enviar el mail se usa la siguiente codificación:

With OMail
.To = Dest
.CC = Cop
.BCC = SCop
.Subject = Asun
'.Attachments.Add rutapdf
'.Display
.HTMLBody = sbdy
.Send
End With

Observe que en .HTMLBody está el nombre de la variable mencionada y es la que contiene todo lo que va a decir el mail incluyendo la tabla que es el propósito del presente ejemplo denominado como enviar mail con una tabla de Excel en el cuerpo del mensaje, a continuación se muestra el código completo, que cada uno puede adaptar a sus necesidades, para mayor entendimiento mira el tutorial creado a tal fin.

Código que se inserta en un módulo

Sub EnviaMail()
Dim a As Worksheet, b As Worksheet
Dim OApp As Object, OMail As Object, sbdy As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ChDir (ActiveWorkbook.Path)
Dest = Range("A13")
Asun = "Resumen Diciembre"

Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)

sini = "<Div><H3><B>Estimado enviamos resumen de artículos comprados en el período de referencia. </B></H3><br></Div>"
stbl = TableHTML
sbdy = sini & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
sbdy = sbdy & vbNewLine & vbNewLine & stbl & vbNewLine & vbNewLine

With OMail
.To = Dest
.CC = Cop
.BCC = SCop
.Subject = Asun
'.Attachments.Add rutapdf
'.Display
.HTMLBody = sbdy
.Send
End With
Set OMail = Nothing
Set OApp = Nothing

Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("El mensaje se envió con éxito"), vbInformation, "AVISO"
End Sub

Function TableHTML() As String
Dim col As Long, fil As Long
canfil = ActiveSheet.UsedRange.Rows.Count
cancol = ActiveSheet.UsedRange.Columns.Count
stable = "<Div><table>"
For f = 1 To canfil
stable = stable & "<tr>"
    For c = 1 To cancol
        stable = stable & "<td>" & Cells(f, c) & " </td>"
    Next c
    stable = stable & "</tr>"
Next f
stable = stable & "</table> <br><br><br><br><br></Div>"
TableHTML = stable
End Function


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como convertir con macro una tabla Excel en una Tabla HTML o WEB





En este post se muestra como convertir o transformar con macro una tabla Excel en una Tabla HTML o WEB, cada uno le encontrará la utilidad necesaria, pero yo lo uso a los fines de poder enviar tablas de Excel por Mail, ejemplo que se publicará en breve, por favor suscribir para que sean notificados al correo electrónico cuando sea publicado, podrás realizar la suscripción en forma GRATIS desde el costado derecho de esta WEB solo debes ingresar tu correo y verificar un simple capcha..

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







   


Para comprender el ejemplo en forma fácil, es necesario algo de teoría básica sobre como se crean las tablas en lenguaje html, que es el que se utiliza para crear paginas WEB, en las siguientes líneas se explicará en forma muy básica para que el ejemplo sea comprensible.

Las tablas de HTML se forma o definen con las siguientes etiquetas esta son:

<table> : Permite crear la tabla
<tr>      : Permite crear cada fila de la tabla
<td>     : Permite crear cada columna de la tabla

En el lenguaje de programación HTML las etiquetas se inician con < > y se finalizan con < / >; por ejemplo  <table> inicia la etiqueta table que indica que comienza la tabla y </table> significa que termina la tabla, es decir se agrega la "/" al inicio del nombre de la etiqueta para indicar su finalización.

Veamos un ejemplo simple para que se entienda, se procederá es escribir el código HTML para poder crear una tabla HTML o WEB:

Producto Deposito       Agosto
Rodados 1 10688
Rodados 2 5355
Rodados 3 5145

El código HTML sería el siguiente y es el código que la macro hace y carga en la variable stable de este ejemplo para convertir la tabla de Excel en una tabla codificada en lenguaje HTML; para explicar en forma sencilla, se podría decir que la codificación va formando cada fila de la tabla con los datos de la columna correspondiente:


<table>

<tr>

     <td>Producto</td>
     <td>Deposito</td>
     <td>Agosto</td>

</tr>

<tr>

     <td>Rodados</td>
     <td>1</td>
     <td>10688</td>

</tr>


<tr>

     <td>Rodados</td>
     <td>2</td>
     <td>5355</td>

</tr>

<tr>

     <td>Rodados</td>
     <td>3</td>
     <td>5145</td>

</tr>

</table>  

Entonces el código anterior es un código HTML para formar una tabla HTML o WEB, con el código escrito anteriormente se podrá ver en cualquier explorador de páginas WEB la siguiente tabla:




Les dejo la dirección de un editor HTML on line donde se puede ingresar el código que genera la macro y observarán como se verá en una explorador de internet, ello es a los fines de controlar que el código HTML generado por la macro cree la tabla en forma correcta.

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

En función a lo expuesto anteriormente se debe crear una macro que forme el string o cadena de texto que será la codificación en lenguaje html que crea la tabla HTML con los datos de la tabla de Excel que está en el Rango A1:A13.

Producto Depósito Agosto Septiembre Diferencia
Rodados 1 10688 13.433,00 -2.745,00
Rodados 2 5.355,00 8.732,00 -3.377,00
Rodados 3 5.145,00 8.267,00 -3.122,00
Rodados 4 9.632,00 7.815,00 1.817,00
Camiones 5 2.545,00 8.872,00 -6.327,00
Camiones 6 3.567,00 9.157,00 -5.590,00
Camiones 7 5.249,00 8.271,00 -3.022,00
Utilitarios 8 5.180,00 8.210,00 -3.030,00
Utilitarios 9 5.285,00 8.506,00 -3.221,00
Total 52.646,00 81.263,00 -28.617,00
http://programarexcel.com https://youtube.com/programarexcel 

La macro crea un bucle recorriendo todas las filas y columnas del rango, va concatenando la variable  con los datos de la fila y columna correspondiente; por ende, cada vez que el bucle recorre una fila o columna con los datos de dicha celda, la variable va siendo cada vez más grande.

La macro va concatenando y cargando en la variable stable el texto de la fila 1 columna 1, luego el  texto de la fila 1 columna 2 y así sucesivamente con todas las filas, lo mismo hace con las columnas de las tabla.

De esa forma la variable stable será igual a una gran cadena de texto o string que será el código HTML de la tabla; en definitiva la macro va concatenando los datos formando el código HTML de la tabla WEB, la cadena o string que forma la macro que para el lenguaje HTML representa una tabla es la siguiente:

<Div><table><tr><td>Producto </td><td>Depósito </td><td>Agosto </td><td>Septiembre </td><td>Diferencia </td></tr><tr><td>Rodados </td><td>1 </td><td>10688 </td><td>13433 </td><td>-2745 </td></tr><tr><td>Rodados </td><td>2 </td><td>5355 </td><td>8732 </td><td>-3377 </td></tr><tr><td>Rodados </td><td>3 </td><td>5145 </td><td>8267 </td><td>-3122 </td></tr><tr><td>Rodados </td><td>4 </td><td>9632 </td><td>7815 </td><td>1817 </td></tr><tr><td>Camiones </td><td>5 </td><td>2545 </td><td>8872 </td><td>-6327 </td></tr><tr><td>Camiones </td><td>6 </td><td>3567 </td><td>9157 </td><td>-5590 </td></tr><tr><td>Camiones </td><td>7 </td><td>5249 </td><td>8271 </td><td>-3022 </td></tr><tr><td>Utilitarios </td><td>8 </td><td>5180 </td><td>8210 </td><td>-3030 </td></tr><tr><td>Utilitarios </td><td>9 </td><td>5285 </td><td>8506 </td><td>-3221 </td></tr><tr><td>Total </td><td>  </td><td>52646 </td><td>81263 </td><td>-28617 </td></tr><tr><td> </td><td> </td><td> </td><td> </td><td> </td></tr><tr><td>http://programarexcel.com </td
><td> </td><td>http://youtube.com/programarexcel </td><td> </td><td> </td></tr></table> <br><br><br><br><br></Div>


Este código anterior, prácticamente imposible de entender para un ser humano, un explorador de internet lo interpreta creando la siguiente tabla, que si se compara con la tabla que está en el rango A1:A13 es exactamente igual, es decir contiene los mismos datos.



El código completo de la función que permite convertir con macro una tabla Excel en una Tabla HTML o WEB es el siguiente.

Código que se inserta en un módulo

Sub CreaTablaHTML()
MsgBox ("La tabla es: " & TableHTML), vbInformation, "AVISO"
Debug.Print
End Sub

Function TableHTML() As String
Dim col As Long, fil As Long
canfil = 13
cancol = 5
stable = "<Div><table>"
For f = 1 To canfil
stable = stable & "<tr>"
    For c = 1 To cancol
        stable = stable & "<td>" & Cells(f, c) & " </td>"
    Next c
    stable = stable & "</tr>"
Next f
stable = stable & "</table> <br><br><br><br><br></Div>"
TableHTML = stable
End Function


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como Enviar Mail con Firma e Imagen Guardada en Nuestra PC en Cuerpo del Mensaje con Excel





En esta Web se han publicado muchos ejemplos con distintas variantes que permiten enviar Mail con Excel, en esta oportunidad presente un ejemplo bastantes solicitado, consiste en una macro que envía mail con una imagen guardada en nuestra PC y una firma al final del cuerpo del mensaje; también te pueden ser de utilidad como enviar mail con hoja Excel en cuerpo del mensaje y PDF adjunto, como enviar mail con Excel con un link, hiperlink, hipervinculo en el cuerpo del mensaje, macro muestra alerta y envía mail a varios destinatarioscomo enviar Mail con Excel utilizando Gmail o Yahoo.

Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.









   

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Es necesario para entender en funcionamiento de la macro descargar el ejemplo, una vez abierto el libro de Excel con la macro se podrá observar un botón, presionando el mismo se ejecuta la macro que permite enviar mail con una imagen Guardada en nuestra PC no en un servidos y firma inserta en el mail.

Como primer medida al ejecutar la macro se abre un Explorador de ficheros de Windows, filtrando solo las imágenes con extensión JPG, se debe seleccionar la imagen que se requiere enviar por mail, cerrándose el explorador de archivos  (click en el link para aprender más sobre su uso en VBA), si se cierra el explorador de ficheros sin seleccionar archivo la macro muestra un mensaje operación cancelada y termina la macro sin realizar nada.

Para poder realizar el envío de la imagen y firma en el cuerpo del mensaje se usa un poco de codificación html en forma básica, que nos ayudará a poder componer el mail, como se observa en el código siguiente se carga en variables el string o texto con el código html, que se usará luego para enviar el mail, esto se hace con el siguiente código.

En la variable sini se carga el titulo que hemos dado al mail:

sini = "<Div><H3><B>Estimado enviamos chiste del día. </B></H3><br></Div>"


En la variable stbl se carga el texto o string que consiste en la codificación html que nos permite agregar la imagen en el mail.

stbl = "<Div> <IMG SRC=""" & myfile & """><br><br></Div>"

Si se observa el código siguiente se puede ver que la variable spie es igual al string con la fima que irá en el mail

spie = "<Div><B><FONT COLOR= ""red "" >PROGRAMAR EXCEL <a href=""http://programarexcel.com"">Visit PROGRAMAR EXCEL.com</a> <a href=""https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ"">Visit YOUTUBE CHANEL</a> </FONT> <br>  Lincoln Road Mall <br> Miami Beach <br> Florida, USA <br> <br>" & _
       "Tel: 99999999<br> Fax : 99999999 <br> Whatsapp : 99999999 <br> E -mail: marcrodos@yahoo.es <br><br><FONT COLOR="" green ""> <FONT FACE= ""Webdings "" >P </FONT> Antes de imprimir este e-mail piense bien si es necesario hacerlo: El medioambiente es cosa de todos !</FONT><br><br>" & _
       "* * * * * * * * AVISO DE CONFIDENCIALIDAD * * * * * * * * * * <br><br>Este mensaje de correo electrónico y sus anexos (si los hay) están destinados exclusivamente para el uso del destinatario del mismo, y como tal, siguen siendo propiedad de PROGRAMAR EXCEL.COM. Este mensaje y los archivos adjuntos (si los hay) pueden contener información que es confidencial, privilegiada y exenta de divulgación en virtud de la ley aplicable. Si usted no es el destinatario de este mensaje, se le prohíbe la lectura, divulgación, reproducción, distribución, difusión o utilización de cualquier forma esta transmisión. La entrega de este mensaje a cualquier persona que no sea el destinatario no tiene la intención de renunciar a cualquier derecho o privilegio. Si usted ha recibido este mensaje por error, por favor notifique inmediatamente al remitente por e-mail y elimine de inmediato este mensaje de su sistema.</Div>"


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como hacer cronometro con macro VBA para Excel


Como determinar los días laborables entre dos fechas con feriados entre medio

Como buscar datos entre fecha y fecha

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Entonces una vez que se ha creado el cuerpo del mail con la codificación html y cargado en las distintas variables, solamente queda concatenar las variables para poder formar el body o cuerpo del mail, quedando en la variable sbdy el mail a enviar este incluye el titulo, la imagen y la firma; lo mencionado se hace de la siguiente forma:

sbdy = sini & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
sbdy = sbdy & vbNewLine & vbNewLine & stbl & vbNewLine & vbNewLine
sbdy = sbdy & spie

Para enviar el mail con Excel utilizando Outlook se utiliza la siguiente codificación, que es en definitiva la que nos permite enviar el mail con Excel, deberíamos tener obviamente Outlook configurado con la cuenta de mail.

With OMail
.To = Dest
.CC = Cop
.BCC = SCop
.Subject = Asun
.Attachments.Add rutapdf
.Display
.HTMLBody = sbdy
.Send
End With

La codificación completa de la macro que permite Enviar Mail con Outlook con Imagen Guardada en Nuestra PC y Firma Inserta en el Cuerpo del Mensaje; se presenta a continuación, ésta se debe ingresar en un módulo, sugiero descargar el ejemplo y hacer las modificaciones y adaptaciones a lo que que requiera cada uno.


Código que se inserta en un módulo

Sub EnviaMail()
Dim a As Worksheet, b As Worksheet
Dim OApp As Object, OMail As Object, sbdy As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ChDir (ActiveWorkbook.Path)
myfile = Application.GetOpenFilename("Archivos Excel (*.jp*), *.jp*")
If VarType(myfile) = vbBoolean Then
MsgBox ("Operación cancelada"), vbCritical, "AVISO"
Exit Sub
End If
Dest = Range("A3")
Asun = "Te tenga un Buen Día"

Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)

sini = "<Div><H3><B>Estimado enviamos chiste del día. </B></H3><br></Div>"
stbl = "<Div> <IMG SRC=""" & myfile & """><br><br></Div>"
'stbl = TableHTML
spie = "<Div><B><FONT COLOR= ""red "" >PROGRAMAR EXCEL <a href=""http://programarexcel.com"">Visit PROGRAMAR EXCEL.com</a> <a href=""https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ"">Visit YOUTUBE CHANEL</a> </FONT> <br>  Lincoln Road Mall <br> Miami Beach <br> Florida, USA <br> <br>" & _
       "Tel: 99999999<br> Fax : 99999999 <br> Whatsapp : 99999999 <br> E -mail: marcrodos@yahoo.es <br><br><FONT COLOR="" green ""> <FONT FACE= ""Webdings "" >P </FONT> Antes de imprimir este e-mail piense bien si es necesario hacerlo: El medioambiente es cosa de todos !</FONT><br><br>" & _
       "* * * * * * * * AVISO DE CONFIDENCIALIDAD * * * * * * * * * * <br><br>Este mensaje de correo electrónico y sus anexos (si los hay) están destinados exclusivamente para el uso del destinatario del mismo, y como tal, siguen siendo propiedad de PROGRAMAR EXCEL.COM. Este mensaje y los archivos adjuntos (si los hay) pueden contener información que es confidencial, privilegiada y exenta de divulgación en virtud de la ley aplicable. Si usted no es el destinatario de este mensaje, se le prohíbe la lectura, divulgación, reproducción, distribución, difusión o utilización de cualquier forma esta transmisión. La entrega de este mensaje a cualquier persona que no sea el destinatario no tiene la intención de renunciar a cualquier derecho o privilegio. Si usted ha recibido este mensaje por error, por favor notifique inmediatamente al remitente por e-mail y elimine de inmediato este mensaje de su sistema.</Div>"
sbdy = sini & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
sbdy = sbdy & vbNewLine & vbNewLine & stbl & vbNewLine & vbNewLine
sbdy = sbdy & spie

With OMail
.To = Dest
.CC = Cop
.BCC = SCop
.Subject = Asun
.Attachments.Add rutapdf
.Display
.HTMLBody = sbdy
.Send
End With
Set OMail = Nothing
Set OApp = Nothing

Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("El mensaje se envió con éxito"), vbInformation, "AVISO"
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends