Bonjour,
Je rencontre un souci lors de la création d 'un mail en html, les marges ne sont pas respectés. Par contre pour centrer ou décaler à droite ou gauche cela fonctionne.
Merci pour votre aide
Je rencontre un souci lors de la création d 'un mail en html, les marges ne sont pas respectés. Par contre pour centrer ou décaler à droite ou gauche cela fonctionne.
Citation:
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-left: 120px;'><span style='color: #002060; font-family: Calibri, sans-serif; font-size: 10pt;'>Veuillez agréer, %Chère Madame, Cher Monsieur%, nos cordiales salutations.</span></p></head><body> </body></html>" strProject = InputBox("nom de la personne:", "remplacement du nom de la personne", "") strHTML = Replace(Text, "%Chère Madame, Cher Monsieur%", strProject) oMail.HTMLBody = strHTML oMail.Display End If End If End Sub |
Aucun commentaire:
Enregistrer un commentaire