Solved: access vba html for outlook email tables not correct

access vba
outlook html in access vba

I was told that i do not have the correct opening and closing of "/tables"
but the email looks fine ?
strhtml = "<HTML><Body><table border='1' width='50%'><tr><th>Sku</th><th>PRODUCT_DESCRIPTION</th><th>QTY</th>" & _
"<th>TARGET_PRICE</th><th>COMPETITOR_PRICE</th><th>TARGET_PRICE_PROFITABILITY</th><th>CURRENT_PRICE</th></tr>"




this is for each individual Sku line


If gp >= "25.00" Then
MAILBODY = MAILBODY & "<tr><td>" & rst("SKU") & "</td><td>" & rst("PRODUCT_DESCRIPTION") & "</td><td>" & _
        rst("QTY") & "</td><td>" & Format(rst("TARGET_PRICE"), "Currency") & "</td><td>" & Format(rst("COMPETITOR_PRICE"), "Currency") & _
        "</td><td bgcolor=""Green"">" & "Profitable" & "</td><td>" & Format(rst("CURRENT_PRICE"), "Currency") & "</td></tr>"
       End If

' yellow
If gp >= "20.00" And gp <= "24.99" Then
                MAILBODY = MAILBODY & "<tr><td>" & rst("SKU") & "</td><td>" & rst("PRODUCT_DESCRIPTION") & "</td><td>" & _
        rst("QTY") & "</td><td>" & Format(rst("TARGET_PRICE"), "Currency") & "</td><td>" & Format(rst("COMPETITOR_PRICE"), "Currency") & _
        "</td><td bgcolor=""Yellow"">" & "Low Profitability" & "</td><td>" & Format(rst("CURRENT_PRICE"), "Currency") & "</td></tr>"
       End If




'Red Light
               If gp >= "15.00" And gp <= "19.99" Then
           MAILBODY = MAILBODY & "<tr><td>" & rst("SKU") & "</td><td>" & rst("PRODUCT_DESCRIPTION") & "</td><td>" & _
        rst("QTY") & "</td><td>" & Format(rst("TARGET_PRICE"), "Currency") & "</td><td>" & Format(rst("COMPETITOR_PRICE"), "Currency") & _
        "</td><td bgcolor=""red"">" & "Not Profitable" & "</td><td>" & Format(rst("CURRENT_PRICE"), "Currency") & "</td></tr>"
               End If
        ' RSVP SUBFORM
        'Red Light under 15
               If gp <= "14.99" Then
           MAILBODY = MAILBODY & "<tr><td>" & rst("SKU") & "</td><td>" & rst("PRODUCT_DESCRIPTION") & "</td><td>" & _
        rst("QTY") & "</td><td>" & Format(rst("TARGET_PRICE"), "Currency") & "</td><td>" & Format(rst("COMPETITOR_PRICE"), "Currency") & _
        "</td><td bgcolor=""red"">" & "Not Profitable" & "</td><td>" & Format(rst("CURRENT_PRICE"), "Currency") & "</td></tr>"
               End If




mybody = "Please Review the request and advise if you support.<br><br>"
   
   mybody = mybody & "Request #: " & price_escNum & " <br>" & _
    "Quote #: " & esc_Quote & "<br>" & _
    "point #: " & POINTID & "<br>" & _
    "Price Requested Until : " & PRICE_REQUESTED & "<br>" & _
    "Account #: " & esc_AccountNumber & "<br>" & _
    "Account Name: " & esc_AccountName & "<br>" & _
    "Seller Name: " & SELLER_NAME & "<br>" & _
    "DSM Name: " & DSM_NAME & "<br>" & _
    "Opportunity Value: " & Format(OPPORTUNITY_VALUE, "Currency") & "<br>" & _
    "Rolling 12 Sales: " & Format(ROLLING_12_SALES, "Currency") & "<br>" & _
    "Competitor: " & COMPETITOR_NAME & "<br><br>"



mybody2 = "</table><p>Reason For Escalation:" & REASON_ESCALATION & "<br><br>"
    mybody2 = mybody2 & "</table><p>Sincerely,<br><br>"
    mybody2 = mybody2 & "The CSP Quotations Team.</p>"



mybody3 = "</table><p><b>Additional Approval or Rejection Comments:   <b><br><br></p>"
Open in new window