Добавление нескольких ссылок в VBA

Question

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

Set omail = CreateItem (olMailItem)

    With omail

    .Subject = "Key Report"
    .BodyFormat = olFormatHTML
    .HTMLBody = "<a href ='" & fileL & "'>Key Report</a>"
    .HTMLBody = "<a href ='" & fileSat & "'>Key Report Saturday</a>"
    .To = abc@yah.com       
    .Display

    End With

Answer 1

У вас проблема с вашим кодом.Вы сбрасываете HTMLBody, когда вам нужно объединить их.

попробуйте это:

Set omail = CreateItem(olMailItem)

With omail
  .Subject = "Key Report"
  .BodyFormat = olFormatHTML
  .HTMLBody = "<a href ='" & fileL & "'>Key Report</a>" & _ 
              "<a href ='" & fileSat & "'>Key Report Saturday</a>"
  .To = abc@yah.com       
  .Display
End With

Совет : люди будут более склонны отвечать на ваши вопросы, если вы увеличитеваш уровень принятия, принимая некоторые ответы на ваши прошлые вопросы.Дать несколько очков репутации людям, которые помогают вам бесплатно, ничего не стоит.