- 10 Fev 2021 às 12:12
#62100
Prezados, bom dia!
Precisando de um socorro pois não consigo chegar numa rotina que atenda minha necessidade.
A situação é hipotética. Tenho uma planilha que eu alimento em cada linha compras de clientes tipo NOME, COD_CLIENTE, EMAIL, PRODUTO e VALOR. Caso o mesmo cliente compre mais de um tipo de produto, logicamente, incluo na linha de baixo, as mesmas informações só alterando o produto e valor.
Busquei algumas informações na internet e criei a macro em anexo que envia o email automaticamente assim que alimento nova compra. Se o cliente compra só um produto, perfeito, sem problemas, o email vai certinho com as informações que preciso. Mas se ele compra 2 tipos de produto, não estou conseguindo criar a condição de mandar no mesmo email, o valor total da compra e a descrição do 2º produto. Ele acaba mandando 2 emails pra mesma pessoa, cada um com um produto.
Em resumo, ao gerar o email, o cliente tendo adquirido mais de um produto, a mensagem tem que informar o valor total da compra e a descrição do segundo (terceiro, etc) produto na mesma mensagem.
Obrigado.
Essa é a MACRO criada:
Sub enviar_email()
'Define linha de início da macro
linha = 2
'Analisa onde a macro vai parar - Linha vazia
While Cells(linha, 2) <> ""
'Condicional para não repetir envio de email
If Cells(linha, 1) = "" And Cells(linha, 1) <> "Pendente" Then
'Macro para envio do email
Set objeto_outlook = CreateObject("Outlook.Application")
Set Email = objeto_outlook.createitem(0)
Email.display
Email.to = Cells(linha, 4).Value
Email.Subject = "CONFIRMAÇÃO DE COMPRA - " & Cells(linha, 2).Value
'Macro para inserir corpo do email em html
If Time > 12 Then
Email.htmlbody = "<BODY style=font-size:11pt;font-family:Calibri>Prezado(a) " & Cells(linha, 2).Value & ", bom dia!<br><br>Agradecemos a preferência e comunicamos que foi aprovada a sua compra no valor de " & Cells(linha, 6).Text _
& " (" & Extenso_Valor(Cells(linha, 6)) & ")" & " para os produtos abaixo:<br><br>" & "<B>Produto: " & Cells(linha, 5).Value & ". (Valor - " & Cells(linha, 6).Value & ")</B>" & "<br><br>Informo que o prazo de entrega é de até 7 dias úteis.<br><br>Seguimos à disposição." _
& Email.htmlbody
Else
Email.htmlbody = "<BODY style=font-size:11pt;font-family:Calibri>Prezado(a) " & Cells(linha, 2).Value & ", boa tarde!<br><br>Agradecemos a preferência e comunicamos que foi aprovada a sua compra no valor de " & Cells(linha, 6).Text _
& " (" & Extenso_Valor(Cells(linha, 6)) & ")" & " para os produtos abaixo:<br><br>" & "<B>Produto: " & Cells(linha, 5).Value & ". (Valor - " & Cells(linha, 6).Value & ")</B>" & "<br><br>Informo que o prazo de entrega é de até 7 dias úteis.<br><br>Seguimos à disposição." _
& Email.htmlbody
End If
'Macro para incluir anexos
'Email.attachments.Add ("C:\Users\freirefab\Administracao\Documentos de apoio\Nota Fiscal.pdf")
'Email.send
'registrar o envio do email na planiha
Cells(linha, 1).Value = "Sim"
End If
linha = linha + 1
Wend
End Sub
Precisando de um socorro pois não consigo chegar numa rotina que atenda minha necessidade.
A situação é hipotética. Tenho uma planilha que eu alimento em cada linha compras de clientes tipo NOME, COD_CLIENTE, EMAIL, PRODUTO e VALOR. Caso o mesmo cliente compre mais de um tipo de produto, logicamente, incluo na linha de baixo, as mesmas informações só alterando o produto e valor.
Busquei algumas informações na internet e criei a macro em anexo que envia o email automaticamente assim que alimento nova compra. Se o cliente compra só um produto, perfeito, sem problemas, o email vai certinho com as informações que preciso. Mas se ele compra 2 tipos de produto, não estou conseguindo criar a condição de mandar no mesmo email, o valor total da compra e a descrição do 2º produto. Ele acaba mandando 2 emails pra mesma pessoa, cada um com um produto.
Em resumo, ao gerar o email, o cliente tendo adquirido mais de um produto, a mensagem tem que informar o valor total da compra e a descrição do segundo (terceiro, etc) produto na mesma mensagem.
Obrigado.
Essa é a MACRO criada:
Sub enviar_email()
'Define linha de início da macro
linha = 2
'Analisa onde a macro vai parar - Linha vazia
While Cells(linha, 2) <> ""
'Condicional para não repetir envio de email
If Cells(linha, 1) = "" And Cells(linha, 1) <> "Pendente" Then
'Macro para envio do email
Set objeto_outlook = CreateObject("Outlook.Application")
Set Email = objeto_outlook.createitem(0)
Email.display
Email.to = Cells(linha, 4).Value
Email.Subject = "CONFIRMAÇÃO DE COMPRA - " & Cells(linha, 2).Value
'Macro para inserir corpo do email em html
If Time > 12 Then
Email.htmlbody = "<BODY style=font-size:11pt;font-family:Calibri>Prezado(a) " & Cells(linha, 2).Value & ", bom dia!<br><br>Agradecemos a preferência e comunicamos que foi aprovada a sua compra no valor de " & Cells(linha, 6).Text _
& " (" & Extenso_Valor(Cells(linha, 6)) & ")" & " para os produtos abaixo:<br><br>" & "<B>Produto: " & Cells(linha, 5).Value & ". (Valor - " & Cells(linha, 6).Value & ")</B>" & "<br><br>Informo que o prazo de entrega é de até 7 dias úteis.<br><br>Seguimos à disposição." _
& Email.htmlbody
Else
Email.htmlbody = "<BODY style=font-size:11pt;font-family:Calibri>Prezado(a) " & Cells(linha, 2).Value & ", boa tarde!<br><br>Agradecemos a preferência e comunicamos que foi aprovada a sua compra no valor de " & Cells(linha, 6).Text _
& " (" & Extenso_Valor(Cells(linha, 6)) & ")" & " para os produtos abaixo:<br><br>" & "<B>Produto: " & Cells(linha, 5).Value & ". (Valor - " & Cells(linha, 6).Value & ")</B>" & "<br><br>Informo que o prazo de entrega é de até 7 dias úteis.<br><br>Seguimos à disposição." _
& Email.htmlbody
End If
'Macro para incluir anexos
'Email.attachments.Add ("C:\Users\freirefab\Administracao\Documentos de apoio\Nota Fiscal.pdf")
'Email.send
'registrar o envio do email na planiha
Cells(linha, 1).Value = "Sim"
End If
linha = linha + 1
Wend
End Sub
Você não está autorizado a ver ou baixar esse anexo.
