Jump to content
Fórum Script Brasil

GTTJ

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Neutro

About GTTJ

  1. PrezadosEstou tentando executar a Macro abaixo, porém dá erro 13. Meu Office é 2010 de 64bits. Ela contém API para executar o Menu no formulário.Obs.: Peguei esta macro na net e irei personalizar para o que estou querendo fazer. A Macro aponta para a parte em vermelho: 'Font enumeration types Public Const LF_FACESIZE = 32 Public Const LF_FULLFACESIZE = 64 Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte
  2. Prezados, Boa noite, Segue a solução: Windows("Exemplo.xls").visible = False Para reexibir a planilha use assim Windows("Exemplo.xls").visible = True Obs.: Estes exemplos funcionam no Office 2003. Desde já agradeço, :ninja:
  3. Prezados, Bom dia, Como faço para ocultar uma planilha específica da Barra de Tarefas do Windows por meio de VBA? Desde já agradeço à atenção, :ninja:
  4. GTTJ

    Pegar Assinatura do Outlook

    Prezados, Bom dia, Segue a solução: Tenho a seguinte macro Option Explicit Dim assinatura As Variant Public Function pega_assinatura(ByVal sFile As String) As String Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) pega_assinatura = ts.readall ts.Close End Function Sub Envio_Email() On Error Resume Next Dim myOlApp As Outlook.Application Dim myItem As MailItem Dim myAttachments As Attachments Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) Set myAt
  5. Prezados, Boa noite, Tenho uma macro que pega informações de uma Sheet e coloca no corpo do e-mail. O Que eu quero é que além de pegar esta informação é que coloque a minha assinatura configurada no meu Outlook, ao invés de colocar uma assinatura sem formatação, como texto. Alguém pode me ajudar? Desde já agradeço à atenção, :ninja:
  6. GTTJ

    Oculatr Processo

    Prezados, Boa noite, Como faço para Ocultar um Processo, e não o Aplicativo, do Gerenciador de Tarefas do Windows por meio de VBA? Por que peço isso ? Solicito, pois tenho um programa na minha empresa que parece que verifica o Gerenciador e se for veradeiro que já tem uma instância aberta o mesmo me retorna com a mensagem informando que não irá abrir. Portanto queria contornar este problema. Já ten-tei ocultar o Aplicativo do Gerenciador, mas se sucesso. Desde já agradeço à atenção, :ninja:
  7. Prezados, Boa noite, Como faço para Zipar um arquivo por meio de VBA? Obs: Zipar com o ZipCentral. Desde já agradeço à atenção, :ninja:
  8. Prezados, Boa noite, o link: http://inanyplace.blogspot.com/2009/03/out...o-aviso-de.html me mostra uma forma. Outra forma de se fazer isso é após o comando Display escrever a seguinte linha: sendkeys ("%R"), True. Obs: Este comando emula o Outlook, mas mesmo assim evita de aparecer a maldita mensagem de Segurança do Outlook, pelo menos na versão 2003. Att,
  9. Prezados, Boa noite, Como faço para me livrar da Mensagem de Segurança do Outlook 2003 quanto tento enviar um e-mail automático por meio de VBA? Obs.: Quero utilizar somente VBA, de modo que não venha a utilizar nenhum programa sobressalente. Desde já agardeço à atenção,
  10. GTTJ

    Preencher o Campo "De"

    Prezados, Boa noite, A Resposta a minha pergunta foi apenas acrescentar a linha na minha macro: myItem.SentOnBehalfOfName = Sheets("E-MAIL").Range("h2").Value 'Célula onde consta o remetente que desejo preenhcher o Campo "De" do Outlook. Desde já agradeço a atenção de todos.
  11. GTTJ

    Preencher o Campo "De"

    Prezados, boa tarde, Como faço para preencher o Campo "De" do Outloock por meio de vba? Obs.: A Versão do Outloock é 2003. Desde já agradeço a atenção, :unsure:
  12. Prezados, boa tarde, A resposta é colocar 2 subrotinas, uma dentro da outra. Segue o exemplo abaixo: Sub Plan_Nova() '1º Rótulo OCORREUERRO: 'Acessa a outra Rotina Plan_Nova1 'Faz uma segunda verificação. E caso constatado que não existe uma planilha nova aberta, então força o desvio da macro para o rótulo acima e consequentemente a segunda macro vai ser executada novamente (Uma espécie de loop). If range("a1").value = 1 then Goto OCORREUERRO End If 'Coloque o código a ser executado, caso exista uma planilha do excel aberta e ainda não salva aquí End Sub Sub Plan_Nova1() 'Variáve
  13. Prezados, Boa tarde, Alguém sabe me informar como façõ para criar um "loop" por meio de vba onde este verifica se há uma nova planilha aberta e ainda não salva, ou seja a mesma vai conter o título de "Microsoft Excel - Pasta1". Obs: Esta planilha ainda não salva esta em instância diferente da planilha que contiver a macro.Se algum de vocês souberem acessar o Gerenciador do Windows por meio de vba e imprimir os processos atuais em uma sheet eu também fico grato. Att, :rolleyes:
×
×
  • Create New...