• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ADNSil

Ler Email do outlook(outlook configurado)

3 mensagens neste tópico

Boas, consigo ler os emails do outlook com o seguinte codigo:

inseridas as referencias(...) e os imports (Imports Outlook = Microsoft.Office.Interop.Outlook)

______________________________________________________

este mostra os nomes de quem me enviou os emails numa listbox.

            objOL = New Outlook.Application
            objNS = objOL.GetNamespace("MAPI")
            olfolder = objOL.GetNamespace("MAPI").PickFolder

            If olfolder Is Nothing Then
                MsgBox("carregamento de eMails cancelado!")
                Exit Sub
            End If

            myItems = olfolder.Items

            ' adiciona por nome os emails recebidos
            For x As Integer = 1 To myItems.Count
                With myItems.Item(x)
                    ListBox_de.Items.Add(.SenderName)
                End With
            Next x

___________________________________________________

___________________________________________________

este ao clicar na listbox abre nas varias textbox os componentes do email seleccionado

            'abre a infirmaçao do nome/mail
            For x As Integer = 1 To 1
                With myItems.Item(ListBox_de.SelectedValue + 1)
                    'corpo do email
                    Dim a As String = .body & vbCrLf
                    CorpoRichTextBox.Text &= a
                    'data do email
                    Dim b As String = .ReceivedTime & vbCrLf
                    DataTextBox.Text = b
                    'assunto do email
                    Dim c As String = .Subject & vbCrLf
                    AssuntoTextBox.Text = c
                    'remetente do email
                    Dim d As String = .SenderName & vbCrLf
                    DeTextBox.Text = d
                End With
            Next x
        End If

_____________________________________________________

Agora a dificuldade... como e que eu faço uma pesquisa, seleccionando só os emails de quem eu quero???

exemplo:

no outlook tenho emails do "ind.A" do "ind.B" e do "ind.C"

imaginando que cada um envio-me 2 emails, depois da pesquisa com o meu código actual aparece o seguinte:

"ind.A"

"ind.A"

"ind.B"

"ind.B"

"ind.C"

"ind.C"

quero sim pesquisar só um e apareça:

se pesquisar por "ind.A" deve aparecer só

"ind.A"

"ind.A"

ou se for por "ind.B" deve aparecer só

"ind.B"

"ind.B"

... ...

Desculpem persistir mas quero ter a certeza que percebem LOL

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
objOL = New Outlook.Application
            objNS = objOL.GetNamespace("MAPI")
            olfolder = objOL.GetNamespace("MAPI").PickFolder

            If olfolder Is Nothing Then
                MsgBox("carregamento de eMails cancelado!")
                Exit Sub
            End If

            myItems = olfolder.Items

            ' adiciona por nome os emails recebidos
            For x As Integer = 1 To myItems.Count
                With myItems.Item(x)
                    If .SenderName = txtPesquisaFiltro.Text then
                        ListBox_de.Items.Add(.SenderName)
                    End If
                End With
            Next x

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

Eu copiei o código e colei no vb mas deu um monte de erros. Podem ajudar-me com as referencias e imports que eu não percebo muito disso.

Obrigado

Flávio Soares

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora