Ir ao conteúdo
  • Cadastre-se

LUIS GABRIEL PEREIRA PIRUK

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

posts postados por LUIS GABRIEL PEREIRA PIRUK

  1. Bom dia Pessoal

     

    Estou com uma dúvida, para muitos pode ser fácil para outros como eu ta um pouco complicado, tenho uma planilha em excel contendo várias informações, porém nesta lista mais especificadamente a partir da colula D2 eu gostaria de um código que copie e cole no corpo do e-mail em forma de tabela onde o código está em negrito, atualmente eu tenho um código (abaixo) onde ele joga as informações no corpo do e-mail porém não em formato de tabela

    Sub MandaEmail()
        
        Dim EnviarPara As String
        Dim texto As String
        Dim Copia As String
        For i = 2 To 2
            EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1)
            If EnviarPara <> "" Then
            Copia = ThisWorkbook.Sheets(1).Cells(i, 2)
            texto = "Prezado(a)<b> " & ThisWorkbook.Sheets(1).Cells(i, 3) & " </b>informamos que,<br><br>" & "Até a presente data constatamos como pendente a entrega do seu Espelho de Ponto juntamente com a Papeleta referente aos períodos abaixo:<br><br>" & _
    "<b>Pendências;</b><br><br>" & ThisWorkbook.Sheets(1).Cells(i, 4) & "<br><br>Sendo assim, pedimos a gentileza de regularizar sua situação até" & ThisWorkbook.Sheets(1).Cells(i, 5) & ".<br><br>" & _
    "A Papeleta e o Espelho de Ponto devem estar assinados pelo funcionário e gestor e devem ser entregues impressas no DP local. <br>" & _
    "Quem está em outra localidade deve enviar através de malote.<br><br>" & _
    "<b>Caso já tenham sido entregues os documentos mencionados acima, favor confirmar diretamente no DP local.</b><br><br>" & _
    "Lembrando que o não cumprimento do processo caracteriza ato de indisciplina, passível de advertência e/ou suspensão.<br><br>" & _
    "Em caso de dúvidas, estamos à disposição.<br><br>" & _
    "Atenciosamente.<br><br>" & _
    "<b>Célula de controle de frequência</br>"
    
                Envia_Emails EnviarPara, Copia, texto
            End If
        Next i
    End Sub
    Sub Envia_Emails(EnviarPara As String, Copia As String, html As String)
        Dim OutlookApp As Object
        Dim OutlookMail As Object
     
        Set OutlookApp = CreateObject("Outlook.Application")
        Set OutlookMail = OutlookApp.CreateItem(0)
     
        With OutlookMail
            .SentOnBehalfOfName = "[email protected]"
            .ReplyRecipientNames = "[email protected]"
            .To = EnviarPara
            .CC = Copia
            .BCC = ""
            .Subject = "Pendencia entrega Cartão Ponto - URGENTE"
            .HTMLBody = html
            .Display ' para envia o email diretamente defina o código  .Send
        End With
     
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
    End Sub


     

    No anexo "email 1" é o e-mail como está ficando agora, e no anexo "email 2" é como eu gostaria que ficasse

     

    Toda ajuda é bem vinda

     

    Obrigado

     

    Gabriel Piruk

    email1.jpg

    email 2.jpg

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!