Ir ao conteúdo
  • Cadastre-se

Luc Rosenhaim

Membro Júnior
  • Posts

    13
  • Cadastrado em

  • Última visita

Reputação

1
  1. Grato pela resposta. Eu já tinha selecionado as Referências indicadas e fiz a substituição do comando, mas manteve-se o erro na mesma linha. O curioso é que se rodo a macro com o Outlook fechado, ela funciona, porém daí quando tento abrir o Outlook depois disso recebo o erro na tela anexa. E não tenho nenhum programa aberto usando o Outlook.
  2. Grato pela pronta resposta Wendell. Agora deu o seguinte erro na linha que pediste pra alterar: Erro em tempode execução '429' O componente ActiveX não pode criar obejto
  3. Estou tentando enviar e-mail com os dados a partir de uma planilha ja aberta e com o Outlook já aberto, porém quando executo o código abaixo recebo mensagem de erro na linha 12. Alguém pode ajudar ? Feiz Páscoa ! 1 Sub Mail_IR() 2 Dim linha As Long 3 Dim Email As String 4 Dim Cliente As String 5 Dim Assunto As String 6 Dim OutApp As Object 7 Dim OutMail As Object 8 linha = ActiveCell.Row 9 Email = Range("ak" & linha).Value 10 Cliente = Range("d" & linha).Value 11 Assunto = "" 12 Set OutApp = CreateObject("Outlook.Application") 13 Set OutMail = OutApp.CreateItem(0) 14 On Error Resume Next 15 With OutMail 16 .To = Email 17 .CC = "" 18 .BCC = "" 19 .Subject = Assunto 20 .Body = "" 21 '.Attachments.Add "C:\Users\Luciano\Documents\" & Range(b2).Value & Range("d" & linha).Value & ".pdf" 22 .Display 'Podemos tambem usar: .Send (envia direto) ou .Display (abre na tela) 23 End With 24 On Error GoTo 0 25 Set OutMail = Nothing 26 Set OutApp = Nothing 27 End Sub
  4. adicionado 1 minuto depois Obrigado, vou testar ! adicionado 1 minuto depois
  5. Tenho uma macro que acessa o IE e carrega dados em um formulário. Manualmente preencho o captch que me leva pra outra/nova URL. Fiz outra macro pra carregar outros campos nessa nova URL. Como faço essa nova macro retornar ao IE, na URL nova criada, e preencha esses novos campos dessa nova macro ? Obrigado, Sub Codigo() 'vai pro e-CAC pra gerar novo codigo de acesso Dim IE As InternetExplorer Dim CPF As String Dim Nascimento As String Dim linha As Long Dim URL As String Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "https://www.receita.fazenda.gov.br/aplicacoes/ssl/atbhe/codacesso.app/PFCodAcesso.aspx" While IE.readyState <> READYSTATE_COMPLETE 'Identifica se a página já foi totalmente carregada Wend 'Carrega os dados do CPF e Código que serão preenchidos na página linha = ActiveCell.Row CPF = Range("b" & linha).Value Nascimento = Range("f" & linha).Value 'Carrega os dados na página e submete os dados no formulário IE.Document.all("txtCPF").Value = CPF IE.Document.all("txtDtNascimento").Value = Nascimento 'Identifica se a página já foi totalmente carregada While IE.readyState <> READYSTATE_COMPLETE Wend Do While sng + 3 > Timer Loop End Sub Sub Recibos() Dim IE As InternetExplorer Dim Recibo1 As String Dim Recibo2 As String Dim Senha1 As String Dim Senha2 As String Dim linha As Long Set IE = Object("InternetExplorer.Application") IE.Visible = True IE.navigate "https://www.receita.fazenda.gov.br/aplicacoes/ssl/atbhe/codacesso.app/PFCodAcesso.aspx" While IE.readyState <> READYSTATE_COMPLETE 'Identifica se a página já foi totalmente carregada Wend 'Carrega os dados que serão preenchidos na página linha = ActiveCell.Row Recibo1 = Range("as" & linha).Value Recibo2 = Range("au" & linha).Value Senha1 = "Lra301210" Senha2 = "Lra301210" 'Carrega os dados na página e submete os dados no formulário IE.Document.all("txtRecibo1").Value = Recibo1 IE.Document.all("txtRecibo2").Value = Recibo2 IE.Document.all("txtSenha").Value = Senha1 IE.Document.all("txtConfirmaSenha").Value = Senha2 End Sub
  6. Como fazer com que o Excel aceite os zeros as esquerda do CPF digitado numa determinada coluna, que mantenha os separadores de "." e "-" sem precisar digita-los ?
  7. Agora não consigo automatizar o botão "Avançar " do site. Estou usando essa linha de comando: IE.Document.GetElementByTagName("submit").Click
  8. @Basole Bah ! Mestre! Muito obrigado !!! adicionado 2 minutos depois @Basole @Basole Bah ! Muito obrigado !!! Fazes aplicações VBA sob encomenda ? ([email protected])
  9. Bom Dia. Estou tentando criar uma macro pra acessar o e-CAC e carregar no formulário do site os campos se CPF (coluna C) e código (coluna F) de acesso que estão na linha ativa, mas estou recebendo a mensagem de erro: "Erro em tempo de execução '1004'. Erro de definição de aplicativo ou de definição de objeto." Abaixo o código utilizado. Grato pela ajuda. Sub eCAC() Dim IE As InternetExplorer Dim CPF As String Dim Codigo As String Dim Senha As String Dim linha As Long Set IE = New InternetExplorer 'Cria um objeto Internet Explorer IE.Visible = True 'Torna o objeto visível IE.navigate "https://cav.receita.fazenda.gov.br/autenticacao/login/index" 'Abre o site do e-CAC While IE.readyState <> READYSTATE_COMPLETE 'Identifica se a página já foi totalmente carregada Wend 'Carrega os dados do CPF e Código que serão preenchidos na página linha = ActiveCell.Row CPF = Range("c", linha).Value Codigo = Range("f", linha).Value Senha = "Lra301210" 'Carrega os dados de cidade e UF na página e submente os dados do formulário IE.document.all("Ni").Value = CPF IE.document.all("CodigoAcesso").Value = Codigo IE.document.all("Senha").Value = Senha 'Identifica se a página já foi totalmente carregada While IE.readyState <> READYSTATE_COMPLETE Wend Do While sng + 3 > Timer Loop 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...