Access - Al enviar un correo desde Access me salen caracteres raros

 
Vista:
sin imagen de perfil
Val: 40
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Al enviar un correo desde Access me salen caracteres raros

Publicado por Fran (23 intervenciones) el 28/06/2019 08:37:44
Si envío un correo desde Access, las palabras con acentos o Ñ me aparecen de la siguiente manera:

departamento FORMACI�N

Esto solo ocurre en el cuerpo del mensaje pues si en el asunto tengo acentos o Ñ aparecen correctamente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
.....
    Dim emailsubject As String
    Dim emailtext As String
    Dim emailTo As String
    Dim emailcc As String
 
    Dim cdoConfig
    Dim msgOne
 Set cdoConfig = CreateObject("CDO.Configuration")
 With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.office365.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ......
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ......
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Update
End With
 
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT departamento,firmante,Mail,cc FROM Total")
 
emailTo = rs.Fields("Mail").Value
emailcc = rs.Fields("cc").Value
emailsubject = "Primer aviso: Vencimiento próximo."
emailtext = "Buenos dias, " & vbCrLf & vbCrLf & "El acuerdo con el proveedor " & rs.Fields("firmante").Value & " del departamento " & rs.Fields("departamento").Value
 
Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = emailTo
msgOne.cc = emailcc
msgOne.From = "xxxx@xxxx.es"
msgOne.Subject = emailsubject
msgOne.TextBody = emailtext
msgOne.Send
 
......

Me ha estado funcionando bien hasta hace unos días y no he tocado nada del código, no sé si por alguna actualización de Office ha podido ser. Alguien sabe por que ocurre?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Juan
Val: 414
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Al enviar un correo desde Access me salen caracteres raros

Publicado por Juan (150 intervenciones) el 28/06/2019 09:26:06
Hola,

Has verificado en el formulario donde escribes el cuerpo del mensaje, las propiedades del Formato de texto sea " Texto sin formato"?

Al hacer exportaciones con formato aparecen caracteres raros.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar