Adding multiple links in VBA

Question

When I try and create both of the files as links within the outlook email, only one of the files shows up as a link. How can I resolve this so both will show up as links.

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 = [email protected]       
    .Display

    End With

Answer 1

You have a problem with your code. You are resetting the HTMLBody, when you should concatenate them.

try this:

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 = [email protected]       
  .Display
End With

Tip: People will be more inclined to answer your questions if you increase your acceptance rate by accepting some answers on your past questions. It doesn't cost anything to give a few rep points to people who help you out for free.