none
Outlook 2007 mise en forme html non respecté RRS feed

  • Question

  • Bonjour,

    Je rencontre un souci lors de la création d 'un mail en html, le décalage du texte n'est pas pris en compte avec padding left ou right. Par contre pour centrer ou décaler à droite ou gauche cela fonctionne.

    Public Sub mailtest()
    
    Dim oMail As Outlook.MailItem
    
    Dim oFSO
    
    Dim oFS
    
    Dim strProject As String
    
    Dim strHTML As String
    
    If Application.ActiveExplorer.Selection.Count Then
    
    If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
    
    Set oMail = Application.ActiveExplorer.Selection(1).ReplyAll
    
    Text = "<html><p class='MsoNormal' style='padding-'><span style='color: #002060; font-family: Calibri, sans-serif; font-size: 10pt;'>Veuillez agr&eacute;er, Ch&egrave;re Madame, Cher Monsieur, nos cordiales salutations.</span></p></head><body> </body></html>"
    
    
    oMail.BodyFormat = olFormatHTML
    
    oMail.HTMLBody = Text
    
    oMail.Display
    
    End If
    
    End If
    
    End Sub
    

    Merci pour votre aide
    vendredi 31 janvier 2014 23:40

Réponses

  • J'ai résolu mon pb je poste dans le cas où qq1 serait intéréssé :

    Public Sub test()
    Dim oMail As Outlook.MailItem
    Dim oFSO
    Dim oFS
    Dim strProject As String
    Dim strHTML As String
            
    If Application.ActiveExplorer.Selection.Count Then
    If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
    Set oMail = Application.ActiveExplorer.Selection(1).Reply
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
     
    Set oFS = oFSO.OpenTextFile("C:\Users\PC\Desktop\test.htm")
    
    
    
    stext = oFS.ReadAll
    oMail.BodyFormat = olFormatHTML
    oMail.HTMLBody = stext
    oMail.Display
    strProject = InputBox("Enter project type:", _
                              "Replace %nom%", _
                              "custom form")
        strHTML = Replace(stext, _
                          "%nom%", strProject)
                          
    oMail.HTMLBody = strHTML
    oMail.Display
    End If
    End If
    End Sub

    • Marqué comme réponse MikeLee75 dimanche 2 février 2014 23:35
    dimanche 2 février 2014 23:34