............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

enviar correo por búsqueda de fecha

Ver el tema anterior Ver el tema siguiente Ir abajo

enviar correo por búsqueda de fecha

Mensaje por GEAR el Vie Sep 09, 2011 3:42 pm

Buen dia a todos, vengo otra vez con mi macro que postee hace algunas semanas sobre enviar correos por outlook desde excel y todo salio de maravilla gracias a la ayuda y tiempo que me dedico el maestro Cacho R. pero ahora me surgió una una duda para realizar este metodo de otra forma y es hacerlo mediante fechas, por ejemplo en vez de enviar correos por posicion donde se encuentre el cursor seria por medio de algo asi como un filtro de fechas en este caso seria por el campo "fecha estimada" de la tabla que lo que haga es que haga como una consulta o busqueda de los registros que tengan la fecha actual y me genere un correo con los datos de ellos en el mensaje ya sean 4, 1 o varios; seria solo un correo con el contenido del folio y TAG. lo intente con algo llamado "specialcells" pero creo que salio peor de lo que esperaba jeje y trate con otro codigo pero la verdad no le entendi nada aunque hace algo similar a lo que quiero, espero me puedan ayudar dejo el archivo adjunto.

Gracias y Saludos.
Archivos
correo.xlsm No tienes los permisos para descargar los archivos.(28 KB) Descargado 11 veces

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Mar Sep 13, 2011 11:37 am

A ver si esto te sirve:
Aqui no tienes que seleccionar nada, la Macro pasara por todos los datos y enviara los correos en aquellos que cumplen con el criterio =hoy()

Sub EnviarCorreo()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim Hoy As Date

Hoy = Format(Now(), "dd/mm/yyyy") ' Now es la formula HOY() pero en VBA

