Controlla la velocità della tua connessione

VAI AL CONTENUTO DELLA PAGINA | VAI AL MENU PRINCIPALE

ONLUS
via Borgognona, 38 - 00187 Roma Tel 06.69.98.81 - Fax 06.67.86.815 - numero verde 800 682682 - Part. I.V.A. 00989551007

U I C - Osservatorio Siti Internet - OSI -

VAI AL MENU PRINCIPALE

Esportare la posta elettronica da Outlook ad Access.

In molti contesti lavorativi può risultare necessario esportare le e-mail gestite con Microsoft Outlook all'interno di un database Access.

La procedura passo-passo integrata nel client di posta Outlook è semplice ed efficace ma ha un grosso limite: non è possibile aggiungere dati ad un database creato in precedenza.

Se si desidera esportare frequentemente i dati nel medesimo database, è possibile applicare una soluzione basata sull'uso di codice VBA (Visual Basic for Applications).

Per esportare l'archivio di posta usando la procedura offerta da Outlook, è sufficiente fare riferimento all'apposito "wizard", accessibile facendo riferimento alla funzione Importa/Esporta del menù File.

Si dovrà semplicemente scegliere l'esportazione dei dati in formato Access, selezionare la cartella desiderata e premere il pulsante "Avanti".

Utilizzando del codice VBA, l'utente ha la possibilità di automatizzare l'intera procedura di esportazione da Outlook verso una base dati Access. Premendo la combinazione di tasti ALT più F11 da Microsoft Outlook si avrà accesso all'Editor Visual Basic (VBE).

Dal menù Inserisci, va selezionata la voce "Modulo" quindi si può procedere all'inserimento del seguente codice:

Sub EsportaPosta()
Dim ns As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Set ns= GetNamespace("MAPI")
Set objFolder= ns.PickFolder
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim intCounter As Integer
Set adoConn= CreateObject("ADODB.Connection")
Set adoRS= CreateObject("ADODB.Recordset")
adoConn.Open "DSN=DatiOutlook;"
adoRS.Open "SELECT * FROM email", adoConn, adOpenDynamic, adLockOptimistic
For intCounter= objFolder.Items.Count To 1 Step -1
With objFolder.Items(intCounter)
if .Class= olMail Then
adoRS.AddNew adoRS("Subject")= .Subject
adoRS("Body")= .Body
adoRS("FromName")= .SenderName
adoRS("ToName")= .To
adoRS("FromAddress")= .SenderEmailAddress
adoRS("FromType")= .SenderEmailType
adoRS("CCName")= .CC
adoRS("BCCName")= .BCC
adoRS("Importance")= .Importance
adoRS("Sensitivity")= .Sensitivity
adoRS.Update
End If
End With
Next
adoRS.Close
Set adoRS= Nothing
Set adoConn= Nothing
Set ns= Nothing
Set objFolder= Nothing
End Sub

Prima di eseguire la macro appena creata, è indispensabile in questo caso creare il database Access sul quale si andrà a memorizzare i dati esportati da Outlook.

E' possibile, a tal proposito, servirsi di quello che può essere creato sfruttando la procedura passo-passo integrata in Outlook. Si può comunque impiegare, come base dati per la memorizzazione delle e-mail esportate da Outlook, anche un database già esistente: è sufficiente creare una tabella denominata "email" con i vari campi richiesti (Subject, Body, FromName, ToName, FromAddress).

Tutti i campi sono di tipo testo tranne "Body" che deve essere necessariamente impostato come campo "memo". I nomi dei campi ricalcano quelli impiegati dal wizard di Outlook, purtuttavia possono essere liberamente modificati.

Il codice utilizza una connessione DSN (driver ODBC) per "dialogare" con la base dati Access. E' comunque possibile utilizzare altre stringhe di connessione.

Se si usa una connessione DSN, è necessario accedere alla finestra "Strumenti di amministrazione" di Windows, quindi, fare doppio clic sull'icona "Origine dati (ODBC)".

Nella finestra "DNS utente" è necessario selezionare "MS Access Database", quindi, cliccare su "Aggiungi".

Nella schermata successiva, va scelto "Microsoft Access Driver (*.mdb)", quindi, cliccare sul pulsante "Fine".

Nella finestra "Configurazione ODBC per Microsoft Access", attribuire al DSN il nome "DatiOutlook". Cliccando il pulsante "Seleziona", si dovrà indicare il database Access da utilizzare.

Dopo aver creato il DSN, si potrà eseguire la macro da Outlook accedendo al menù Strumenti, Macro.

A questo punto, si deve selezionare la macro "EsportaPosta" e premere il pulsante Esegui.

Info prelevate da: http://www.ilsoftware.it/articoli.asp?ID=3818