Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Envio De Correos Electrónicos

Envio De Correos Electrónicos
Artículo
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 usuario Enviar mensaje privado  
ahtonio [ Domingo, 19 Enero 2020, 01:39 ]
 


Envio De Correos Electrónicos
Comentarios
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 usuario Enviar mensaje privado  
alessandri [ Domingo, 19 Enero 2020, 15:14 ]
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 usuario Enviar mensaje privado  
cogier [ Domingo, 19 Enero 2020, 15:18 ]
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 usuario Enviar mensaje privado  
cogier [ Domingo, 19 Enero 2020, 15:49 ]
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 usuario Enviar mensaje privado  
ahtonio [ Miercoles, 22 Enero 2020, 09:55 ]
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 usuario Enviar mensaje privado  
tincho [ Jueves, 23 Enero 2020, 16:27 ]
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 1
 
 

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