CANIL

Estive lendo sobre elas... No meu odigo já tem até elas. Estive lendo tambem sobre o BW_Click... acho q é BW mesmo. Bem o mais logico que achei foi tentar enviar uma sendmessage de click para a tela mas ainda não conseguir entender como funcionar esse comando muito bem, se poder me ajudar. vou deixar o codigo com estar agora, vai ter algumas alteraceos porem já da pra ter uma ideia. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Const gcClassnameMSWord = "OpusApp" Const gcClassnameMSExcel = "XLMAIN" Const gcClassnameMSIExplorer = "IEFrame" Const gcClassnameMSVBasic = "wndclass_desked_gsk" Const gcClassnameNotePad = "Notepad" Const gcClassnameMyVBApp = "ThunderForm" Sub Mandar_email() 'Macro feita para configrar busca valores. 'Criado por Victor Almada de Hollanda. 'Contato victorah@globo.com ou 93850315 Dim lHandle As Long Dim appIE As InternetExplorer Dim UserN As Variant, PW As Variant Dim Element As HTMLButtonElement Dim btnInput As MSHTML.HTMLInputElement Dim ElementCol As MSHTML.IHTMLElementCollection Dim Link As MSHTML.HTMLAnchorElement Dim strCountBody As String Dim TextIWant As String Dim oHTML1 As IHTMLElement 'variaveis constantes. test1 = 0 linha2 = 0 Linha = 2 Pref1 = "https://login.globo.com/login/1" Set oWeb = CreateObject("InternetExplorer.Application") oWeb.navigate Pref1 'oWeb.FullScreen = True oWeb.Visible = True Do Until oWeb.readyState = READYSTATE_COMPLETE Loop 'Comando para pagina de erro de certificado Set oHTML = oWeb.document cont1 = 0 b = "O Internet Explorer não pode exibir a página da Web" c = "Navegação Cancelada" d = "404 Not Found " For Each oHTML1 In oHTML.all If oHTML1.innerText = b Or oHTML1.innerText = c Then oWeb.Application.Quit Linha = Linha + 1 MsgBox ("Erro na pagina") 'GoTo Fim ElseIf oHTML1.innerText = d Then oWeb.Application.Quit Linha = Linha + 1 MsgBox ("Fora do AR") 'GoTo Fim End If If cont1 = 3 Then Exit For End If cont1 = cont1 + 1 Next 'fim do codigo para o erro de certificado. O codigo acima eu peguei de uma outra macro q fiz q tinha erro de certificado, porem, serve para caso a internet esteja fora. 'Metodo de login no site. oWeb.document.all("login-passaporte").innerText = "nomedoemail" 'Login oWeb.document.all("senha-passaporte").innerText = "senha" 'Senha 'Aqui entro no meu email. Set ElementCol = oWeb.document.getElementsByTagName("INPUT") For Each btnInput In ElementCol If btnInput.Name = "botaoacessar" Then btnInput.Click Exit For End If Next btnInput Do While oWeb.Busy DoEvents Loop Do Until oWeb.readyState = READYSTATE_COMPLETE Loop Set ElementCol = oWeb.document.getElementsByTagName("a") For Each Link In ElementCol If Link.innerHTML = "Escrever e-mail" Then Link.Click Exit For End If Next Link Do Until oWeb.readyState = READYSTATE_COMPLETE Loop 'Aparti daqui fecho a entra do meu email e selecao de escrever mensagem. Set ElementCol = oWeb.document.getElementsByTagName("INPUT") For Each btnInput In ElementCol If btnInput.Name = "file0" Then 11: btnInput.Click 'Aqui ele dentro do meu email ele clica em Anexar(o ideal era adicionar o caminho mas n tem no codigo HTML) 'Esse codigo serve pra buscar a jane de anexar arquivo, aprincipio ela não tem mt serventia porem depois vou pescisar disso. Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match") WinWnd = FindWindow(vbNullString, Ret) If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub ShowWindow WinWnd, SW_SHOWNORMAL lpClassName = Space(256) RetVal = GetClassName(WinWnd, lpClassName, 256) MsgBox "Classname: " + Left$(lpClassName, RetVal) 'esse codigo so busca a chanela, mas queria tambem acrecentar nele uma forma de busca o arquivo, 'que tem dentro dessa janela(janela de anexar arquivo). O que quero mesmo seria colocar o "Nome do arquivo" 'ou selecionar o arquivo e clicar em abrir. 'pra baixo ainda tem mas codigo mas so poderei adcionar depois que terminar essa parte. GoTo 11 Exit For End If Next btnInput Do While oWeb.Busy DoEvents Loop End Sub Valeu ai plea forca...

Bem já descobrir a parte de busca a janela tenho o codigo sendo que agora falta uma comando em VBA para selecionar o item ou colocar o nome dele no camdo nome do arquivo que fica na tela de anexar aruqivo... a mesma tela q usamos para abrir arquivo no Excel... alguém sabe como fazer isso... Se alguema quiser o codigo eu posso esta postando aki... Abracos.

Tenho sempre entrado nesse forum para tirar duvidas do VBA com o IE. So que não consegui matar 2 duvidas. Tenho uma macro que loga no meu email pessoal e envia um email para o meu email do trabalho, porem, gostaria de saber como posso anexar um arquivo nesse email, visto que, quando foi anexar um arquivo ele sai da tela do IE e abre outra janela, o que quero saber é como posso controlar essa janela. A outra duvida e meio que relacionada a essa, gostaria de saber como faco para controla uma janela já aberta do windows (IE mesmo) sem ter que criar um novo objeto. Pois a pouco fiz uma macro mt parecida so que nela quando clicava num link ela abrir outra janela isso me atrabalha um pouco. Fico grato se alguém me ajudar. Sou novo no forum e se caso eu estiver comentendo algum erro ao abrir um tópico, gostaria de orientacao. Obrigado...

Tenho sempre entrado nesse forum para tirar duvidas do VBA com o IE. So que não consegui matar 2 duvidas e lendo aki acho que um de vocês podem me ajudar. Tenho uma macro que loga no meu email pessoal e envia um email para o meu email do trabalho, porem, gostaria de saber como posso anexar um arquivo nesse email, visto que, quando foi anexar um arquivo ele sai da tela do IE e abre outra janela. A outra duvida e meio que relacionada a essa, gostaria de saber como faco para controla uma janela já aberta do windows (IE mesmo) sem ter que criar um novo objeto. Pois a pouco fiz uma macro mt parecida so que nela quando clicava num link ela abrir outra janela isso me atrabalha um pouco. Fico grato se alguém me ajudar.