Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Envio De Correos Electrónicos
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Envio De Correos Electrónicos 
 
Hola, estoy usando una rutina que publicó Shordi para el envío de correos (mails) con gambas3 y por la que le quiero dar las gracias.
Mi problema ahora es que si pongo texto plano y hay letras acentuadas, la ñ, etc. salen caracteres extraños.
Si lo pongo como html también.

¿No puedo elegir de algún modo el charset utf8 como en html:    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
para que reconozca acentos y demás?
Otra alternativa sería usar los códigos: a = &aacute, é = &eacute, í = &iacute, ó = &oacute, ú = &uacute, ñ = &ntilde
pero sería tedioso y dudo que no exista la forma.

El código:

   'enviador es una instancia de SmtpClient
    enviador.Subject = cAsunto
    enviador.Add(cTexto, "text/html")   ' Aquí no se podría añadir ... enviador.Add(cTexto, "text/html", "utf-8") o yo que sé?
    Try enviador.send
 


Agradecido de antemano.
Un saludo
 



 
ahtonio - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Envio De Correos Electrónicos 
 
Hola hermano.

Con los programas SMTP y el programa MUTT
Yo utilizo este código para enviar email (usando el comando SHELL de gambas) con adjuntos:


'Envia el email
   If txtnota.Text = "" Then txtnota.Text = "Información Solicitada."
    file.save(User.home &/ "email_msg.txt", txtnota.Text)
    Asunto = "Cotización"
    Adjuntar = User.home & "/" & Dname & ".pdf"
    Destinatario = txtemail.Text
    Mensaje = User.home & "/email_msg.txt"
    
    Shell "mutt -e 'set content_type=text/html' -e 'set mbox_type=Maildir' -s '" & Asunto & "' -a '" & Adjuntar & "' -- " & Destinatario & " < " & Mensaje
    'fin envia el email



Recuerda que debes configurar los archivos en:  /etc/ssmtp/
Espero que te sirva.
 



 
última edición por alessandri el Domingo, 19 Enero 2020, 15:18; editado 5 veces 
alessandri - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Envio De Correos Electrónicos 
 
Esto funcionó para mí. Envié un correo electrónico con el resultado de este código. Funcionó sin errores.

Public Sub Form_Open()

  Dim sText As String = "Hola, estoy usando una rutina que publicó Shordi para el envío de correos (mails) con gambas3 y por la que le quiero dar las gracias.\nMi problema ahora es que si pongo texto plano y hay letras acentuadas, la ñ, etc. salen caracteres extraños.\nSi lo pongo como html también."

  sText = SortString(sText)

  Print sText

End

Public Sub SortString(sText As String) As String

  Dim sAccent As String[] = ["á", "é", "í", "ó", "ú", "ñ"]
  Dim sCode As String[] = ["á", "é", "í", "ó", "ú", "ñ"]
  Dim iCount As Integer

  For iCount = 0 To sAccent.Max
    sText = Replace(sText, sAccent[iCount], sCode[iCount])
  Next

  Return sText

End

 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Envio De Correos Electrónicos 
 
Lo siento pero el código fue convertido a HTML por el foro en mi último post y no funcionará. Prueba el programa adjunto.
 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Envio De Correos Electrónicos (SOLUCIONADO) 
 
Gracias por la respuesta. Eso ya lo había probado, no haciendo sustitución, pero si enviando los textos con acute.
No obstante he probado a mostrar el mensaje en un textlabel y se podía ver correctamente. Esto me ha llevado a comprobar la visualización de los mensajes en el correo y he descubierto que por ejemplo en thunderbird que es con el que trabajo yo hay una opción en >Preferencias>Visualización>Avanzado> Codificación de texto
                                                                           Configurar la codificación de texto predeterminada para enviar y recibir mensajes
                                                       Correo saliente: Unicode(UTF8)
                                                       Correo entrante: Occidental(ISO-8859-1)

Cuando he cambiado ISO-8859-1  a  UTF8 ha funcionado a la perfección, no obstante esto me hace pensar que pasa con OUTLOOK y otros clientes de correo que pueden tener esa codificación por defecto. gambas no me da opción de elegir y tengo la duda de si por defecto los equipos con Windows están todos así.

Gracias por el interés, de verdad

Sigue siendo uno de los mejores foros que conozco. Somos pocos pero buenos.
 



 
ahtonio - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Envio De Correos Electrónicos (SOLUCIONADO) 
 
ahtonio escribió: [Ver mensaje]
...no obstante esto me hace pensar que pasa con OUTLOOK y otros clientes de correo que pueden tener esa codificación por defecto. gambas no me da opción de elegir y tengo la duda de si por defecto los equipos con Windows están todos así.

gambas maneja todo en utf-8 por defecto.
Si guardas un email como eml y luego lo abres con un editor de texto plano, es posible ver la codificación del contenido buscando la etiqueta charset.
Una vez que sabes que codificación tiene el mensaje puedes convertir el contenido a UTF8  y verlo correctamente.
En wikipedia hay bastante información sobre los protocolos de correo electrónico que te puede ayudar.
Citar:

Gracias por el interés, de verdad
Sigue siendo uno de los mejores foros que conozco. Somos pocos pero buenos.

Si, coincido contigo, es un foro estupendo.
Saludos.
 



 
tincho - 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
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Envio Comandos De Control A Impresora... CanihoJR General 3 Domingo, 04 Julio 2010, 01:08 Ver último mensaje
Invitado
No hay nuevos mensajes Ayuda Con El Envio De Mails alan General 1 Sabado, 15 Enero 2011, 22:00 Ver último mensaje
soplo
No hay nuevos mensajes Problema Al Enviar Correos garvied Controles/Librerías/Componentes 14 Jueves, 01 Junio 2017, 12:29 Ver último mensaje
dcapeletti
No hay nuevos mensajes Ejemplo De Recepción De Correos POP shordi Aplicaciones/Fragmentos de Código 1 Lunes, 22 Octobre 2018, 14:03 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

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