Envio De Correos Electrónicos


Objetivo: 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

Perfil MP  
Objetivo: 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
Perfil MP  
Objetivo: 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

Perfil MP  
Objetivo: 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.


EmailAccents.tar.gz
Descripción:  
Descargar
Nombre del archivo: EmailAccents.tar.gz
Tamaño: 12.76 KB
Descargado: 43 veces
EmailAccents.tar.gz
Descripción:  
Descargar
Nombre del archivo: EmailAccents.tar.gz
Tamaño: 12.76 KB
Descargado: 43 veces
EmailAccents.tar.gz
Descripción:  
Descargar
Nombre del archivo: EmailAccents.tar.gz
Tamaño: 12.76 KB
Descargado: 43 veces

Perfil MP  
Objetivo: 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.

Perfil MP  
Objetivo: 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.

Perfil MP  

Página 1 de 1


  
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

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.3724s (PHP: -81% SQL: 181%)
Consultas SQL: 47 - Debug off - GZIP Activado