J'ai une macro qui crée un email. Il ajoute trois lignes d'espacement avant la signature par défaut lors de l'ouverture de nouveaux courriels.
J'ai essayé diverses solutions de remplacement et de coupe.
partie pertinente du code: p> J'ai besoin de cela pour travailler sur l'ordinateur portable de n'importe qui, donc pas seulement avec ma signature. P > p>
3 Réponses :
Dans le code exemple ci-dessus:
trSalutation = "<html><head></head><body>" & sGreeting & " " & Sheets("Tabelle2").Cells(i, 5) & "," & "</body></html>" ... objEmail.HTMLBody = strSalutation & "<p>" & sTemplate & objEmail.HTMLBody
Vous pouvez utiliser un style pour supprimer la marge, comme ceci:
Vous pouvez essayer ceci:
sSignature = Replace(objEmail.HTMLBody, "<p class=MsoNormal><o:p> </o:p></p>", "")