Ir ao conteúdo
  • Cadastre-se

Jefferson TS

Membro Pleno
  • Total de itens

    86
  • Cadastrado em

  • Última visita

  • Qualificações

    0%

Tópicos solucionados

  1. O post de Jefferson TS em Macro excluir linha (vba) foi marcado como solução   
    @RafaVillani Deu este erro:

  2. O post de Jefferson TS em Verificar cadastro de email antes de enviar (excel - vba) foi marcado como solução   
    Olá. Minha planilha tem a SUB colada abaixo que serve para salvar em pdf e enviar email.
    Gostaria de, antes de executar o código, fazer a verificação se o cliente possui email cadastrado, se SIM, exibir mensagem perguntando deseja enviar para o email xxxxxxxxxxxxxx (email cadastrado); e se NÃO exibir mensagem que o cliente não possui email cadastrado | deseja cadastrar email para o cliente (abre formulário de cadastro com os dados do cliente inclusive id) | inserir email manualmente (abre form com texbox para inserir email avulso)
    CONTROLE NOVO f.rar
     
    Sub enviar_EMAIL() ' SalvarPDF Macro Sheets("ficha_treino").Select ID = Worksheets("ficha_treino").Range("a9") NOME = Worksheets("ficha_treino").Range("d7") pdf = ThisWorkbook.Path & "\" & NOME & " - Ficha " & ID & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=pdf 'atualizar numeração Sheets("FICHA_TREINO").Select Range("A9").Select Selection.Copy Sheets("STAFF").Select Range("A60000").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FICHA_TREINO").Select Application.CutCopyMode = False ' limpartudo Macro Range("D7:E7").Select Selection.ClearContents Range("D8:E8").Select Selection.ClearContents Range("B10:E10").Select Selection.ClearContents Range("B11:E11").Select Selection.ClearContents Rows("14:103").Select Selection.Delete Shift:=xlUp Range("D7:E7").Select Dim outl As Object, novo_email As Object Set outl = CreateObject("outlook.application") Set novo_email = outl.CreateItem(0) With novo_email .Display '.To = UserFormEmail.TextBoxEndEmail.Value 'FAZER O FORMULÁRIO COM A TEXTBOX '.CC = "jiyaime@gmail.com" .Attachments.Add pdf .Subject = "Ficha de treino PHYSICAL" .Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!" .Send End With MsgBox "O email foi enviado com sucesso", vbInformation, "E-mail" ActiveWorkbook.Save End Sub  

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...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!