|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - manuelroin
Páginas: [1]
1
« en: Sábado 30 de Marzo de 2013, 16:58 »
Hola tengo funcionando este código utilizando la API JavaMail
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
package Clases;
import java.io.IOException;
import java.util.Properties;
import java.util.logging.Level;
import java.util.logging.Logger;
import javax.mail.Folder;
import javax.mail.Message;
import javax.mail.MessagingException;
import javax.mail.Session;
import javax.mail.Store;
import javax.mail.search.SearchTerm;
/**
*
* @author CASA
*/
public class BuscarCorreos {
String usuario;
String contrasena;
public BuscarCorreos(String usuario, String contrasena) {
this.usuario = usuario;
this.contrasena = contrasena;
inicializar();
}
private void inicializar() {
try {
// Obtenemos las propiedades del sistema
String popHost = "imap.gmail.com";
Properties props = System.getProperties();
// Obtener una sesión con las propiedades anteriormente definidas
Session sesion = Session.getDefaultInstance(props, null);
// Crear un Store indicando el protocolo de acceso y
// conectarse a él
Store store = sesion.getStore("imaps");
store.connect(popHost, usuario, contrasena);
// Crear un Folder y abrir la carpeta INBOX en modo SOLO LECTURA
Folder folder = store.getFolder("INBOX");
folder.open(Folder.READ_ONLY);
SearchTerm term = new SearchTerm() {
@Override
public boolean match(Message mess) {
try {
return mess.getContent().toString().toLowerCase().indexOf("prueba") != -1;
} catch (IOException ex) {
Logger.getLogger(BuscarCorreos.class.getName()).log(Level.SEVERE, null, ex);
} catch (MessagingException ex) {
Logger.getLogger(BuscarCorreos.class.getName()).log(Level.SEVERE, null, ex);
}
return false;
}
};
Message[] searchResults = folder.search(term);
for (Message m : searchResults) {
System.out.println("MATCHED: " + m.getFrom()[0]);
}
} catch (MessagingException me) {
System.err.println(me.toString());
}
}
}
La búsqueda cuando la bandeja es pequeña no tiene problemas, pero cuando es una bandeja regular se pone lentísimo,
alguna idea de como realizar la búsqueda con el buscar de gmail? y luego solo traer los resultados
estuve viendo algunas clases dentro de la API como
GmailStore ; GmailFolder ; GmailRawSearchTerm , etc
Si alguien me puede dar una mano con esto se lo agradecería
2
« en: Lunes 28 de Marzo de 2011, 01:01 »
Hola estoy trabajando con una base de datos de sql server 2005 Tengo la base de datos GESTION y la tabla USUARIOS tengo el siguiente codigo: (donde me da el error lo marxo en color verde) Me dice El nombre del objeto USUARIOS no es valido y esa es mi tabla 'Crea un nuevo objeto SqlConection con la cadena de conexion apropiada Dim sqlConn As New SqlConnection(CnRentas) 'Abre la conexion sqlConn.Open() Dim USUARIO As String Dim PASSWORD As String USUARIO = Trim(Me.txtUsuario.Text) PASSWORD = Trim(Me.txtContraseña.Text) Try Dim queryString As String = "SELECT * FROM USUARIOS WHERE USUARIO = '" & USUARIO & "' AND CONTRASEÑA = '" & PASSWORD & "'" Dim da As SqlDataAdapter = New SqlDataAdapter(queryString, sqlConn) Dim ds As DataSet = New DataSet [color=#008000]da.Fill(ds, "USUARIOS")[/color] If ds.Tables("USUARIOS").Rows.Count = 0 Then MsgBox("No existe el Usuario solicitado", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Usuario no encontrado") Else Me.Hide() FrmPrincipal.Show() End If Catch MsgBox("ERROR " & Err. Description, MsgBoxStyle. Critical + MsgBoxStyle. OkOnly, "eRROR") End Try 'Cierra la conexion sqlConn.Close()
3
« en: Lunes 18 de Octubre de 2010, 17:43 »
Voy a comentar un poquito lo que hace mi aplicación
Simplemente lee todo el contenido de un documento de text (+.TXT) y lo pasa a excel.
Todo es bastante sencillo es mas en VBA de Access tarda 40 minutos. en .net tarda mas de una hora y no llamo a ninguna subrutina ni nada. Todo esta en un mismo modulo y solo tengo 14 variables declaradas todas ellas estan siendo usadas.
Sabiendo estas condiciones, porque funciona mas lento en .net?
En condiciones iguales .Net debería ejecutar mas rapido este proceso ? o no necesariamente?
4
« en: Domingo 17 de Octubre de 2010, 22:04 »
Hola, tengo una aplicación que desarrollé en VBA de Access trabajando para crear y llenar datos de un fichero de texto hacia excel.
Por cuestiones de pruebas he migrado toda la aplicación a .net , funcionando correctamente el problema es que tarda el doble de tiempo .net.
Es esto normal?
5
« en: Miércoles 11 de Agosto de 2010, 12:35 »
busca en google winpic800 en esta pagina encontraras el software y el hardware
te recomiendo el GTP USB PLUS es muy bueno
un saludo.
6
« en: Lunes 22 de Marzo de 2010, 13:20 »
Hola resulta que estoy usan el contro INET para leer el contenido de una pagina web
El problema me surge en la parte siguiente:
despues de ejecutar la instruccion
Call Inet1.Execute(paginaweb, "GET")
he visto que toma un tiempo para ingresar en el evento StateChanged del control INET por lo que cuando hago el
call Inet1.execute como instruccion final no hay problema porque luego salta el evento, pero cuando a continuacion de Execute escribo alguna instruccion
no salta el evento nunca
Como puedo hacer para que salte el evento StateChanged ??? ya he probado con doevents y tengo que poner muchos como 15 para que le de tiempo a generarse , alguien tiene alguna opinion?
7
« en: Jueves 18 de Marzo de 2010, 10:51 »
el problema que tengo es mas o menos asi
Estoy intentando leer el contenido de una WEB en jsp
para eso estaba usando el componente INET
el problema es que necesito saber a donde apunta cada enlace dentro de la web
para los enlaces es sencillo pero cuando el enlace esta dado por un combobox no se como hacerlo (para ir al enlace seleccionas una opcion el combox y luego das a un boton y te lleva al enlace) ya que al ir a ese enlace no cambia el nombre en la parte superior del navegador
8
« en: Miércoles 17 de Marzo de 2010, 11:06 »
Hola, como se puede leer el contenido de una pagina web desde visual basic ?
Si alguien tiene conocimiento se lo agradeceria
9
« en: Lunes 29 de Junio de 2009, 20:45 »
lo he solucionado amigos, al parecer el problema es con el 2003 q se debe instanciar como un objeto y crearlo
Dim aplicacion As Object
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Set aplicacion = CreateObject("Excel.Application")
Set libro = aplicacion.Workbooks.Add
Set hoja = libro.Worksheets.Add
hoja.Name = "Primera Hoja"
hoja.Cells(1, 1) = "FRENOS"
ActiveWorkbook.SaveAs ("E:librito.xls")
libro.Close
Set libro = Nothing
aplicacion.Quit
Set aplicacion = Nothing
10
« en: Viernes 26 de Junio de 2009, 22:30 »
Una Pregunta, porque este mismo codigo que escribi antes me lanza un error en una version de office 2003 usando la referencia
Microsoft Excel 11.0 Object Library
el error me lo marca cuando le doy en Libro.SaveAs(" ruta de archivo ")
y me dice error de automatizacion
Y cuando uso office 2000 y uso la referencia Microsoft Excel 9.0 Object Library se ejecuta sin problemas
11
« en: Viernes 26 de Junio de 2009, 09:49 »
lo he solucionado , muchas gracias!!!
Dim aplicacion As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Set aplicacion = New Excel.Application
Set libro = aplicacion.Workbooks.Add
Set hoja = libro.Worksheets.Add
hoja.Name = "Primera Hoja"
hoja.Cells(1, 1) = "FRENOS"
ActiveWorkbook.SaveAs ("" & Ruta_Fichero & "")
libro.Close
Set libro = Nothing
aplicacion.Quit
Set aplicacion = Nothing
12
« en: Jueves 25 de Junio de 2009, 21:35 »
Hola, estoy intentando guardar un libro de excel con visual basic y me sale este error: Error de automatizacion
este es mi codigo , ya hice la referencia a Microsoft excel 11.0 object library
Option Explicit
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(1, 1).Value = "Celda 1,1"
xlBook.SaveAs ("C:Documents and SettingsAdministradorEscritorio123.xls")
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
No se cual puede ser el error en la ayuda de visual basic dice que esa es la manera
13
« en: Lunes 18 de Mayo de 2009, 13:00 »
creo que deberias usar el filelistbox para poder agregar la ruta de tu archivo al listbox
14
« en: Jueves 26 de Octubre de 2006, 20:10 »
Soy Fanatico de los PIC pero aun no c muy bien progamar los motorola mi principal problema es los compiladores ya que cada uno tiene sus directivas y no las c por ahora pero de que son mejores que los PIC son muchisimo mejores mas completos y todo.
15
« en: Jueves 26 de Octubre de 2006, 19:35 »
Hola amigos no c si nos podriamos contactar por msn ya que me interesa aprender los motorola cualquier modelo mi correo es manuel_ri@hotmail.comgracias
Páginas: [1]
|
|
|
Mostrar Mensajes
