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

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
MooM

COMANDO: ActiveWorkbook.EnvelopeVisible = False NÃO funciona

Recommended Posts

Boa tarde!

 

Tenho o código abaixo para selecionar as células desejadas e colar em um novo e-mail, entretanto, sempre da erro.

Poderiam ajudar ou enviar outro código que faça o mesmo, por favor?

Obrigado.

 

Sub Send_Range()
       
       'Seleciona o intervalo de células na planilha ativa.
       ActiveSheet.Range("A2:C20").Select
       
       ' Mostrar o envelope na ActiveWorkbook.
       ActiveWorkbook.EnvelopeVisible = False
       
       ' Isso é definir o campo opcional introdução acrescenta
       ' algum texto do cabeçalho para o corpo de e-mail. Ele também define
       ' as linhas Para e Assunto. Finalmente a mensagem
       ' é enviado
       With ActiveSheet.MailEnvelope
          .Introduction = "Bom dia Srs(ª)." & vbCr& "Segue Quantidade para teste" ' Texto Corpo do e-mail
          .Item.To = "teste@teste.com.br" ' Para quem sera enviado
          .Item.Cc = "teste@teste.com.br.com.br" ' Com copia
          .Item.Subject = "Quantidade de Atendimento" ' Assunto do e-mail
          .Item.Send 
       End With
   
End Sub

 

 

ERRO: Erro em tempo de execução '1004':

O método 'EnvelopeVisible' do objeto '_WorkBook' falhou.

Compartilhar este post


Link para o post
Compartilhar em outros sites

O código fica desse jeito, só que também não funciona trocando para True.

Eu pesquisei em alguns sites e verifiquei algumas instruções referentes versões do office, etc, e não adiantou também.

 

Sub Send_Range()
       
       ActiveSheet.Range("A2:C20").Select
       ActiveWorkbook.EnvelopeVisible = True


       With ActiveSheet.MailEnvelope
          .Introduction = "Bom dia Srs(ª)." & vbCr & "Segue Quantidade para teste" ' Texto Corpo do e-mail
          .Item.To = "teste@teste.com.br" 
          .Item.Cc = "teste@teste.com.br.com.br"
          .Item.Subject = "Quantidade de Atendimento" 
          .Item.Send 
       End With
   
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 20/01/2016 às 08:49, MooM disse:

O código fica desse jeito, só que também não funciona trocando para True.

Eu pesquisei em alguns sites e verifiquei algumas instruções referentes versões do office, etc, e não adiantou também.

 

Sub Send_Range()
       
       ActiveSheet.Range("A2:C20").Select
       ActiveWorkbook.EnvelopeVisible = True


       With ActiveSheet.MailEnvelope
          .Introduction = "Bom dia Srs(ª)." & vbCr & "Segue Quantidade para teste" ' Texto Corpo do e-mail
          .Item.To = "teste@teste.com.br" 
          .Item.Cc = "teste@teste.com.br.com.br"
          .Item.Subject = "Quantidade de Atendimento" 
          .Item.Send 
       End With
   
End Sub

Boa tarde,

 

Altere .Item.Send por .Item.Display

 

Atenciosamente.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






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

×