Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro de Compilação:...
 
Notifications
Clear all

Erro de Compilação: Procedimento muito grande - O que fazer?

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
1,119 Visualizações
RSS
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Ola!

Utilizo uma rotina de enviar e-mails via Excel com a DLL cdosys.dll (lobj_cdomsg). E tive a necessidade de aumentar a quantidade de informação no corpo do e-mail que é enviado.

Problema: O Corpo do e-mail é declarado em uma variável (Dim HTML) e essa variavel se tornou extremamente gigante conforme foi surgindo a necessidade de aumentar as informações enviadas no corpo do e-mail, e agora o VBA chegou ao limite! O que devo fazer para continuar?

Segue o código:

Sub Mail_Supervisor()
Dim HTML
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message


'####
'MENSAGEM DE SAUDAÇÕES
'####
    HTML = HTML & Sheets("SUPERVISOR").Range("B18").Value & "<U>" & Sheets("SUPERVISOR").Range("F5").Value & "</U>" & "!"
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"


'####
'MENSAGEM DO CORPO DO E-MAIL
'####
    HTML = HTML & Sheets("SUPERVISOR").Range("B19").Value
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"
    HTML = HTML & "<HR>"



'Relatorio do indicador de metas (VENDAS EM REAIS 'R$')
    HTML = HTML & "<TABLE CELLSPACING='0' CELLPADDING='0' BORDER='1' BORDERCOLOR='SILVER'>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<TD COLSPAN='6'><B><FONT SIZE='4' COLOR='RED'>" & Sheets("SUPERVISOR").Range("C43").Value & "</FONT></B></TD>"
    HTML = HTML & "</TR>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD WIDTH='75'>" & Sheets("SUPERVISOR").Range("C44").Value & "</TD>"
    HTML = HTML & "<TD WIDTH='120'>" & Sheets("SUPERVISOR").Range("E44").Value & "</TD>"
    HTML = HTML & "<TD WIDTH='120'>" & Sheets("SUPERVISOR").Range("G44").Value & "</TD>"
    HTML = HTML & "<TD WIDTH='120'>" & Sheets("SUPERVISOR").Range("I44").Value & "</TD>"
    HTML = HTML & "<TD WIDTH='100'>" & Sheets("SUPERVISOR").Range("K44").Value & "</TD>"
    HTML = HTML & "<TD WIDTH='100'>" & Sheets("SUPERVISOR").Range("M44").Value & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD>" & Sheets("SUPERVISOR").Range("C45").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("E45").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("G45").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("I45").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("K45").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("M45").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD>" & Sheets("SUPERVISOR").Range("C46").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("E46").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("G46").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("I46").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("K46").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("M46").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD>" & Sheets("SUPERVISOR").Range("C47").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("E47").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("G47").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("I47").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("K47").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("M47").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD>" & Sheets("SUPERVISOR").Range("C48").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("E48").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("G48").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("I48").Value, 2), "#,#0.00") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("K48").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("M48").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "</TABLE>"
    
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"
    HTML = HTML & "<hr>"
    
'####
'INDICADORES DE ATINGIMENTO DA META EM PEÇAS (PÇS) - "POR CATEGORIA" DE PRODUTOS
'####

    HTML = HTML & "<UL><LI TYPE='SQUARE'><FONT SIZE='4'><B>" & Sheets("SUPERVISOR").Range("B51").Value & "</B></FONT></LI></UL>"
    
'Indicadores de Atingimento por CATEGORIA - ## G1 ##
    HTML = HTML & "<TABLE CELLSPACING='0' CELLPADDING='0' BORDER='1' BORDERCOLOR='SILVER'>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD WIDTH='150'><FONT COLOR='RED'><B><U>" & Sheets("SUPERVISOR").Range("D53").Value & "</U></B></FONT></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("F53").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("H53").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("J53").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("L53").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("N53").Value & "</U></TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' OS CLASSICOS
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D54").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F54").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H54").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J54").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L54").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N54").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' GRÃO SABOR REDONDO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D55").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F55").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H55").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J55").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L55").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N55").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' GRÃO SABOR QUADRADO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D56").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F56").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H56").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J56").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L56").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N56").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' CHIA E MACADAMIA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D57").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F57").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H57").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J57").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L57").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N57").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' LIGHT
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D58").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F58").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H58").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J58").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L58").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N58").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' ESTAR BEM
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D59").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F59").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H59").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J59").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L59").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N59").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' SEM CASCA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D60").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F60").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H60").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J60").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L60").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N60").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' AUSTRALIANO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D61").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F61").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H61").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J61").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L61").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N61").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BAGEL
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D62").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F62").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H62").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J62").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L62").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N62").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "</TABLE>"

'Indicadores de Atingimento por CATEGORIA - ## G2 ##
    HTML = HTML & "<TABLE CELLSPACING='0' CELLPADDING='0' BORDER='1' BORDERCOLOR='SILVER'>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD WIDTH='150'><FONT COLOR='RED'><B><U>" & Sheets("SUPERVISOR").Range("D64").Value & "</U></B></FONT></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("F64").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("H64").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("J64").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("L64").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("N64").Value & "</U></TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' FORMA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D65").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F65").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H65").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J65").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L65").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N65").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BISNAGUINHA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D66").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L66").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N66").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' MINI BISNAGA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D66").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J66").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L66").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N66").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' HAMBURGUER
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D67").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F67").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H67").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J67").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L67").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N67").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' HOTDOG
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D68").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F68").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H68").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J68").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L68").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N68").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' SIRIO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D69").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F69").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H69").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J69").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L69").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N69").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "</TABLE>"
    
'Indicadores de Atingimento por CATEGORIA - ## G3 ##
    HTML = HTML & "<TABLE CELLSPACING='0' CELLPADDING='0' BORDER='1' BORDERCOLOR='SILVER'>"
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD WIDTH='150'><FONT COLOR='RED'><B><U>" & Sheets("SUPERVISOR").Range("D72").Value & "</U></B></FONT></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("F72").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("H72").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='120'><U>" & Sheets("SUPERVISOR").Range("J72").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("L72").Value & "</U></TD>"
    HTML = HTML & "<TD WIDTH='100'><U>" & Sheets("SUPERVISOR").Range("N72").Value & "</U></TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' URSINHO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D73").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F73").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H73").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J73").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L73").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N73").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO GOLD
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D74").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F74").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H74").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J74").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L74").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N74").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO SUÍÇO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D75").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F75").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H75").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J75").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L75").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N75").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO CAFÉ DA MANHA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D76").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F76").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H76").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J76").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L76").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N76").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO INTEGRAL
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D77").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F77").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H77").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J77").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L77").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N77").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO ZERO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D78").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F78").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H78").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J78").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L78").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N78").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO COBERTO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D79").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F79").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H79").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J79").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L79").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N79").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BOLO SUISSE RONDE
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D80").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F80").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H80").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J80").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L80").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N80").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' TORRADA PADRÃO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D81").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F81").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H81").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J81").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L81").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N81").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' TORRADA ESPECIAL
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D82").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F82").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H82").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J82").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L82").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N82").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' TICKROC
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D83").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F83").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H83").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J83").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L83").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N83").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' TORRADA CANAPES
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D84").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F84").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H84").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J84").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L84").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N84").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' CROUTTONS
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D85").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F85").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H85").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J85").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L85").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N85").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' BASE PARA PIZZA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D86").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F86").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H86").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J86").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L86").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N86").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' PÃO ALEMÃO
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D87").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F87").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H87").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J87").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L87").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N87").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    ' FARINHA DE ROSCA
    HTML = HTML & "<TR ALIGN='CENTER'>"
    HTML = HTML & "<FONT SIZE='3'>"
    HTML = HTML & "<TD ALIGN='RIGHT' STYLE='PADDING-RIGHT:5px'>" & Sheets("SUPERVISOR").Range("D88").Value & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("F88").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("H88").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("J88").Value, 0), "#,#0") & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("L88").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "<TD>" & Format(VBA.Round(Sheets("SUPERVISOR").Range("N88").Value, 1), "#,#0.0") & "%" & "</TD>"
    HTML = HTML & "</FONT>"
    HTML = HTML & "</TR>"
    HTML = HTML & "</TABLE>"

    HTML = HTML & "<br>"
    HTML = HTML & "<br>"
    HTML = HTML & "<hr>"
    
    


    
    HTML = HTML & "<img border='0' src='Teste1.png' "
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"
    HTML = HTML & "<br>"


'####
'DLL para efetuar conexão com servidor de E-mails (POP3)
'####

With lobj_cdomsg.Configuration
.Fields(cdoSendUserName) = "adm.corporativo@minhaempresa.com.br" 'Endereço de e-mail para autenticar no servidor
.Fields(cdoSendPassword) = "************" 'Senha do e-mail para autenticar no servidor
.Fields(cdoSMTPAuthenticate) = cdoBasic
.Fields(cdoSMTPServer) = "mail.minhaempresa.com.br" 'Nome do servidor SMTP / POP3
.Fields(cdoSMTPConnectionTimeout) = 25 'Tempo de conexão
.Fields(cdoSMTPServerPort) = 25 'Porta do servidor de E-Mails
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields.Update
End With


