|
Página 1 de 1
|
Envio De Correos Electrónicos
| Autor |
Mensaje |
 ahtonio 
Programador
Registrado: Octobre 2009
Mensajes: 144
Edad: 58 Ubicación:  Zaragoza
|
 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 = á, é = é, í = í, ó = ó, ú = ú, ñ = ñ
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
|
#1 Domingo, 19 Enero 2020, 01:39 |
|
 |
alessandri
Técnico Programador
Registrado: Abril 2010
Mensajes: 151
Edad: 42
|
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 |
#2 Domingo, 19 Enero 2020, 15:14 |
|
|
cogier
Charlie Ogier
Aprendiz
Registrado: Septiembre 2018
Mensajes: 99
Edad: 69 Ubicación:  Guernsey, Channel Islands
|
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
|
#3 Domingo, 19 Enero 2020, 15:18 |
|
|
cogier
Charlie Ogier
Aprendiz
Registrado: Septiembre 2018
Mensajes: 99
Edad: 69 Ubicación: Guernsey, Channel Islands
|
Re: Envio De Correos Electrónicos
|
#4 Domingo, 19 Enero 2020, 15:49 |
|
|
ahtonio
Programador
Registrado: Octobre 2009
Mensajes: 144
Edad: 58 Ubicación: Zaragoza
|
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.
|
#5 Miercoles, 22 Enero 2020, 09:55 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación: 
|
Re: Envio De Correos Electrónicos (SOLUCIONADO)
ahtonio escribió: ...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.
|
#6 Jueves, 23 Enero 2020, 16:27 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
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
|
|
|
|
|
