Удалите пустые строки перед подписью в электронном письме, созданном VBA - PullRequest
Новая
       28

Удалите пустые строки перед подписью в электронном письме, созданном VBA

0 голосов
/ 21 июня 2019

У меня есть макрос, который создает электронные письма, и когда он добавляет подпись, он также добавляет 3 интервала перед ним (по умолчанию при открытии нового электронного письма).Я пробовал различные варианты замены и отделки, и это не сработало.Соответствующая часть кода такова: 

 Set objEmail = app_Outlook.CreateItem(olMailItem)

        Dim signature As String


        strSalutation = "<html><head></head><body>" & sGreeting & " " & Sheets("Tabelle2").Cells(i, 5) & "," & "</body></html>"

        objEmail.SentOnBehalfOfName = "address@mail.com"

        objEmail.Display

        objEmail.To = sEmail_Address

        objEmail.Subject = sTitle

       sSignature = Replace(objEmail.HTMLBody, Chr(13), "")

        objEmail.HTMLBody = strSalutation & "<p>" & sTemplate & objEmail.HTMLBody

Возможно, стоит отметить, что мне нужно работать на любом ноутбуке, а не только с моей подписью.

1 Ответ

0 голосов
/ 23 июня 2019

В приведенном выше примере кода: 

 trSalutation = "<html><head></head><body>" & sGreeting & " " & Sheets("Tabelle2").Cells(i, 5) & "," & "</body></html>"
 ...
 objEmail.HTMLBody = strSalutation & "<p>" & sTemplate & objEmail.HTMLBody

Вы добавляете новый HTML-элемент после закрытия тега </html>.

Вместо этого вам нужно вставить приветствие, начиная с элементов <body> и </body>. В результате вы получите правильно сформированную строку HTML.

...