Resultados 1 al 12 de 12

Tema: ayuda smtp con VB

  1. #1 ayuda smtp con VB 
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    Hola a todos , tengo un problema con este codigo que e escrito para enviar email , como veis es un codigo muy sencillo que funciona bien asta la segunda espera en concreto el "250" del servidor , ademas el bucle de la funcion espera deja mucho que desear pero digamos que estoy atascado , tambien decir que e probado a conectar via telenet con el servidor que use para probarlo y funciona perfectamente con los parametros que le doy de direcciones etc ...
    eso solo que no llego a recivir la respuesta , no se por que causa es esto ya que en la respuesta del connect capto perfectamente el "220" usando la misma funcion de espera, aunque intuyo que tendra algo que ver con la funcion espera .... e sniffeado la conexion con ethereal los dos ultimos registros son el "helo servidor.com" que envia el programa y el ultimo un TCP ACK del servidor , aahi se acaba , bueno gracias a todos por gastar su timepo leyendo .


    Dim cotenidolog As String
    Dim respuesta As String

    Private Sub Form_Load()
    Winsock1.Connect
    espera ("220")
    Winsock1.SendData ("helo servidor.com" + CvbCrLf)
    espera ("250")
    Winsock1.SendData ("mail from:" + "<direccion@servidor.com>" + vbCrLf)
    espera ("250")
    Winsock1.SendData ("rcpt to:" + "" + Chr(13))
    espera ("250")
    Winsock1.SendData ("data" + Chr(13))
    espera ("354")
    Winsock1.SendData ("." + Chr(13))
    espera ("250")
    Winsock1.SendData ("quit" + Chr(13))


    End Sub

    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    End Sub

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData respuesta
    MsgBox (respuesta + "------getdata")
    'Text1.Text = Text1.Text + respuesta
    End Sub

    Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox ("winsock error")


    End Sub

    'Public Function espera(codigorespuesta As String)
    'Do Until Left(respuesta, 3) = codigorespuesta
    'DoEvents
    'Loop
    'MsgBox (respuesta)
    'respuesta = ""
    'codigorespuesta = ""
    'End Function
    Public Function espera(codigorespuesta As String)
    Do Until Left(respuesta, 3) = codigorespuesta
    DoEvents
    Loop
    If codigorespuesta = Left(respuesta, 3) Then
    MsgBox (respuesta)
    Else: MsgBox (codigorespuesta)
    End If
    respuesta = ""
    End Function
    Citar  
     

  2. #2  
    Avanzado
    Fecha de ingreso
    Jan 2004
    Ubicación
    NULL
    Mensajes
    901
    Descargas
    0
    Uploads
    0
    Ouch toy confundioo... vamos a ver... creo que el código se simplifica mucho si tienes en cuenta los eventos del winsock. Cuando el winsock se conecta al server smtp se desencadenará el evento winsock_connect y a la vez se recibe el código 220. En caso contrario, correrá el evento winsock_error con su correspondiente código de error.
    Lo más simple quedaría así:
    Public Sub ConectarYA()
    ws.sckTCPProtocol
    ws.RemotePort=25
    ws.RemoteHost="smpt.servidor.es"
    ws.Connect
    End Sub
    Una vez que hayas establecido la conexión:
    ws.SendData y todo lo que sigue ("from", "rcpt to", "data", ".")
    Después del envío de cada comando (from, rcpt...) deberías de recibir el winsock_SendComplete y con winsock_DataArrival recogerías la respuesta del server.
    • First they ignore you...
    Citar  
     

  3. #3  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    Gracias por responder Diarrea ,

    Quote:
    Public Sub ConectarYA()
    ws.sckTCPProtocol
    ws.RemotePort=25
    ws.RemoteHost="smpt.servidor.es"
    ws.Connect
    End Sub

    os parametros de la conexion que me comentas aunque no estan escritos en el codigo si que lo estan denrto de la ventana propiedades del control winsock (remotehost y remoteport sin olvidar tcp como porotocolo)

    Quote:
    Una vez que hayas establecido la conexión:
    ws.SendData y todo lo que sigue ("from", "rcpt to", "data", ".")
    Después del envío de cada comando (from, rcpt...) deberías de recibir el winsock_SendComplete y con winsock_DataArrival recogerías la respuesta del server.

    El procedimiento que aqui describes es exactamente lo que esta escrito en el codigo a excepcion de que no tiene codigo a ejecutar en el evento sendcomplete (no es necesario)

    En fin muchas gracias por responder pero mi programa por alguna razon desconocida sigue sin funcionar seguire investigando y si alguien tiene algo que aportarestare encantado de leerlo gracias a todos por su tiempo.
    Citar  
     

  4. #4 si te soy sincero 
    Avanzado
    Fecha de ingreso
    Dec 2001
    Ubicación
    BCN
    Mensajes
    469
    Descargas
    0
    Uploads
    0
    si te soy sincero no me he mirado el codigo al 100%, ya k creo k diarrea te ha dado una excelente respuesta. de todos modos me llama la atencion la linea:

    Winsock1.SendData ("helo servidor.com" + CvbCrLf)

    CvbCrLF, no lo habia visto nunca. Te lo digo por que viendo lo que pones fijo que has usado copiar y pegar.
    La resitencia es futil, todos sereis asimilados.
    NeoGenessis
    Citar  
     

  5. #5  
    Avanzado
    Fecha de ingreso
    Jan 2004
    Ubicación
    NULL
    Mensajes
    901
    Descargas
    0
    Uploads
    0
    Es verdad---> vbCrLf.
    • First they ignore you...
    Citar  
     

  6. #6  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    MMMM otra vez mil gracias por responder , y como brevemente conrtesto DIARREA
    vbCrLf = chr(13) osea INTRO
    Y no el codigo no es copy + paste sino creo que no me estaria dando problemas , jejejej bueno aun asi yo sigo en mis ratos libres con este codigo si consigo dar con la respuesta la cuelgo para que puedan verla , tambien entiendo que a la gente que pasa por aki no le apetece ponerse a "depurar" un codigo que no es suyo y que seguramente tienen algo parecido para hacer esto , asi con todo mil gracias a todos .....
    Citar  
     

  7. #7  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    Ostias colega que rapido lei por que no estoy en casita que tengo todo mi codigo lo comprobare en cuanto llegue , ostias espero que solo sea esoooooooooo un puto error sintactico , bueno cuando llegue les cuento si funciono gracias ...
    Citar  
     

  8. #8  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    Bueno pues ya que nadie "quiso/fue capaz" y al final yo lo consegui lo pasteo para el que le interese este funciona 100 % , para los mas negativos esta programado por mi al 100 % lo que para muchos no sera un merito pero para mi si y me enorgullezco de haberlo conseguido ademas de brindarselo a cualquiera que lo necesite ...... (esto solo era el modulo de envio por smtp para el programa final que estoy escribiendo al acabar este me surgen nuevas dudas de programacion que yo mismo expongo dentro del foro programacion gracias)

    Dim recibido As String

    Private Sub Command1_Click()
    MsgBox (recibido)
    End Sub

    Private Sub Form_Load()
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = "servidor.com"
    Winsock1.Connect
    espera ("220")
    Winsock1.SendData ("helo servidor.com" & vbCrLf)
    espera ("250")
    Winsock1.SendData ("mail from:<direccion@servidor.com>" & vbCrLf)
    espera ("250")
    Winsock1.SendData ("rcpt to:<direccionEnvio@servidor.com>" & vbCrLf)
    espera ("250")
    Winsock1.SendData ("data" & vbCrLf)
    espera ("354")
    Winsock1.SendData ("contenido email" & vbCrLf & "." & vbCrLf)
    espera ("250")
    Winsock1.SendData ("quit" & vbCrLf)

    End Sub





    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    End Sub

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData recibido
    Text1.Text = Text1.Text & recibido

    End Sub

    Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox ("winsock_error" & Description)
    End Sub



    Public Function espera(codigorespuesta As String)
    Do Until codigorespuesta = Left(recibido, 3)
    DoEvents
    Loop
    recibido = ""
    MsgBox ("respondido con " & codigorespuesta)
    'MsgBox (codigorespuesta & " comparar " & Left(3, recibido))

    'Do
    'Loop Until codigorespuesta <> Left(3, recibido)
    'recibido = ""
    End Function
    Citar  
     

  9. #9  
    Avanzado
    Fecha de ingreso
    Dec 2001
    Ubicación
    BCN
    Mensajes
    469
    Descargas
    0
    Uploads
    0
    de hecho vbCrLf = chr$(13)chr$(10), es decir enter mas salto de linea.
    ese es el problema al leer archivos unix, k solo usan uno de los dos simbolos.

    Tienes razon en cuanto a lo depurar el codigo de otro, de todos modos debes plantearte una cosa. estas haciendo programacion estructurada, eso significa dividir el codigo en unidades logicas, y aprovechar las funciones propias de los controles. una forma de aprovechar la funcion k recibe los datos para comprobar todas las respuestas del server es usando una variable de estado. En otras palabras un flag.

    Es decir k cuando envies el saludo pones el flag a 1 (p ej) y al recivir la respuesta compruebas el flag para saber si era lo k esperabas. En el sigiente paso el flag a 2, y asi.
    La resitencia es futil, todos sereis asimilados.
    NeoGenessis
    Citar  
     

  10. #10  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    mmmm , que bueno , al principio estuve intentando hacer algo de este tipo , claro ni siquiera sabian q a esto se le llama "flag", lo q paso es q no consegui hacerlo funcionar de primeras y rapidamente pase a intentar evaluar las respuestas del servidor con una funcion que contuviese un sencillisimo bucle q evaluase los 3 primeros caracteres y los comparase con lo que debia recibir , el bucle debia comntener la funcion doevents para dejar seguir esperando eventos en este caso el mas imporetante era el dataarrival del winsock para que llegase la respuesta del server,al final parece que funciona como modulo independiente , pero me intriga que no lo aga en cuanto lo una a otro programa que este tambien funcionando con un bucle que compruebe la funcion de API getasynckeystate (¿os imaginais para que sera?) aunque en teoria usando bien el doevents deberia funcionar , pero tambien con tu respuesta Neogenessis me as echo volver a pensar que quizas mi programa funcionaria mejor usando flags dentro del evento dataarrival del winsock por que mientras espero la respuesta del server que dependiendo de la red en que estuviese el ordenador que ejecutase el programa y podria ser mas larga no estaria calculando el bucle de esperar respuesta y todo el programa que tambien estaria ejecutando funciones del tipo getasynckeystate y grabando archivos etc .... no se veria temporalmente pausada y no tendria esa pequeña fuga de informacion , bueno espero haberme explicado bien , en cuanto vaya sabiendo mas cosas de este tema las ire comentando , por supuesto agradecere cualquier comentario como los que habeis echo y tanto me han ayudado directa o indirectamente , gracias a todos y un saludo
    Citar  
     

  11. #11  
    Iniciado
    Fecha de ingreso
    Jun 2003
    Ubicación
    Venezuela
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    Saludos...

    no dudo que las respuestas esten correctas, no he provado tu codigo pero tengo una duda...tu pones:

    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    End Sub

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData recibido
    Text1.Text = Text1.Text & recibido

    End Sub

    te explico...repito no he provado tu codigo pero en estas lineas:
    Winsock1.Close
    Winsock1.Accept requestID

    ¿porque cierras el winsock y luego aceptas la conexion?
    ¿no deberias primero recivir la conexion y luego cerrarla?

    vuelvo a repetir NO he provado el codigo solo fue un rapido vistazo...
    Los iniciados son personas que ingresan a un solitario y sacrificado sendero de perfección. La iniciación es una apertura mental que capacita a la recepción del conocimiento trascendente
    Citar  
     

  12. #12  
    Iniciado
    Fecha de ingreso
    Jun 2004
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    bueno pos esto biene de que es la forma en q aprendi q ay q hacerlo , la verdad q lo poco que se de winsock en visual basic lo saque al principio de textos como este
    http://www.elguruprogramador.com.ar/...ver.asp?cod=63
    en donde pone esto
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos
    Text1.Text = Text1.Text + datos
    End Sub

    Datos queda transformada en una variable de cadena, y WinSock almacena los datos que recibe del Cliente en el buffer y luego ingresan a la variable datos, dicha variable mostrará su contenido en el control TextBox (Text1).

    En el evento ConnectionRequest...

    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    End Sub

    Este evento es muy importante, permite aceptar la petición de conexión. Sin este evento el resto del programa no tendría efecto.

    claro q el agregar lo recibido a un text box es opcional , pero si es bueno muchas veces para seguir un control de lo recibido y comprobar q esta ok o ver donde falla , en algun otro lado explicaban que sin este codigo (winsock1.accept requestID) dentro del evento connection request no podia aceptar la conexion y lo de cerrar es por si acaso no quedi bien cerrado el socket para q no diese un error , la verdad que siempre lo e echo asi y me a funcionado bien , vamos q cuando mis programas han fallado no a sido en ese punto , claro q en realidad no se si esto es realmente lo mejor pero de momento funciona y acepto cualquier sugerencia q pueda ser mas beneficiosa para mi programa .
    Personalmente despues de haber investigado esto y haber habaldo con gente q sabe mas del tema q yo (programadores profesionales y no aficionados como yo) el tema parece ser excluyendo fallos corrientes de mi programa la concurrencia dentro de un mismo programa , gente me dice q este lenguaj quizas no sea el apropiado pero yo se q ay gente q a echo cosas de estas con VB , no digo q sea lo mejor .......

    decir tambien q el codigo funciona pero es tan simple q tiene q funcionar en un entorno perfecto que no haya ningun fallo , por ejmplo una respuesta de error como un rcpt no admitido o cualquier otra cosa , osea q primero tengo q asegurarme q con el servidor smtp los parametros q le pase me deje hacer la transaccion por q sino se quedara pillado

    En resumidas cuentas no es un programa funcinal pero sirve muy bien de experiencia
    gracias todos , un saludo.
    Citar  
     

Temas similares

  1. Protocolo SMTP
    Por biyonder en el foro REDES Y TECNOLOGIAS WIRELESS
    Respuestas: 5
    Último mensaje: 15-09-2009, 00:05
  2. correo smtp
    Por chokis en el foro GENERAL
    Respuestas: 0
    Último mensaje: 10-01-2006, 21:46
  3. Smtp
    Por ZaNN en el foro GENERAL
    Respuestas: 3
    Último mensaje: 27-10-2002, 09:56
  4. smtp
    Por van-geon en el foro GENERAL
    Respuestas: 2
    Último mensaje: 25-09-2002, 14:49
  5. servidor smtp
    Por el_satri en el foro TELEFONÍA MOVIL
    Respuestas: 0
    Último mensaje: 02-03-2002, 00:22

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •