lettura file msg di Outlook

[mary]

Buongiorno a tutti

Giornalmente in una cartella salvo le mail del giorno con estensione msg.
Vorrei poi da codice vb aprirle per recuperare il mittente l'oggetto e gli
allegati, utilizzando l'automazione. Avrei bisogno di qualche suggerimento.
Grazie della collaborazione

mary

[Sergio MAZZA]

Post by mary
Buongiorno a tutti
Giornalmente in una cartella salvo le mail del giorno con estensione msg.
Vorrei poi da codice vb aprirle per recuperare il mittente l'oggetto e gli
allegati, utilizzando l'automazione. Avrei bisogno di qualche
suggerimento.
Grazie della collaborazione
mary

Hai già considerato la possibilità di collegarti alle tabelle di outlook da
access (File - Collega dati esterni)?

Ciao.

[Sergio MAZZA]

Ho impostato Outlook come client di posta predefinito, poi da Access ho
fatto il collegamento tabelle con tipo file Outlook: la finestra si chiude
senza alcuna segnalazione. E' corretto? Ma ammesso che sia tutto ok, il
mio
problema è leggere il file msg che ho salvato su una cartella al di fuori
di
Outlook: il sistema che mi consigli funziona?
grazie per la collaborazione
mary

Lascia perdere il precedente suggerimento, se hai già i messaggi salvati
come file msg, non ti serve (né servirà) collegarti alle tabelle di outlook.
Per aprire un file msg, se è associato ad un programma di posta elettronica,
basta che ne invochi l'apertura con uno script qualsiasi:
es.
www.sitocomune.com
Sezione General
6.183 Aprire un qualsiasi file (di formato txt, pdf, tif ecc.) direttamente
da un db access (2)

Ciao.

[mary]

Post by Sergio MAZZA

Ho impostato Outlook come client di posta predefinito, poi da Access ho
fatto il collegamento tabelle con tipo file Outlook: la finestra si chiude
senza alcuna segnalazione. E' corretto? Ma ammesso che sia tutto ok, il mio
problema è leggere il file msg che ho salvato su una cartella al di fuori di
Outlook: il sistema che mi consigli funziona?
grazie per la collaborazione
mary

Lascia perdere il precedente suggerimento, se hai già i messaggi salvati
come file msg, non ti serve (né servirà) collegarti alle tabelle di outlook.
Per aprire un file msg, se è associato ad un programma di posta elettronica,
es.
www.sitocomune.com
Sezione General
6.183 Aprire un qualsiasi file (di formato txt, pdf, tif ecc.) direttamente
da un db access (2)
Ciao.
--
Sergio MAZZA

il mio problema non è tanto quello di aprire il file, lì la soluzione c'è;
io voglio aprire il file msg salvato in una cartella fuori da Outlook per
recuperarne alcuni valori (mittente, oggetto, ecc.) e il tutto attraverso il
codice di automazione. Come faccio ad es. con un documento Word:
Set Wrd = GetObject(, "Word.Application")
Set Doc = Wrd.Documents.Open(path)
Non riesco a impostare la seconda riga di codice per il file msg.

mary

[Sergio MAZZA]

Post by mary
il mio problema non è tanto quello di aprire il file, lì la soluzione c'è;
io voglio aprire il file msg salvato in una cartella fuori da Outlook per
recuperarne alcuni valori (mittente, oggetto, ecc.) e il tutto attraverso il
Set Wrd = GetObject(, "Word.Application")
Set Doc = Wrd.Documents.Open(path)
Non riesco a impostare la seconda riga di codice per il file msg.
mary

Con questo script (pare, non l'ho testato) non necessiti di nessuna libreria
e outlook installato:
How to decode an MSG file without any DLL's
http://www.outlookcode.com/codedetail.aspx?id=1561

Ciao.

[mary]

Post by Sergio MAZZA

Post by mary
il mio problema non è tanto quello di aprire il file, lì la soluzione c'è;
io voglio aprire il file msg salvato in una cartella fuori da Outlook per
recuperarne alcuni valori (mittente, oggetto, ecc.) e il tutto attraverso il
Set Wrd = GetObject(, "Word.Application")
Set Doc = Wrd.Documents.Open(path)
Non riesco a impostare la seconda riga di codice per il file msg.
mary

Con questo script (pare, non l'ho testato) non necessiti di nessuna libreria
How to decode an MSG file without any DLL's
http://www.outlookcode.com/codedetail.aspx?id=1561
Ciao.
--
Sergio MAZZA

provato e funziona (ho dovuto modificare qualche riga di codice per via che
mi dava errore di overflow); per il secondo suggerimento mi prendo un po' di
tempo

grazie
mary

[Sergio MAZZA]

Post by mary
provato e funziona (ho dovuto modificare qualche riga di codice per via che
mi dava errore di overflow); per il secondo suggerimento mi prendo un po' di
tempo
grazie
mary

Grazie a te per il riscontro...

Ciao.

[Sergio MAZZA]

Post by mary
il mio problema non è tanto quello di aprire il file, lì la soluzione c'è;
io voglio aprire il file msg salvato in una cartella fuori da Outlook per
recuperarne alcuni valori (mittente, oggetto, ecc.) e il tutto attraverso il
Set Wrd = GetObject(, "Word.Application")
Set Doc = Wrd.Documents.Open(path)
Non riesco a impostare la seconda riga di codice per il file msg.
mary

Altra via potrebbe essere l'utilizzo di CreateItemFromTemplate:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\statusrep.oft", _
myOlApp.Session.GetDefaultFolder(olFolderDrafts))
MyItem.Display
avuto accesso all'oggetto MyItem potrai leggere le sue proprietà:a..
SentOnBehalfOfNameb.. SenderNamec.. ReceivedByNamed..
ReceivedOnBehalfOfNamee.. ReplyRecipientNamesf.. Tog.. CCh.. BCCi.. Bodyj..
HTMLBodyk.. Recipientsl.. SenderEmailAddressOra non potendo testare il
tutto, non utilizzo outlook, mi viene da pensare che la GetDefaultFolder
accetta delle constanti non un path quindi bisognerà prima indicarne il
nuovo tramite la proprietà CurrentFolder dell'oggetto Explorer
(CurrentFolder Property:
http://msdn.microsoft.com/en-us/library/aa211818(office.11).aspx); e sapere
dove è il file template (file .oft) utilizzato per generare i file
.msg.Ciao.-- Sergio MAZZA

[mary]

Post by Sergio MAZZA

Post by mary
il mio problema non è tanto quello di aprire il file, lì la soluzione c'è;
io voglio aprire il file msg salvato in una cartella fuori da Outlook per
recuperarne alcuni valori (mittente, oggetto, ecc.) e il tutto attraverso il
Set Wrd = GetObject(, "Word.Application")
Set Doc = Wrd.Documents.Open(path)
Non riesco a impostare la seconda riga di codice per il file msg.
mary

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\statusrep.oft", _
myOlApp.Session.GetDefaultFolder(olFolderDrafts))
MyItem.Display
avuto accesso all'oggetto MyItem potrai leggere le sue proprietà:a..
SentOnBehalfOfNameb.. SenderNamec.. ReceivedByNamed..
ReceivedOnBehalfOfNamee.. ReplyRecipientNamesf.. Tog.. CCh.. BCCi.. Bodyj..
HTMLBodyk.. Recipientsl.. SenderEmailAddressOra non potendo testare il
tutto, non utilizzo outlook, mi viene da pensare che la GetDefaultFolder
accetta delle constanti non un path quindi bisognerà prima indicarne il
nuovo tramite la proprietà CurrentFolder dell'oggetto Explorer
http://msdn.microsoft.com/en-us/library/aa211818(office.11).aspx); e sapere
dove è il file template (file .oft) utilizzato per generare i file
..msg.Ciao.-- Sergio MAZZA

Grazie delle informazioni... per ora cerco di capire il primo suggerimento
poi ti dirò
mary

[mary]

Post by Sergio MAZZA

Post by mary
Buongiorno a tutti
Giornalmente in una cartella salvo le mail del giorno con estensione msg.
Vorrei poi da codice vb aprirle per recuperare il mittente l'oggetto e gli
allegati, utilizzando l'automazione. Avrei bisogno di qualche suggerimento.
Grazie della collaborazione
mary

Hai già considerato la possibilità di collegarti alle tabelle di outlook da
access (File - Collega dati esterni)?
Ciao.
--
Sergio MAZZA

Ho impostato Outlook come client di posta predefinito, poi da Access ho
fatto il collegamento tabelle con tipo file Outlook: la finestra si chiude
senza alcuna segnalazione. E' corretto? Ma ammesso che sia tutto ok, il mio
problema è leggere il file msg che ho salvato su una cartella al di fuori di
Outlook: il sistema che mi consigli funziona?

grazie per la collaborazione
mary