Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

LUIS GABRIEL PEREIRA PIRUK

Membros Juniores
  • Total de itens

    2
  • Registro em

  • Última visita

  • Qualificações

    N/D

Reputação

0

Sobre LUIS GABRIEL PEREIRA PIRUK

  1. Visual Basic Colar dados de uma célula no corpo do e-mail html VBA

    Olá, desculpe a demora em responder Philip, segue abaixo as evidencias da planilha.
  2. 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 = "meuemail@email.com" .ReplyRecipientNames = "meuemail@email.com" .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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×