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

VBA Outlook Discussion :

VBA mail signature avec image + Mise en forme du texte


Sujet :

VBA Outlook

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 5
    Points : 6
    Points
    6
    Par défaut VBA mail signature avec image + Mise en forme du texte
    Bonjour à tous !

    Après avoir parcouru pas mal de forums , je n'ai pas réussi à résoudre mes 2 problèmes :

    1- J’aimerai ajouter la signature de l'entreprise lorsque j'envoie le mail ci-dessous (La signature contient des images, j'ai essayé avec HTMLBody mais les images ne s'affichent pas, une croix apparaît).
    2- J'aimerai que certains mots soient en gras ou en couleur quand j'envoie le mail. (Par exemple : Adresse de livraison en rouge et en gras, code ci-dessous).

    Merci beaucoup aux personnes qui m'aideront !!!


    Voici un petit extrait du code :

    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
    23
    24
    25
    Dim Contenu As Variant
    Dim MaMessagerie As Object
    Dim MonMessage As Object
     
        Set MaMessagerie = CreateObject("Outlook.Application")
        Set MonMessage = MaMessagerie.createitem(0)
        MonMessage.To = "XXXX@XXXX.fr"
        MonMessage.CC = ""
     
        'Envoi du mail
     
        MonMessage.Subject = "Test mail " 
        Contenu = "Bonjour,"
        Contenu = Contenu & Chr(10) & Chr(13)
        Contenu = Contenu & "Enlèvement "
        Contenu = Contenu & Chr(10) & Chr(13)
        Contenu = Contenu & Enlevement_txb
        Contenu = Contenu & Chr(10) & Chr(13)
        Contenu = Contenu & "Adresse de livraison :"
        Contenu = Contenu & Chr(10) & Chr(13)
        Contenu = Contenu & Livraison_txb
        Contenu = Contenu & Chr(10) & Chr(13)
        Contenu = Contenu & "Cordialement / Best Regards,"
        MonMessage.body = Contenu
        MonMessage.Send

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

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Bonjour
    Pour la signature voir ici
    https://www.developpez.net/forums/bl...-outlook-2016/

    Pour ta mise en forme il faut utiliser des balises HTML
    Par exemple
    https://www.eclairement.com/HTML-la-...forme-du-texte

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 5
    Points : 6
    Points
    6
    Par défaut
    Bonjour Olive,

    Merci beaucoup pour ta réponse.
    J'ai réussi à ajouter la signature à la fin du mail

    Concernant les balises HTML, je n'arrive pas à mettre la police Century Gothic (Mon code n'arrive pas à prendre les mots composés)

    Exemple du code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strbody = "<font face =Century gothic>Bonjour</font>"
    Si je mets Arial au lieu de century gothic , le code marche nickel. Mais en composé, ça ne marche pas :/

  4. #4
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    utilise des guillemets simples
    'Century gothic'

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 5
    Points : 6
    Points
    6
    Par défaut
    Bonjour Oliv',

    Merci beaucoup pour ta réponse , c'est réglé.
    Je voulais juste savoir si c'était possible de changer la police d'une variable pour l'envoi du mail.

    Ci dessous la variable Enlevement_txb contenu dans un textbox.Je ne peux pas le mettre entre guillemets, sinon le programme me retourne pas la valeur de la variable.

    Merci d'avance !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    "<font face ='Century gothic'>Enlevement_txb  </font>"

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Si tu dois utiliser la valeur d'une variable VBA

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    "<font face ='Century gothic'>" & Enlevement_txb  & "</font>"

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 5
    Points : 6
    Points
    6
    Par défaut
    Super !!!

    Merci beaucoup Oliv'

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

Discussions similaires

  1. [XL-2007] Problème de Macro VBA pour envoyer un tableau avec sa mise en forme
    Par Marquisette65 dans le forum Macros et VBA Excel
    Réponses: 42
    Dernier message: 16/02/2017, 16h11
  2. Réponses: 0
    Dernier message: 17/08/2016, 21h36
  3. pb avec la mise en forme de text box
    Par Christ1969 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 15/11/2012, 22h04
  4. copier le code vba avec sa mise en forme
    Par gritchou dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 10/06/2008, 10h00
  5. [VBA-E] Probleme avec Nombre stocké sous forme de texte
    Par AliochaBada dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/07/2006, 02h46

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