Ir para conteúdo

Morpheus#2005

Members
  • Total de itens

    1004
  • Registro em

  • Última visita

Tudo que Morpheus#2005 postou

  1. Morpheus#2005

    Extracao de Emails do Outlook

    Opa! bão com vcs ? estou quebrando a cabeça para extrair todos os emails do outlook em VBA... tem como alguem me ajudar? to meio enferrujadoooo...rs Ele ate roda, mais nao pega todos os emails com a palavra REPORT no cabeçalho..... ta ossadaaaaaa... abraços aii Sub lerEmails() ' Criando a aplicação do Outlook Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") ' Criando um Namespace, que seria uma sessão no Outlook Dim objNSpace As Object Set objNSpace = objOutlook.GetNamespace("MAPI") Dim Pasta_Destino As Outlook.MAPIFolder Dim Pasta_Raiz As Outlook.MAPIFolder Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox").Folders("Marcia") Set Pasta_Raiz = objNSpace.Folders("femail@email.com").Folders("Inbox").Folders("Marcia") ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) Dim i As Long Dim itemPasta As Object Dim testCheck As String Selection.End(xlDown).Select Linha = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row i = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row 'Linha que vai começar preenchendo na planilha ' Percorrer todos os itens dentro da pasta For Each itemPasta In minhaPasta.Items testCheck = Trim(UCase(Left(itemPasta, 6))) If testCheck = "REPORT" Then If itemPasta.Class = olMail Then Dim objEmail As Outlook.MailItem Set objEmail = itemPasta Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox").Folders("Marcia") If objEmail.SenderName = "Relatorios_BI" Then GoTo fim: Cells(i, 1).Value = objEmail.SenderName Cells(i, 2).Value = objEmail.Subject Cells(i, 3).Value = objEmail.ReceivedTime 'Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) objEmail.Move Pasta_Destino Set Pasta_Raiz = objNSpace.Folders("email@email.com").Folders("Inbox") End If i = i + 1 Set Pasta_Raiz = objNSpace.Folders("email@email.com").Folders("Inbox") End If fim: Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox") Next MsgBox ("FIM") Set objEmail = Nothing Set objOutlook = Nothing Set objNSpace = Nothing Set minhaPasta = Nothing Set Pasta_Destino = Nothing Set itemPasta = Nothing End Sub
  2. Morpheus#2005

    Piadas!

    O cara matuto chegou na cidade e logo disse: hj eu tenho que comer alguém. Foi no puteiro e olhou na porta e perguntou para uma moça linda. Quanto custa a f0d4? ela respondeu vc quer prazer ou diversão ? Ele: Eu quero prazer. Ela : ok, são 300 reais, vá direto e entre na 3º porta a direita . Ele: Pagou e seguiu conforme ela falou, chegando lá ao abrir a porta tinha um loira linda, só de calcinha e sutia esperando ele. O sujeito afoito , já foi tirando a roupa e partindo pra cima daquela maravilhosa mulher, nunca tinha visto tão bela. bem foram 45 minutos de muita selvageria e a mulher não falou um "AI", quietinha estava quietinha ficou. Ele então perguntou : - Minha filha, eu estou aqui me acabando e vc ainda nada, nem conversar quer, nem gemer quer, nada, nada... Ela: Eu tenho um problema, só sinto tesão quando se fantasiam. Ele: Fantasia, mas fantasia de que? Ela: Eu tenho um espanador aqui, vc pode colocar ele no c* e fingir ser um Pavão ? Ele: tá louca ? quer ganhar umas porradas, sou macho minha filha. E continuo a fazer amor com ela....mas aquilo te intrigou...pq ela continuou igual uma pedra. Passado 10 minutos ele chega ao ouvido dela e diz: Voce promete que não conta pra ninguém se eu fizer o que pediu ? Ela: Prometo. O malandro entao se vestiu de pavão com aquele espanador e foi com tudo...ai a mulher se soltou e foi aquela loucura. 1 semana depois, ele volta no mesmo lugar , e a mulher pergunta: Vc quer prazer ou diversão ? Ele pensa e diz hj eu quero diversão. Ela: Então o senhor sobe até o 10º andar. Ele: pegou elevador e foi até o 10º andar, chegando lá viu um monte de homens rindo e olhando para baixo. Ele tbm foi olhar e começou a rir desesperadamente , porque viu um cara fazendo amor vestido de PATATI PATATA,... Nisso que ele nao parava de rir, o cara ao lado falou pra ele: Pô vc esta rindo disso, tinha que ver na semama passada o cara vestido de Pavão, ninguém se aguentava. rs...............é um pouco grande mas é boa.
  3. Morpheus#2005

    Boteco iMasters

    Infelizmente...a solução dada pelo Mário seria....a mudança do forum para o servidor MORPHEUS.NET. Mas o pessoal do servidor esta irredutivel pois o Imasters mudou para a UOL . Lamentável....
  4. Morpheus#2005

    Boteco iMasters

    Manda uma cerva bem gelada com um steinhaeger no fundo para a mesa 2005 por gentileza.. Thanks...o dia hj vai ser daqueles...
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.