Mail auto objet en caractères chinois [Résolu]

Question

Mail auto objet en caractères chinois [Résolu]

Signaler

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

- Modifié le 13 janv. 2021 à 18:03
Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

- 18 janv. 2021 à 15:10

Bonjour,

J'utilisais jusqu'ici excel et outlook 2010.
Lors du passage à Excel et Outlook 2016, un ficher excel qui me permet d'envoyer automatiquement un mail m'affiche l'objet en caractères chinois.
Je n'ai pas réussi à trouver de réponse à ce mystère.
Quelqu'un a-til une idée?
Ci-dessous le code utilisé, mais cela vient-il de lui?

Merci d'avance

Sub Save_EtatRoutes()
Dim dest(2) As String

Sheets("Hauteurs de neige").Select
Range("B10").Value = Date
Range("D10").Value = Time

Sheets("Tronçons").Select
dest(0) = "inforoute@ha-py.fr"
'dest(1) = "drt.astreinte@ha-py.fr"


'Gestion de l'année
If Month(Date) < 6 Then

annee = Year(Now) - 1 & "-" & Year(Now)

Else: annee = Year(Now) & "-" & Year(Now) + 1

End If


datejour = Format(Date, "YYYYMMdd")

heure = Hour(Now)

 
If heure < 9 Then
 
Set NewBook = Workbooks.Add

ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"

'Suppression des boutons

Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
        "Button 2")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
    Selection.Delete


NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "7" & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & "7" & ".xls").SendMail Recipients:=dest, _
                          Subject:="Etat des Routes du Pays des Gaves", _
                          ReturnReceipt:=True


NewBook.Close

ElseIf heure < 11 Then
Set NewBook = Workbooks.Add

ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"


'Suppression des boutons

Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
        "Button 2")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
    Selection.Delete


NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "11" & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & "11" & ".xls").SendMail Recipients:=dest, _
                          Subject:="Etat des Routes du Pays des Gaves", _
                          ReturnReceipt:=True
                        

Else
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"


'Suppression des boutons

Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
        "Button 2")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
    Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
        , "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
    Selection.Delete
    
NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & heure & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & heure & ".xls").SendMail Recipients:=dest, _
                          Subject:="Etat des Routes du Pays des Gaves", _
                          ReturnReceipt:=True


End If
                        
'NewBook.Close


End Sub

--

A voir également:

19 réponses

Répondre Posez votre question

cs_Le Pivert · Answer 1 · 2021-01-13T16:33:31+0100

Réponse 1 / 19

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
13 janv. 2021 à 16:33

Bonjour,

As-tu vérifié cela dans Outils- Options:

Lameche15 · Answer 2 · 2021-01-13T17:05:05+0100

Réponse 2 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

13 janv. 2021 à 17:05

Oui ce sont bien ces paramètres

--

vb95 · Answer 3 · 2021-01-13T20:56:42+0100

bonjour
1) Merci à @karamel d'avoir rendu ton code plus lisible (voie ce tuto : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code ) . Mais depuis le temps que tu es sur Codes-Sources tu n'as pas l'air se t'en soucier !
2) Pourquoi répéter 3 fois la suppression des boutons .
3) Une capture d'écran avec ces fameux caractères "chinois" serait un plus pour nous éclairer ! Pour la capture d'écran utilisez le dernier icône de la barre d'outils d'un message et y sélectionner un fichier image . Celui-ci s'insérera dans le message à la place où se trouve le curseur

Lameche15 · Answer 4 · 2021-01-14T07:29:18+0100

Bonjour,
Veuillez m'excuser une fois de plus, j'ai encore beaucoup de choses à apprendre pour utiliser ce forum dans les règles de l'art mais j'entends vos remarques et essaierai de m'améliorer.
J'ai déjà dit sur un autre post que j'étais loin de connaître toutes les astuces pour optimiser le code et que je me pencherais là dessus lorsque j'aurais terminé de développer tous les outils dont j'ai besoin.
Ici je supprime les boutons 3 fois car il y a 3 cas de figure en fonction de l'heure (7h, 11h et au delà de 11h).
Bref, pour en revenir à mon problème:

--

vb95 · Answer 5 · 2021-01-14T13:27:12+0100

Réponse 5 / 19

vb95

Messages postés: 2427
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 6 mai 2021

137
14 janv. 2021 à 13:27

Bonjour
Vous dîtes qu'il y a 3 cas de figure en fonction de l'heure pour la suppression des boutons . Au lieu de taper 3 fois le code de suppression on en fait un sous-programme et on l'appelle 3 fois .
Quant aux caractères chinois c'est juste le sujet du mail d'après l'image . Des caractères similaires sont-ils présents dans le corps du mail lui-même ? Il faudrait pouvoir voir le code qui crée ce fameux mail : là on voit juste le code qui envoie le mail ;

Lameche15 · Answer 6 · 2021-01-14T15:18:38+0100

Réponse 6 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

14 janv. 2021 à 15:18

Tout mon code est là!!! Ne me faites pas peur!!

NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "11" & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & "11" & ".xls").SendMail Recipients:=dest, _
                          Subject:="Etat des Routes du Pays des Gaves", _
                          ReturnReceipt:=True

Le mail est juste le fichier en pièce jointe les adresses destinataires et l'objet

--

vb95 · Answer 7 · 2021-01-14T17:28:56+0100

Réponse 7 / 19

vb95

Messages postés: 2427
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 6 mai 2021

137
14 janv. 2021 à 17:28

Bonjour
Pouvez-vous vérifier ce que contient le tableau

dest

qui contient les chaines de caractères des destinataires ?

Lameche15 · Answer 8 · 2021-01-15T07:52:58+0100

Réponse 8 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

15 janv. 2021 à 07:52

Il contient bien mes adresses mails des destinataires.
Je rappelle pour info que le programme fonctionnait sous Excel et Outlook 2010.
C'est très surprenant. Peut-être il n'aime pas le "Subject"
--

vb95 · Answer 9 · 2021-01-15T08:15:18+0100

Réponse 9 / 19

vb95

Messages postés: 2427
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 6 mai 2021

137
15 janv. 2021 à 08:15

Alors là je ne vois aucune autre piste pour donner une solution .
Désolé !

cs_Le Pivert · Answer 10 · 2021-01-15T09:37:59+0100

Essaie ceci:

Option Explicit
Sub Save_EtatRoutes()
Dim dest(2) As String
Dim NewBook, annee, datejour

dest(0) = "inforoute@ha-py.fr"
annee = Year(Now) - 1 & "-" & Year(Now)
datejour = Format(Date, "YYYYMMdd")

Set NewBook = Workbooks.Add
NewBook.Sheets("Feuil1").Name = "Tronçons"

NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "7" & ".xls", FileFormat:=56
ActiveWorkbook.SendMail Recipients:=dest, _
                          Subject:="Etat des Routes du Pays des Gaves", _
                          ReturnReceipt:=True
NewBook.Close
End Sub

Lameche15 · Answer 11 · 2021-01-15T11:29:34+0100

Réponse 11 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

15 janv. 2021 à 11:29

Désolé ça ne change rien.

--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
15 janv. 2021 à 11:36

C'est bien ce que je pensais dès le début. Cela ne peut pas provenir d'une macro!

Il faut donc voir sur ton pc les paramètres de Windows ainsi que ceux de Outlook

Lameche15 · Answer 12 · 2021-01-15T13:51:53+0100

Réponse 12 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

15 janv. 2021 à 13:51

Oui c'est aussi ce que je pense et pencherais plus pour windows 10 car je n'ai rien vu de suspect sous outlook 2016.
Je vais fouiner...

--

Lameche15 · Answer 13 · 2021-01-15T17:11:15+0100

Réponse 13 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

15 janv. 2021 à 17:11

Dernier test cet après midi:
Utilisationde la macro sur Excel 2016 et Outlook 2016 mais sur Windows7
Résultat: Objet du mail= -

Si avec Excel 2010 et Outlook2010 + win7 ça marchait, c'est alors que Windows10 me met le bazard? Non?
--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
15 janv. 2021 à 17:22

Quand tu envoies un mail de façon traditionnelle sans macro ni Excel, juste avec une pièce jointe, que ce passe-t-il?

Lameche15 · Answer 14 · 2021-01-18T08:41:12+0100

Réponse 14 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 08:41

Aucun problème particulier

--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
18 janv. 2021 à 09:48

Cela provient certainement d'une incompatibilité entre Office 2016 et Windows 10

En voyant ta macro je m'aperçois que ton classeur contenant tes macros est en xls!
Pourquoi n'utilises -tu pas xlsm avec office 2016?

@+ Le Pivert

Lameche15 · Answer 15 · 2021-01-18T10:27:18+0100

Réponse 15 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 10:27

Effectivement, je change ça tout de suite!

--

Lameche15 · Answer 16 · 2021-01-18T10:34:28+0100

Réponse 16 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 10:34

Toujours pas!

--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
18 janv. 2021 à 11:43

voir Solution de contournement

https://support.microsoft.com/fr-ca/help/3163039/email-message-body-is-garbled-when-simplified-chinese-characters-are-i

@+

Lameche15 · Answer 17 · 2021-01-18T13:02:51+0100

Réponse 17 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 13:02

J'y ai cru fortement mais rien à faire!!
En tout cas merci pour votre aide

--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
18 janv. 2021 à 14:31

Essaie cette macro, pour voir le résultat:

https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/

Lameche15 · Answer 18 · 2021-01-18T15:04:55+0100

Réponse 18 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 15:04

Cette macro fonctionne parfaitement!
Mais quel est le problème avec la mienne du coup??
Bref, je vais adapter celle-ci à mon classeur.

Merci beaucoup
--

Signaler

cs_Le Pivert

Messages postés: 7381
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 mai 2021

122
18 janv. 2021 à 15:09

La différence est ici:

.SendMail Recipients:=dest

L'exemple donné n'envoie pas le mail de la même manière!

Je suis content que cela fonctionne, il te suffit d'adapter cette macro à ton environnement

Pense à marquer Résolu

@+ Le Pivert

Lameche15 · Answer 19 · 2021-01-18T15:10:18+0100

Réponse 19 / 19

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

18 janv. 2021 à 15:10

Parfait,

Merci beaucoup pour votre aide

--

Votre réponse