https://foro.gambas-es.org/viewtopic.php?f=1&t=7868&p=47440#p47440
-----------------------------------
cogier
Domingo, 19 Enero 2020, 15:18

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. 

[code linenumbers=false syntax=gambas]
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[/code]