With lobj_cdomsg
.To = Sheets("SUPERVISOR").Range("F7").Value 'Endereço de e-mail destinatario (PARA:)
.CC = Sheets("SUPERVISOR").Range("F8").Value 'Endereço de e-mail destinatario (COM COPIA:)
.BCC = "" 'Endereço de e-mail destinatario (COM COPIA OCULTA:)
.From = Sheets("SUPERVISOR").Range("F4").Value 'Endereço de e-mail do remetente
.Subject = Sheets("SUPERVISOR").Range("F9").Value & " - " & Sheets("SUPERVISOR").Range("D15").Value 'Assunto do e-mail
.HTMLBody = HTML 'Mensagem que foi montada (Todo corpo do e-mail)
.AddAttachment ("C:Usersf1600549DesktopMETASTemp IMGTeste1.png")
.Send
End With

Set lobj_cdomsg = Nothing


End Sub

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 12/02/2014 12:41 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Continuando.... (Tópico anterior atingiu o limite, tive que apagar um pouco do codigo VBA)

Pensei em fazer algo como declarar todo codigo HTML do e-mail em um bloco de notas, ou em alguma celula do Excel.... O que acham??

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 12/02/2014 12:44 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não tenho experiência nesta questão, não sei se é possivel devido aos dados a serem enviados, mas ja pensou em dividir em partes o que tem de enviar, tipo em 2 ou 3 mensagens ?

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/02/2014 4:40 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Ola!

Mauro obrigado pela ajuda! Mas a ideia é de enviar tudo em apenas 1 e-mails, esse e-mail é um Dashboard com informações de vendas, metas, graficos, e Etc...

Enfim, consegui RESOLVER da seguinte maneira:

Eu ja havia passado por isso antes e eu utiliza o comando "Call Macro1" para dar continuidade na macro, porem dessa vez isso não iria funcionar, pois não era possível eu colocar esse comando e dividir uma Variável no meio...

Então resolvi criando duas TextBox na planilha onde eu salvo o código HTML ficando mais ou menos assim:

Para gerar essas duas TextBox com o HTML do e-mail, eu chamo 2 macro e utilizo "Call Gera_HTML1" e "Call Gera_HTML2".

Após Gerar esse codigo HTML nas duas TextBox é só enviar um e-mail com o codigo abaixo:

Sub Envia_Email()
Dim HTML
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message

    HTML = ActiveSheet.TextBox1.Value & ActiveSheet.TextBox2.Value


'####
'DLL para efetuar conexão com servidor de E-mails (POP3)
'####

With lobj_cdomsg.Configuration
.Fields(cdoSendUserName) = "adm.corporativo@minhaempresa.com.br" 'Endereço de e-mail para autenticar no servidor
.Fields(cdoSendPassword) = "************" 'Senha do e-mail para autenticar no servidor
.Fields(cdoSMTPAuthenticate) = cdoBasic
.Fields(cdoSMTPServer) = "mail.minhaempresa.com.br" 'Nome do servidor SMTP / POP3
.Fields(cdoSMTPConnectionTimeout) = 25 'Tempo de conexão
.Fields(cdoSMTPServerPort) = 25 'Porta do servidor de E-Mails
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields.Update
End With

With lobj_cdomsg
.To = Sheets("SUPERVISOR").Range("F7").Value 'Endereço de e-mail destinatario (PARA:)
.CC = Sheets("SUPERVISOR").Range("F8").Value 'Endereço de e-mail destinatario (COM COPIA:)
.BCC = "" 'Endereço de e-mail destinatario (COM COPIA OCULTA:)
.From = Sheets("SUPERVISOR").Range("F4").Value 'Endereço de e-mail do remetente
.Subject = Sheets("SUPERVISOR").Range("F9").Value & " - " & Sheets("SUPERVISOR").Range("D15").Value 'Assunto do e-mail
.HTMLBody = HTML 'Mensagem que foi montada (Todo corpo do e-mail)
.AddAttachment ("C:Usersf1600549DesktopMETASTemp IMGTeste1.png")
.Send
End With

Set lobj_cdomsg = Nothing


End Sub

Abraços!!!!

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 13/02/2014 5:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/02/2014 8:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico