IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Caractères accentués dans mail VB6 CDO SMTP


Sujet :

VB 6 et antérieur

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    168
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2008
    Messages : 168
    Points : 49
    Points
    49
    Par défaut Caractères accentués dans mail VB6 CDO SMTP
    Bonjour,
    J'envoie un mail en VB6 via CDO; je le reçois avec Outlook.
    Dans le corps du mail les é sont remplacés par des i, les ê par des j, ...
    Par contre les caractères accentués qui se trouvent dans le titre sont corrects.
    Si je remplace dans Outlook le codage "alphabet occidental Windows" par "alphabet occidental ISO" les caractères accentués du corps du message deviennent corrects.

    Je me demande si le problème vient de l'émetteur VB6 CDO ou du récepteur Outlook et surtout comment faire en sorte que tous les clients reçoivent un mail correct.

    Voici le code utilisé, merci d'avance pour votre aide
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Set ObjSendMail = CreateObject("CDO.Message")
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'Send the message using the network (SMTP over the network).
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "send.one.com"
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  'Use SSL for the connection (True or False)
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
    ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
    ObjSendMail.Configuration.Fields.Update
    ObjSendMail.From = "FROM"
    ObjSendMail.To = DESTINATION
    ObjSendMail.Subject = "l'objet est reçu correctement"
    ObjSendMail.TextBody = "Les accents du corps ne sont pas reçus correctement"
    ObjSendMail.Send
    Set ObjSendMail = Nothing

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    168
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2008
    Messages : 168
    Points : 49
    Points
    49
    Par défaut
    Bonjour,
    Pas d'idée ?

  3. #3
    Membre actif
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    261
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 261
    Points : 216
    Points
    216
    Par défaut
    Tu peux essayer d'ajouter la ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ObjSendMail.TextBodyPart.Charset = "utf-8"
    Biensure Avant le

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    168
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2008
    Messages : 168
    Points : 49
    Points
    49
    Par défaut
    Bonjour,
    Merci beaucoup pour ta réponse, ça fonctionne.

  5. #5
    Membre actif
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    261
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 261
    Points : 216
    Points
    216
    Par défaut
    De rien, ça fait plaisir d'aider...si tu peux mentionner que c'est résolu, avec un vote pour ma réponse ça serait top

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    168
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2008
    Messages : 168
    Points : 49
    Points
    49
    Par défaut
    J'avais déjà indiqué Résolu, j'ai voté pour ta réponse.
    La difficulté est de connaître le libellé de toutes les zones qu'on peut modifier, pas pensé à ObjSendMail.TextBodyPart.Charset.

  7. #7
    Membre actif
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    261
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 261
    Points : 216
    Points
    216
    Par défaut
    Citation Envoyé par Herve_be Voir le message
    J'avais déjà indiqué Résolu, j'ai voté pour ta réponse.
    La difficulté est de connaître le libellé de toutes les zones qu'on peut modifier, pas pensé à ObjSendMail.TextBodyPart.Charset.
    Merci.
    Oui c'est impossible de tout connaître, mais selon nos besoins et ce n'est pas souvent évident de trouver la réponse.
    Malheureusement le vb6 qui est mon langage préféré s'éteint petit à petit, même moi je ne me connectais plus sur le forum, j'étais de passage quand j'ai vu ta question car je cherchais de l'aide sur powerpoint et en surfant sur vb je suis tombé sur ta question par hasard.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 11/08/2016, 01h49
  2. [PHP 5.3] Caractères accentués dans les mails text/plain
    Par Depite dans le forum Langage
    Réponses: 5
    Dernier message: 16/08/2013, 11h04
  3. Réponses: 6
    Dernier message: 14/07/2005, 15h25
  4. Chaines avec caractères accentués dans interbase
    Par Tsimplice dans le forum Bases de données
    Réponses: 4
    Dernier message: 08/03/2004, 18h12
  5. Chaînes avec des caractères accentués dans Interbase
    Par François Marliac dans le forum Bases de données
    Réponses: 2
    Dernier message: 04/03/2004, 23h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo