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

Macros et VBA Excel Discussion :

Comment activer/ajouter ma signature mail en vba excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Juillet 2022
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Juillet 2022
    Messages : 4
    Par défaut Comment activer/ajouter ma signature mail en vba excel
    Bonjour,
    J’ai fais un code vba excel qui permet de générer un mail.
    En lançant le code, je remarque que le corps du mail est précédé par ma signature automatique. Je n’ai pas su comment résoudre cela. J’ai rajouté une ligne pour vider mon mail avant de le remplir, mais c’est pas ça mon objectif. Si vous il y a un code chemin pour réactiver ma signature à la fin, ou si vous avez des idées, n’hésitez pas.

    Je suis débutant si vous pouvez m’aider.

    Reste à votre disposition pour toutes informations,
    Merci d’avance,

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour Jero_m

    Je ne sais pas si tu as trouvé la solution depuis, mais en voici une je pense
    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
    Sub EnvoiMail()  ' Déclaration des variables utilisées dans le code
      Dim OutObj As Object, Email As Object
      ' Création d'une instance Outlook pour envoyer un mail
      Set OutObj = CreateObject("Outlook.Application")
      Set Email = OutObj.CreateItem(0)
      ' Avec mon objet Email
      With Email
        .Display  ' Afficher le mail pour afficher la signature
        ' Destinataire(s) du mail
        .To = "emaildestinataire@fai.fr"
        ' Copie du mail
        .CC = "emaildestinataire@fai.fr"
        ' Sujet de l'eMail
        .Subject = "Ceci est le sujet de mon mail"
        ' Corps du mail avec signature à la fin
        .HtmlBody = "Bonjour," & "<BR><BR>" _
        & "Ceci est un exemple<BR><BR>" & .HtmlBody
        ' Si on veut joindre un fichier
        '.Attachments.Add "C:\Temp\Test.pdf"
        ' Envoyer l'email
        '.Send
      End With
      ' Effacer les variable objet
      Set Email = Nothing: Set OutObj = Nothing
    End Sub
    A+

Discussions similaires

  1. [XL-2007] Envoi de mail avec VBA Excel et texte enrichi
    Par david5786 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/04/2012, 13h04
  2. [XL-2003] Envoi mail par VBA excel via outlook 2003
    Par Thierry1001 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/10/2009, 10h46
  3. adresse mail sous vba excel
    Par yvanovitch dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 13/03/2008, 19h50
  4. Comment grouper et créer un plan en VBA Excel ?
    Par vacknov dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/11/2007, 07h00
  5. Envoi de mail en VBA Excel avec mise en forme et choix d'expediteur
    Par amalane dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/08/2006, 15h24

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