1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Vb] Guardar corpo de um mail em txt

Discussão em 'Programação' iniciada por RodasP, 4 de Junho de 2009. (Respostas: 3; Visualizações: 1163)

  1. RodasP

    RodasP Power Member

    Bom dia a todos,

    Tenho o objectivo de fazer em vb (no Outlook), um programa que ao receber um email com um determinado assunto ele copiar esse e-mail (corpo da mensagem) para um ficheiro txt.

    Já sei como criar os ficheiros e a parte do assunto.

    Queria saber como se copia o corpo da mensagem.

    Podia dar algumas luzes??

    Aguardo uma resposta.

    Obrigado
     
  2. gOnYs

    gOnYs Power Member


    Ve isto:

    http://www.eggheadcafe.com/tutorial...a-d4859ec8f58e/read-outlook-mails-and-se.aspx

    Depois de conseguires ler os e-mails do outlook, fazes um timer que te correr de x em x tempo que te verifica os e-mails e se o subject for o que tu queres apanhas o corpo da mensagem através das classes que o .net te fornece
     
  3. RodasP

    RodasP Power Member


    obrigado pela rsp.

    Já vai ajudar. Hoje comprei um livro de Vb, para isto e para um futuro próximo.

    Fica bem
     
  4. RodasP

    RodasP Power Member

    Já consegui fazer, só hoje é que tive tempo de cá vir.

    Aqui tá o código que usei...
    Código:
    Private Sub Application_NewMail()
    Dim retVal As Variant
    
    Set OlApp = CreateObject("Outlook.Application")
    Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
    Set InboxItems = Inbox.Items
    
    For Each Mailobject In InboxItems
        If Mailobject.UnRead Then
            Subject = Mailobject.Subject
            SenderName = Mailobject.SenderName
            Tolist = Mailobject.To
            mailcontent = Mailobject.Body
            Mailobject.UnRead = False
        End If
    Next
    
    If Subject = "xpto" Then
        Open "C:\Mail\MailMessage.txt" For Append As #1
        Print #1, mailcontent
        Close #1
        retVal = Shell("C:\Windows\System32\notepad.exe C:\Mail\MailMessage.txt")
        Set OlApp = Nothing
        Set Inbox = Nothing
        Set InboxItems = Nothing
        Set Mailobject = Nothing
        Set TempRst = Nothing
    End If
    
    End Sub
    
    A pasta tem que existir, porque se não dá erro.
     
    Última edição pelo moderador: 30 de Junho de 2009

Partilhar esta Página