Jump to content

Enviar mediante VBA una hoja por correo.


Recommended Posts

Hola colegas, buenas tardes, buenos días o buenas noches según el caso de ustedes y espero se encuentren bien de salud.

Hoy necesito una ayuda más de ustedes. Hace más de un año hice un Proyecto (Conciliación y Disponibilidad Bancaria) con ayuda de algunos de ustedes que me es muy útil en mi trabajo diario y que funciona perfectamente, pero hubo en mi empresa un cambio de mando y el Jefe nuevo que entró quiere que le envíe por e-mail diariamente el reporte. Mis conocimientos no llegan hasta ahí, pero sé qué se puede hacer porque en algún momento recuerdo haber oído a Sergio Alejandro Campos hablar del tema.

Ahora, ¿qué necesito? Este Proyecto trabaja con tres (3) Bancos; (BANDEC, BFI, BPA), pero mi empresa opera con dos, BANDEC y BFI y necesito (de ser posible) crear en el Formulario FrmInsertarBFI un CommandButton que al oprimirlo me envíe al correo o no sé cómo funciona eso porque realmente no lo he visto antes las Hojas Diario y DiarioBFI, de ser posible de manera separada, pero en el mismo correo. No sé si esto es posible, pero acudo a ustedes para que me orienten y me ayuden con el tema.

En mi trabajo se usa el Outlook.

Realmente estoy redactando esto de manera apresurada porque tengo poco tiempo de corriente eléctrica. De no entender lo que necesito, por favor me lo hacen saber.

Gracias de antemano.

Un saludo y mis respetos a todos

Pino

Brigada Mtto Disponibilidad v4.0.2 .xlsm

Link to comment
Share on other sites

Buenos días colegas. Espero se encuentren bien de salud.

Hola Haplox, que tal.

Te comento que yo conseguí uno de los código  de Sergio Alejandro Campos (EXCELeINFO) y que me funciona bien, pero igual me gustaría que me ayudara con un par de temas al respecto.

Option Explicit
Sub EnviarHojaEmailBFI()
Dim NombreArchivo As String
Dim RutaTemporal As String
Dim Mensaje As String

Hoja10.Activate
On Error Resume Next

Mensaje = "Vas a enviar la Disponibilidad por email. Ingresa el nombre con que se enviará el archivo o deja en blanco para que tome el nombre por defecto."
NombreArchivo = InputBox(Mensaje, "Sistemas COLOSSUS")

If NombreArchivo = "" Then NombreArchivo = ActiveSheet.Name

RutaTemporal = Environ("temp") & "\"
NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx"
ActiveWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs NombreArchivo
Application.DisplayAlerts = True
CommandBars.ExecuteMso ("FileSendAsAttachment")
ActiveWorkbook.Close False
Kill NombreArchivo
'
On Error GoTo 0
'
End Sub

Me gustaría que se incluyera el Destinatario que siempre es fijo (jefe.economico@brg.cco.gaviota.cu) y el Asunto  , que puede ser ("Disponibilidad hasta hoy") dentro del código, yo solo llenaría el cuerpo del corro porque debe tener algunos cambios cada envío.

Yo intenté creando esas dos variables (Asunto y Destinatario), pero no pude concretarlo, te agradecería si me ayudaras.

Un saludo a AValencia, Antoni, JSD, y demás.

Mis respetos y saludos.

Pino

 

Disponibilidad Brigada Mtto v5.0.2 .xlsm

Link to comment
Share on other sites

Buenos dias colegas. Espero su salud sea excelente.

Buenos dias Haplox, Como se encuentra. Espero que muy bien al igual que su familia, al menos son mis deseos.

Haplox, en estos momentos no puedo probar su solución por asuntos agenos a mi voluntad, pero seguro mañana le respondo, además, estoy completamente seguro que funcionará de manera perfecta. Sus conocimientos son bastos y su experiencia enorme, asi que no me cabe duda que será una excelente solución.

Un abrazo a todos y mis respetos.

Saludos

Pino.

Link to comment
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
  • 28 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      150
    • Comments
      88
    • Reviews
      25

  • Crear macros Excel

  • Posts

    • Gracias a @Israel Cassales que me advirtió de un fallo en la formula del archivo, pero el procedimiento VBA si esta bien Lo correcto es  =INDICE(B2:N11,COINCIDIR(Q1,A2:A11,),COINCIDIR(P1,B1:N1,)) Es decir, estaba invertido la fila y columna, como argumento de INDICE  
    • Gracias por la confianza, a lo que yo me refiero es que en la formula INDICE ves que después de la matriz, sigue la fila y luego la columna, como en el ejemplo hace referencia a la celda, ésta toma primero la columna y después la fila. Eso hace que el resultado no sea el mismo con respecto al que da el ejemplo correcto del VBA.   Y como dices, esperar la respuesta, que la opción del VBA debería cumplir con la solicitud sin problema. Saludines.  
    • Hola Israel Tranquilo nada de entrometido... he visto el archivo y no lo veo invertido o no entiendo exactamente a que te refieres Esperemos que el consultante, suba su propio libro, para ver claramente su caso ¡Gracias por el aviso!   Saludos   
    • Saludos cordiales @Gerson Pineda Lamento si escribo en tu presentación pero no me dejo mandarte algún mensaje, me dice que estoy limitado a 0 mensajes por día 😁 No quiero parecer entrometido y me disculpo de antemano pero me pareció bien el avisarte sobre el detalle en el tema siguiente: Extraer valor de una tabla Las referencias de columna y celda en el COINCIDIR están invertidas devolviendo un valor diferente al correcto como te da la sentencia en VBA. Saludines
    • ¡Hola! ¿Como estan? Me gustaría de saber cómo hacer un hipervínculo dinámico, que lleve a un sitio web externo, al elegir una opción de una lista desplegable. Es decir, cada opción que elijo de la lista desplegable, el hipervínculo cambiará. EN EL CASO DE LA IMAGEN A CONTINUACIÓN, QUIERO QUE CADA NOMBRE DE EJERCÍCIO QUE ELIJO DE LA LISTADESPLEGABLE 'D3' , EL HIPERVÍNCULO DE I3 CAMBIE AL VÍNCULO DEL VIDEO CORRESPONDIENTE AL EJERCICIO EN YOUTUBE:
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy