Excel & 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;