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 :

Mise en forme d'un email au format HTML


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2006
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 14
    Par défaut Mise en forme d'un email au format HTML
    Bonjour à tous,

    Actuellement je cherche à pouvoir mettre en forme un mail au format HTML, bizarrement je n'arrive à le faire malgré plusieurs essai et une recherche sur le net qui retrace ce que j'ai fais en gros dans mon code.

    Pouvez vous m'éclaircir svp ?

    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
    34
    35
    36
    37
    38
    39
    40
    41
     
    Private Sub btnConfirmationRV_Click()
        Dim olApp As Outlook.Application
        Dim objNewMail As Outlook.MailItem
        Dim var As Variant
        Dim ObjAdoClient As ADODB.Recordset
        Dim Sql As String
        Dim Adresse As String
     
     
     
        Set olApp = New Outlook.Application
        Set objNewMail = olApp.CreateItem(olMailItem)
        Call FrmSAV.vaSpread1.GetText(1, vaSpread1.ActiveRow, var)
     
        Sql = "SELECT MainAddress1 FROM T_Customer WHERE ClientName ='" & var & "'"
        Set ObjAdoClient = ObjAdoMain.Execute(Sql)
        While Not ObjAdoClient.EOF
            Adresse = ObjAdoClient!MainAddress1
            ObjAdoClient.MoveNext
        Wend
        ObjAdoClient.Close
        objNewMail.BodyFormat = olFormatHTML
        objNewMail.Subject = "Confirmation de Rendez-vous"
        objNewMail.body = "<html><head><H3>CONFIRMATION DE RENDEZ-VOUS</H3></head>" & vbCrLf & " " & vbCrLf & " " & vbCrLf & "" & _
        "<body><b>Client :</b> " & var & vbCrLf & _
        "" & vbCrLf & _
        "Contact : " & vbCrLf & vbCrLf & vbCrLf & _
        "Date(s) Intervention(s) : " & vbCrLf & _
        "Heure(s) Intervention(s) : " & vbCrLf & vbCrLf & vbCrLf & _
        "Chargé(e) de planification : " & FrmPpl.StatusBar1.Panels(2) & vbCrLf & vbCrLf & _
        "Commentaires :" & vbCrLf & _
        "Si F.I. type - Installation initiale : " & vbCrLf & vbCrLf & _
        "Si F.I. type - Autres : " & vbCrLf & vbCrLf & _
        "Adresse d'intervention : " & Adresse & _
        "" & FrmFicheSAV.Text1(2).Text & vbCrLf & vbCrLf & _
        "Cordialement," & vbCrLf & vbCrLf & _
        FrmPpl.StatusBar1.Panels(2).Text & "</head></html>"
        objNewMail.display
        'objNewMail.send
    End Sub
    Merci par avance

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    Bonjour,

    Si tu veux essayer ça ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    objNewMail.HTMLbody = "<html>< .........

  3. #3
    Membre averti
    Inscrit en
    Avril 2006
    Messages
    14
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 14
    Par défaut
    Nickel !!

    Merci beaucoup j'ai pas capté cette subtilité

    Bonne journée à toi !

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

Discussions similaires

  1. [AC-2013] Mise en forme conditionnelle avec année au format texte
    Par rag83 dans le forum IHM
    Réponses: 6
    Dernier message: 30/06/2015, 19h19
  2. Réponses: 5
    Dernier message: 17/09/2012, 11h10
  3. [CR9] Mise en forme de champ avec des formats
    Par Sytchev3 dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 01/03/2007, 16h35
  4. [VBA-E] Mise en forme conditionnelle et recherche de format
    Par VinzVVK dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/12/2006, 19h20
  5. [HTML]Email au format html
    Par willowII dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 12/03/2005, 21h17

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