For r = 5 To Hoja1.Range("J5").End(xlDown).Row ' pasara de uno en uno por cada celda de J5 hasta el ultimo dato
If Range("J" & r).Value = Hoy Then 'Valua cada celda del Rango "J5:ultima de J" si es igual a hoy si es asi ejecuta codigo
'si es falso pasa hasta despues de end if (ya que no le coloque else)
Email = Cells(r,

Subj = "Número de Folio" & "%20" & Cells(r, 2)

Msg = ""
Msg = Msg & "Estimable " & Cells(r, & "," & vbCrLf & vbCrLf
Msg = Msg & "Se le notifica de un nuevo requerimiento " & vbCrLf & vbCrLf
Msg = Msg & "Asunto:" & "%20" & Cells(r, 7) & "%20"

Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
Msg = Msg & "RUTA:" & vbCrLf & vbCrLf
Msg = Msg & "\\Centauri\gcpc\Requerimientos_Sistemas\RS11-" & Cells(r, 3) & "\" & Cells(r, 2) & vbCrLf

Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, """", "''")
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End If
Next r
End Sub
Archivos
correo.xlsm No tienes los permisos para descargar los archivos.(27 KB) Descargado 20 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por GEAR el Lun Sep 19, 2011 12:41 pm

Hola que tal moisés muchas gracias por tu respuesta y disculpa mi tardanza pero andaba algo atareado y con las fiestas patrias me desconecte un rato del mundo jejeje, pero en fin; gracias por tu ayuda y va de maravilla la macro.

Solo una duda mas como puedo hacer una macro que me crea una hoja (tal vez provisional o temporal no se si se pueda) y que me muestre solo los registros que se van a vencer de dicha fecha (hoy por ejemplo), osea una consulta que al presionar el botón me cree esa hoja en el mismo excel; yo hice una como tipo filtro avanzado (te adjunto el archivo) pero como esa hoja solo sirve para consulta y se borra después ps no tiene mucho caso, te agradeceré mucho si me hechas la mano en esto y gracias de nuevo
Archivos
correo1.xlsm No tienes los permisos para descargar los archivos.(31 KB) Descargado 14 veces

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Lun Sep 19, 2011 1:23 pm

Por favor Explica a que te refieres con "se borra despues"??
veo que esa macro esta bien Elaborada, ya que cada vez que cambia el valor de la fecha estimada se muestran los valores deseados

avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por GEAR el Mar Sep 20, 2011 11:52 am

Que tal siento no haberme explicado bien, bueno la hoja que se crearia digamos llamada "consulta" dentro del mismo libro de excel se elimina diaria despues de realizar la consulta de los registros (esto seria despues de que alguna macro cree la hoja con los datos a buscar de la fecha presente) que se verificarian ese fecha o dia localizados.

Otra forma es de como podria aplicar esta macro de la hoja consulta que adjunte a la hoja bitacora osease que en la misma hoja tenga tanto la tabla como el filtro de busqueda sin recurrir a crear o utilizar otra hoja dentro del mismo libro. Cabe aclarar que la macro yo no la hice ya que soy medio dummie para esto jejeje, solo entendi algunas cosas y las aplique de forma como estaba en el ejemplo. espero tu ayuda.

Saludos.

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Miér Sep 21, 2011 4:40 pm

tomare la segunda opcion, pero ......no la enviare hoy, mi propio trabajo es importante.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Jue Sep 22, 2011 1:04 am

Aca el archivo un combobox con las fechas y un listbox que muestra los datos relacionada con esas fechas
Archivos
correo 2.xlsm No tienes los permisos para descargar los archivos.(44 KB) Descargado 12 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por GEAR el Jue Sep 22, 2011 11:34 am

Muchas gracias moises la probare y te dire como va

Saludos.

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Jue Sep 22, 2011 12:43 pm

Ahh nota el Archivo tiene el anterior codigo de eniar correo, no el que yo diseñe pero eso no tiene nada que ver con lo que hice mis codigos se encuentran en el ThisWorkbook y en hoja1 de VBA
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por GEAR el Mar Sep 27, 2011 12:48 pm

Hola moises que tal, bueno estuve checando tus codigos y dejamen decirte que algunas cosas no les entendi jeje, pero bueno logre quitar algunos campos en el listbox que no necesitaba visualizar, el unico problema que tengo es que no puedo cambiar el ancho de la columna del listbox que lo quiero es hacer mas ancha la columna del TAG, me fui a las propiedades del listbox para hacerlas mas anchas pero eso afecta a todas y solo quiero la del TAG, no se si exista otra manera de hacerlo para que solo afecte a esa columna de ahi en fuera esta perfecta la macro, ah otra cosa nose si el combobox se pueda cambiar por una caja de texto simple o una celda asi como en el segundo archivo que subi; muchas gracias por tu tiempo y ayuda.

Saludos.
Archivos
correo 2.xlsm No tienes los permisos para descargar los archivos.(41 KB) Descargado 10 veces

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por moises melgar el Mar Sep 27, 2011 9:44 pm

Realmente no he podido ver con claridad las consultas Sorry
lo que pides se controla asi:
Hoja1.ListBox1.ColumnWidths = "anchocol1;anchocol2;anchocol3;anchocol4"
asi que le agrege al final de la macro esto:
Código:
Hoja1.ListBox1.ColumnWidths = "80;300;70;80"
y listo
He leido en ayuda de ExceL que el minimo es 72 (por columna claro) pero jamas he hecho una prueba jaajaja
Archivos
correo3.xlsm No tienes los permisos para descargar los archivos.(43 KB) Descargado 14 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 547
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por GEAR el Vie Sep 30, 2011 12:35 pm

Hola moises gracias por tu ayuda va perfecto de hecho tambien lo encontre asi por le red pero me faltaban los puntos importantes la hoja1. y como poner las medidas jajajaja yo lo ponia asi:

Código:
Listbox1.ColumnWidth="250"


(me falto la hoja1 la "s" y demas numeros de columna) jajaja, bueno algo es algo pero gracias por tu ayuda y tu tiempo viejo, otra cosa que tambien aprendi es a usar la ayuda jajaja trae muchos ejemplos que ayudan nunca la habia utilizado jajaja creo que de ahora en adelante utilizare la ayuda de los programas para una mejor aclaracion.

Gracias y Saludos.

GEAR

Masculino Cantidad de envíos : 13
Edad : 30
Ciudad - Pais : Coacalco-Mexico
Version de Excel : 2007
Fecha de inscripción : 11/08/2011

Volver arriba Ir abajo

Re: enviar correo por búsqueda de fecha

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.