Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Problema Al Enviar Correos
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Problema Al Enviar Correos 
 
Estoy creando una pequeña aplicación en la que existe la opción de enviarme correos con comentarios de los usuarios pero cuando crea los mensajes en 'Para' añade /// por delante de la dirección.
He probado a enviar los correos usando Desktop.open(mailto;direccion) y con desktop.sendmail pero el resultado es el mismo.
Estoy usando ubuntu 15.04 con gnome 3.16 y gambas 3.7.1

El código que estoy usando es:

Public Sub BtnCorreo_Click()
  Dim destinatario As String[]
  destinatario = New String[]
  destinatario.Add("direcion_de@ejemplo.net", 0)
  Desktop.SendMail(destinatario, destinatario,, "Asunto de ejemplo", "Cuerpo del mensaje de ejemplo", User.home &/ "Firefox_wallpaper.png")
End

He puesto destinatario en to y cc para que veais la diferencia en el campo para y cc de la imagen
He probado con el evolution y el thunderbird y en ambos tengo el mismo problema.

Se os ocurre algo.
Gracias
 



 
garvied - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
¿Por qué no envías correos con el propio gambas? Es lo que mis aplicaciones hacen y lo hacen de maravilla.

Te adjunto el código de las funciones que uso para el correo, una comprueba que sea una dirección válida (es un decir) y otra envía el correo.


Public Function sendmail(sFrom As String, aTo As String[], sSubject As String, sBody As String, cServer As Collection, Optional aBcc As String[], Optional aAttached As String[], Optional ldebug As Boolean) As Boolean

    Dim SmtpC As New SmtpClient
    Dim s,  fich, cmime, fname As String
  
    SmtpC.debug = ldebug
    SmtpC.host = cServer["host"]
    SmtpC.user = cServer["user"]
    SmtpC.password = cServer["password"]
    SmtpC.Encrypt = IIf(cServer["Encrypt"], cServer["Encrypt"], Net.SSL)
    SmtpC.Alternative = False
    SmtpC.From = sFrom
    For Each s In aTo
        SmtpC.To.Add(s)
    Next
    SmtpC.Subject = sSubject
    SmtpC.Body = sBody
    If Not IsNull(aAttached) Then
        For Each fich In aAttached
            Exec ["file", "-bi", fich] To cmime
            cmime = Left(cmime, InStr(cmime, ";") - 1)
            fname = Right(fich, - RInStr(fich, "/"))
            SmtpC.Add(File.Load(fich), cmime, fname)
        Next
    Endif
    If Not IsNull(abcc) Then
        For Each s In abcc
            SmtpC.bcc.Add(s)
        Next
    Endif
    SmtpC.send
    
    Return True
    
Catch
    
    Return False

End

Public Function isMail(cad As String) As Boolean

  Dim lret As Boolean
  
  lret = True
  If InStr(cad, "@") = 0 Or InStr(Trim(cad), " ") > 0 Or InStr(cad, ".") = 0 Then
    lret = False
  Endif
  Return lret
  
End
 


Ni qué decir tiene que para que funcione tienes que agregar el módulo gb.net.smtp a tu proyecto (Menú proyecto-> propiedades->componentes
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Por otra parte, si tienes especial interes en usar thunderbird, el código que yo uso es:


  La variable ar es un string[] que contiene la/s direccion/es de los destinatarios
  La variable clocal es un string que contiene la dirección del fichero a adjuntar.

        If ar.count > 1 Then
            cad = "/usr/bin/thunderbird -compose bcc='" & ar.join(",") & "'"      
        Else
            cad = "/usr/bin/thunderbird -compose to='" & ar[0] & "'"  
       Endif
       if clocal > "" then
           cad &= ",attachment=\"file:" & clocal & "\""
       endif
       Shell cad  
 

Esto invoca a la pantalla de edición de thunderbird y le pasa los datos de destinatario y adjunto. También le puedes pasar el texto, el sujeto, etc. etc. (no recuerdo la sintaxis exacta, pero esta por la red (de ahí la saqué yo).
Sin embargo no puedes estar seguro de que tu usuario tenga thunderbird instalado o quiera enviarte su dirección o qué...

Saludos
 



 
última edición por shordi el Lunes, 04 May 2015, 02:21; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Por último, si te interesa el formulario de envío que yo uso, te lo puedo mandar. Tiene ciertas cosas personalizadas (por ejemplo: nunca uso cc, es una fuente de alimentación para los spammers. Siempre bcc), pero a mí me está funcionando de maravilla.
Este es el aspecto:
 captura_de_pantalla_de_2015_05_04_02_24_58
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
La idea es que el usuario no tenga que configurar nada para poder enviar correo desde el programa.
Por eso quería usar el programa predeterminado de correos del ordenador.
Lo del thunderbird ya lo había mirado pero eso obliga a que el usuario use ese programa.

Muchas gracias, si no consigo arreglarlo ya tengo otra forma para hacer el envío del correo
 



 
garvied - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Citar:
La idea es que el usuario no tenga que configurar nada para poder enviar correo desde el programa.

Con la primera solución que te he dado, el usuario no tiene que configurar nada. A lo más, cuando se instale el programa por primera vez, los parámetros de su servidor de correo... cosa que también tiene que hacer con tu solución... y con cualquiera, claro.
 



 
última edición por shordi el Lunes, 04 May 2015, 19:12; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Al final voy a hacerlo según me has dicho.
Pero seguiré buscando una solución ya que en los primeros test que hice funcionaba bien, no se si sera alguna actualización o algo.
Lo bueno es que esto funcionara sin problemas sea como sea la instalación del usuario.

Muchas gracias
 



 
garvied - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
shordi a mi me interesa el código de mandar correos podes subirlo?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Te he adaptado a correprisa un ejemplo.
No juro que no tenga errores, que no lo he probado.
 



 
última edición por shordi el Viernes, 08 May 2015, 17:15; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Enviar Correos 
 
Aclarar que este formulario está orientado a escribir correos con los datos de nuestras bases de datos. Admite en el .Tag una colección con todos los datos que serán mostrados en pantalla y los daos del servidor de correo.
de, to, asunto, texto, como strings
para, bcc, adjuntos como string[]
y los datos del servidor de correo: host, usuario, clave como colección.
A la hora de mandar usa una función externa, ubicada en un módulo para que sea accesible desde cualquier sitio.
Si tenéis alguna duda, pues me lo decís, claro.

Saludos
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario