Excel e Outlook

  • di Apoben64

    Ciao a tutti , il mio intento è riuscire a NON mandare email , ma solo di far sì che i messaggi ricevuti , mediaNte VBA, possano essere importati in excel , così come le "attività" di outlook.
    In "giRo" si trovano solo suggerimenti riguardanti l'invio di email, anche in questo sito, nella sezione "esempi di collegamento di applicazioni " troviamo l'invio di messaggi e non la ricezione , tra l'altro , per esigenze di lavoro mi piacerebbe importare anche le attività inserite in outlook.

    E' certamente per me un mondo nuovo. Fino ad ora sono riuscito a visualizzare l'oggetto delle email , con questa routine:

    Sub RiceviPosta()
    Dim olapp As Outlook.Application 'Pensare a Strumenti/Riferimenti MicrosoftOutlook Library (nel VBE)
    Dim olns As Outlook.Namespace
    Dim olmf As Outlook.MAPIFolder
    Dim obj As Object
    Set olapp = New Outlook.Application
    Set olns = olapp.GetNamespace("mapi")
    Set olmf = olns.GetDefaultFolder(olFolderInbox)
    For Each obj In olmf.Items
    MsgBox obj.Subject
    Next
    End

    L'obiettivo è chiaro, c'è qualcuno che vuole aiutarmi,darmi delle dritte o meglio approndire anche questo tipo di lavoro ?

    Un caro saluto !

    di Mauro
    Ciao Luca, anke outlook come gli altri applicativi Office possiete la console VBA ma meno evoluta.
    La routine che hai riportato è interessante, permette di importare i soggetti delle mail ricevute su excel. Con alcune piccole modifiche è possibile riportare anche il corpo i destinatari e magari scremarle per data ecc....
    Per quel ke riguarda le Attività ho scoperto ke TaskItem rappresenta la classe di oggetti delle attività anche se non so bene come funzioni! Se ho del tempo proverò a vedere qualcosa.
    Se approfondisci i tuoi studi e scopri qualcosa di interessante faccelo sapere magari possiamo scrivere un tutorial.

    di Apoben64
    Grazie Mauro, per me sarebbe molto importante arrivarci, purtroppo stò ricercando fonti sul web che mi possono aiutare in tal senso ,il problema è che se sono tutti in inglese, e da buon italiano non lo mastico bene. Come avrei notato adesso la routine mi produce "un" messaggio , e se volessi invece creare un listato sul foglio, come pensi che potrei fare ?
    Tu sei a conoscenza di qualche link in cui posso andare a informarmi o meglio forse dovrei attingere direttamente da il sito di microsoft per conoscere tutti gli applicativi ?
    Un salut Luca

    di Mauro
    Ti serve inserire le mail su un foglio di lavoro?
    è semplice ti basta fare una semplice modifica al ciclo:

    i = 1
    For Each obj In olmf.Items
    Range("A" & i) = obj.Subject
    Range("B" & i) = obj.To
    Range("C" & i) = obj.Body
    i = i + 1
    Next

    Con questo ti scarichi tutta la posta in un foglio di lavoro... era questo ke intendevi?

    di Apoben64
    Sì , grazie Mauro , non ho ancora trovato niente per importare le "attività" , se sai qualcosa in più fammelo sapere. Un salutone Luca

    di Mauro
    La routine di seguito riporta in Excel le attività di Outlook

    Sub RiceviAttivita()
    Dim olapp As Outlook.Application
    Dim olns As Outlook.NameSpace
    Dim olmf As Outlook.MAPIFolder
    Dim obj As Object
    Set olapp = New Outlook.Application
    Set olns = olapp.GetNamespace("mapi")
    Set olmf = olns.GetDefaultFolder(olFolderTasks)
    i = 1
    For Each obj In olmf.Items
    Range("A" & i) = obj.Subject 'Oggetto
    Range("B" & i) = obj.StartDate 'Data inizio
    Range("C" & i) = obj.DueDate 'Data scadenza
    Range("D" & i) = obj.Body 'Corpo
    i = i + 1
    Next
    End Sub

    Ti consiglio di studiare dal Visualizzatore di oggetti i metodi e le proprietà dell'oggetto TaskItem.
    Imparate a consultare il Visualizzatore di oggetti. Usato insieme alla guida in linea è uno strumento molto potente!

    di Apoben64
    Grazie Mauro,sei proprio unico !!!!! .
    Pensa che stavo lavorando , si fà per dire ( nel senso che quando hai la passione per certe cose è una cosa diversa)ad un link in inglese , che supporta questo tipo di problematica.
    Lo indico per oppotuna conoscenza :
    http://www.dicks-licks.com/excel/

    Affronta tutte le problematiche di Outlook.

    di Apoben64
    Mauro , mi dimenticavo di ringraziarti per la possibilità di aprire il sito direttamente da excel , GRANDIOSO !!!!!.
    Ascolta , come vedi mi stò concentrando su outlook , ma ogni volta che eseguo l'applicazione, devo prima andare nel VBA e settare la libreria Micr....Outlook . Mi sfugge come posso confermare o memorizzare per sempre questa libreria .
    Un salutone Luca;