|
Página 1 de 2
|
Problema Al Enviar Correos
Autor |
Mensaje |
garvied
Usuario
Registrado: Noviembre 2012
Mensajes: 22
Edad: 58
|
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
Descripción: |
|
Tamaño: |
24.15 KB |
Visto: |
26 veces |
|
Descripción: |
|
Tamaño: |
24.15 KB |
Visto: |
26 veces |
|
Descripción: |
|
Tamaño: |
24.15 KB |
Visto: |
26 veces |
|
|
#1 Lunes, 04 May 2015, 01:04 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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
|
#2 Lunes, 04 May 2015, 01:12 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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, 01:21; editado 1 vez
|
#3 Lunes, 04 May 2015, 01:20 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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:
|
#4 Lunes, 04 May 2015, 01:27 |
|
|
garvied
Usuario
Registrado: Noviembre 2012
Mensajes: 22
Edad: 58
|
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
|
#5 Lunes, 04 May 2015, 14:15 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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, 18:12; editado 1 vez
|
#6 Lunes, 04 May 2015, 18:10 |
|
|
garvied
Usuario
Registrado: Noviembre 2012
Mensajes: 22
Edad: 58
|
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
|
#7 Lunes, 04 May 2015, 19:16 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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/
|
#8 Lunes, 04 May 2015, 19:45 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Problema Al Enviar Correos
Te he adaptado a correprisa un ejemplo.
No juro que no tenga errores, que no lo he probado.
Descripción: |
|
Descargar |
Nombre del archivo: |
mandaCorreos-0.0.1.tar.gz |
Tamaño: |
7.74 KB |
Descargado: |
42 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
mandaCorreos-0.0.1.tar.gz |
Tamaño: |
7.74 KB |
Descargado: |
42 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
mandaCorreos-0.0.1.tar.gz |
Tamaño: |
7.74 KB |
Descargado: |
42 veces |
última edición por shordi el Viernes, 08 May 2015, 16:15; editado 1 vez
|
#9 Lunes, 04 May 2015, 21:45 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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
|
#10 Martes, 05 May 2015, 09:25 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
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 Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|