Как изменить маркеры в электронной почте Outlook с помощью макроса Excel - PullRequest
Новая
       15

Как изменить маркеры в электронной почте Outlook с помощью макроса Excel

0 голосов
/ 08 мая 2019

Когда я запускаю свой макрос, точки маркера как на основном, так и на подуровне отображаются в виде звездочек вместо обычного черного круга для первой пули и полого круга для суббули.

Я попытался определить стиль, но мой код выдает сообщение об ошибке при добавлении «list-style-type: disc;»или попробуйте включить кавычки вообще в <> ul или li.

Используя w3schools, я понимаю, как это должно работать, но, похоже, это не работает в моем Excel VBA.Буду признателен за любую помощь! 

Sub Email_Budget()

   Dim objOutlook As Object
   Set objOutlook = CreateObject("Outlook.Application")

   Dim objEmail As Object
   Set objEmail = objOutlook.CreateItem(olMailItem)



   Dim CaseCount As Long
   CaseCount = WorksheetFunction.CountA(Range("B6:B500"))
   Debug.Print CaseCount

   Dim i As Integer

   With objEmail
      .To = "####@####.com"
      .Subject = "TEST1: May 2019 Budget"
      .Body = "Paul,"
      .Body = .Body & " "
      .Body = .Body & "The potential " & MonthName(Month(ActiveSheet.Range("A2"))) & " invoices are below."
      .Body = .Body & " "
      For i = 1 To CaseCount
        If ActiveSheet.Cells(i + 5, 4).Value = "Yes" Then
            .HTMLBody = .HTMLBody & "<ul style="list-style-type:circle;">" & "<li>" & ActiveSheet.Cells(i + 5, 2).Value & " - " & Format(ActiveSheet.Cells(i + 5, 6).Value, "Currency") & " (" & Format(ActiveSheet.Cells(i + 5, 8).Value, "Currency") & " without budget or invoicing)." & "</li>" & "<ul>" & "<li>" & "Last billed " & ActiveSheet.Cells(i + 5, 10) & "." & "</li>" & "</ul>" & "</ul>"
        End If
      Next i
      .Body = .Body & " "
      .Body = .Body & " "
      .Body = .Body & "Thank you,"
      .Body = .Body & "Karen"
      .Display

Мой макрос говорит, что есть синтаксическая ошибка и не может запустить программу.Когда я удаляю кавычки изнутри первого <>, который определяет стиль маркера ul, маркеры со звездочкой все еще создаются.Также я заметил, что я должен использовать кавычки вокруг каждого идентификатора списка, где примеры w3schools не должны ... Любая помощь будет очень признательна.

...