1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    avril 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 21
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : avril 2017
    Messages : 1
    Points : 1
    Points
    1

    Par défaut VBA/outlook je veux afficher ma saisie avec balises html tout en gardant mon template html dans le mail

    Bonjour !

    Je me tourne vers ce forum car j'ai navigué sur tout les autres (et celui-ci) et je n'ai pas trouvé de réponse .

    Description :
    J'ai un code vba sur excel qui permet de remplir un formulaire et d'envoyer un mail avec les données du formulaire tout en respectant une mise en forme (fichier template outlook).

    Problème :
    Dans le formulaire j'ai un champ ou je saisie un message.
    Dans celui-ci je veux pouvoir écrire :
    <p> Bonjour !</p>
    et dans le mail envoyé voir :
    <p> Bonjour !</p>
    et non pas :
    Bonjour !

    Code des infos du formulaires avec format :
    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
    17
    18
    19
    20
    21
    22
     
    Dim outlookApplication As New Outlook.Application
     
        Dim outlookMailItem As Outlook.MailItem
        Set outlookMailItem = outlookApplication.CreateItemFromTemplate(Range("cheminTemplate"))
     
        outlookMailItem.To = TextBoxDestinataire.Text
        outlookMailItem.CC = TextBoxDestinataireCopie.Text
        outlookMailItem.SentOnBehalfOfName = Range("adresseEmission")
        outlookMailItem.BCC = Range("adresseEmission")
     
     
        outlookMailItem.Subject = "[REJECT EDI]" & TextBoxFournisseur.Text
     
        outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIDateHeure", TextBoxDateHeure.Text)
        outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIFournisseur", TextBoxFournisseur.Text)
        outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIMessageMetier", Replace(TextBoxMessageMetier.Text, Chr(13), "<br>"))
        outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))
     
        outlookMailItem.VotingOptions = "Can distribution list be Deleted YES;Can distribution list be Deleted NO"
     
        outlookMailItem.Send

    Cette ligne est concernée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))
    Après outlookMailItem que dois-je mettre en format pour résoudre le problème ? Où il faut regarder ailleurs ?
    Des idées ? Merci d'avance

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 817
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 2 817
    Points : 4 910
    Points
    4 910
    Billets dans le blog
    12

    Par défaut

    Bonjour,

    Je pense qu'il y a une grosse erreur déjà là

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))
    outlookMailItem.BodyFormat c'est pour dire si ton email est au format BRUT OU HTML, ou RICHTEXT

    Référence du développeur Outlook
    OlBodyFormat, énumération
    Spécifie le format du corps de texte d'un élément.
    Nom Valeur Description
    olFormatHTML 2 Format HTML
    olFormatPlain 1 Format simple
    olFormatRichText 3 Format RTF (texte enrichi)
    olFormatUnspecified 0 Format non spécifié

    © 2010 Microsoft Corporation. Tous droits réservés.

Discussions similaires

  1. Réponses: 1
    Dernier message: 13/02/2017, 12h00
  2. Réponses: 8
    Dernier message: 02/12/2016, 16h01
  3. Réponses: 3
    Dernier message: 14/03/2012, 09h26
  4. Réponses: 2
    Dernier message: 06/10/2011, 09h27
  5. Réponses: 2
    Dernier message: 05/01/2006, 00h08

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