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 :

Syntaxe HTMLBODY envoi automatique d'un mail avec lien hypertexte intégré [XL-2016]


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    technicien méthodes
    Inscrit en
    Décembre 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : technicien méthodes

    Informations forums :
    Inscription : Décembre 2018
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Syntaxe HTMLBODY envoi automatique d'un mail avec lien hypertexte intégré
    Bonjour

    J'ai un fichier Excel (office 365 version 2016) avec des macros.

    Après avoir fait sa tache la personne doit cliquer sur un bouton pour valider sa tache et prévenir la personne suivant par mail, donc un mail est généré et je voudrait mettre un lien hypertext dans le corps du message qui permettra d'ouvrir ce fichier.

    avec une syntaxe comme ci-dessous cela fonctionne très bien comme le chemin vers le fichier est écrit R:\02-test\TEST.xlsm sauf que le nom de mon fichier va changé

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour le suivi des taches.<BR><BR>" _
    & "<A href=""R:\02-test\TEST.xlsm" & """" & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement"
    mais je ne trouve pas la syntaxe pour le faire avec nom_fichier_complet.

    voici la partie envoi de mail

    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
    26
    27
    28
    29
    30
    31
    32
    33
    Sub top1()
     
     
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim olFormatHTML As String
    Dim nom_fichier_complet As String
     
    nom_fichier_complet = Workbooks(ActiveWorkbook.Name).FullName
     
     
    MsgBox ("Préparation du MAIL envoyé à " & Chr(10) & Chr(10) & "TOTO.TITI@HOTMAIL.com" _
    & Chr(10) & Chr(10) & "pour l'informer qu'il doit faire sa tache" & Chr(10) & Chr(10) & "Cliquer sur OK pour ouvrir OUTLOOK" & Chr(10) & Chr(10) & "Puis dans OUTLOOK cliquer sur Envoyer pour valider et terminer votre étape du suivi")
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     strbody = "Information sur la mise à jour"
    On Error Resume Next
        With OutMail
            .To = "au.suivant@hotmail.com"
            .CC = ""
            .BCC = ""
            .Subject = "FAIRE CREATION "
            .BodyFormat = olFormatHTML
          .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " vous devez <BR><BR>" & _
            & "<A href= nom_fichier_complet & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement"
            .Display
        End With
            On Error GoTo 0
     
        Set OutMail = Nothing
        Set OutApp = Nothing
    merci de votre aide

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 379
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 379
    Points : 12 073
    Points
    12 073
    Billets dans le blog
    8
    Par défaut re
    re
    change cette ligne et ca ira bien
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " vous devez <BR><BR>" & _
             "<A href=" & nom_fichier_complet & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement"
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Candidat au Club
    Homme Profil pro
    technicien méthodes
    Inscrit en
    Décembre 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : technicien méthodes

    Informations forums :
    Inscription : Décembre 2018
    Messages : 2
    Points : 3
    Points
    3
    Par défaut
    Merci de ta réponse et de ton aide

    en effet cela fonctionne nickel.

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

Discussions similaires

  1. Réponses: 11
    Dernier message: 22/11/2017, 20h01
  2. Réponses: 1
    Dernier message: 22/04/2016, 17h38
  3. Réponses: 12
    Dernier message: 12/02/2007, 12h34
  4. [Mail] Envoi d'un e-mail avec piece jointe
    Par ctrl+z dans le forum Langage
    Réponses: 13
    Dernier message: 15/12/2006, 15h05
  5. Envoi automatique d'un mail toutes les heures
    Par VirginieGE dans le forum ASP
    Réponses: 8
    Dernier message: 24/08/2004, 09h10

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