• Lunes 29 de Abril de 2024, 21:34

Mostrar Mensajes

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.


Temas - manuelroin

Páginas: [1]
1
Java / buscar correo con la API JavaMail
« en: Sábado 30 de Marzo de 2013, 16:58 »
Hola tengo funcionando este código utilizando la API JavaMail

Código: [Seleccionar]
/*
 * 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
VB .NET / Error DataAdapter
« 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

       
Código: vb.net
  1.  'Crea un nuevo objeto SqlConection con la cadena de conexion apropiada
  2.         Dim sqlConn As New SqlConnection(CnRentas)
  3.         'Abre la conexion
  4.         sqlConn.Open()
  5.         Dim USUARIO As String
  6.         Dim PASSWORD As String
  7.         USUARIO = Trim(Me.txtUsuario.Text)
  8.         PASSWORD = Trim(Me.txtContraseña.Text)
  9.         Try
  10.             Dim queryString As String = "SELECT * FROM USUARIOS WHERE USUARIO = '" & USUARIO & "' AND CONTRASEÑA = '" & PASSWORD & "'"
  11.             Dim da As SqlDataAdapter = New SqlDataAdapter(queryString, sqlConn)
  12.             Dim ds As DataSet = New DataSet
  13.             [color=#008000]da.Fill(ds, "USUARIOS")[/color]
  14.             If ds.Tables("USUARIOS").Rows.Count = 0 Then
  15.                 MsgBox("No existe el Usuario solicitado", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Usuario no encontrado")
  16.             Else
  17.                 Me.Hide()
  18.                 FrmPrincipal.Show()
  19.             End If
  20.         Catch
  21.             MsgBox("ERROR " & Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "eRROR")
  22.         End Try
  23.         'Cierra la conexion
  24.         sqlConn.Close()
  25.  

3
VB .NET / Problemas Lentitud Excel
« 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?

4
Visual Basic 6.0 e inferiores / Interrupciones en VB 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?

5
Visual Basic 6.0 e inferiores / Leer contenido web con VB 6
« 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

6
Visual Basic 6.0 e inferiores / Error en guardar libro excel con VB
« 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

Páginas: [1]