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.
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?
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
0