Newsgroup: it.comp.appl.access
Titolo: Importazione da e-mail

Salve,
conoscete un modo per aggiornare una tabella (access 2000) attraverso
e-mail?


Ma in che senso?

 Ho una tabella che dovrei aggiornare attraverso un invio di e-mail: ho già
previsto un query d'accodamento per aggiornare i record della tabella e
chiedevo se esiste un modo abbastanza automatizzato per importare il file
dalla posta elettronica.

 wrote in message
iMKa8.15800$Jo.4...@twister2.libero.it...

Se parli di mdb allegati alla mail contenenti tabelle il cui contenuto deve
essere accodato a qualche altra tabella locale (almeno se ho capito bene),
il discorso è abbastanza complesso... Io ho un applicazione del genere, e
funziona, ma che livello di conoscenza del codice hai?
Devi lavorare con MAPI :
Private Sub MioPulsante_Click()
DoCmd.Hourglass True
Dim appout As Outlook.Application
Dim nacc As NameSpace
Dim carposta As MAPIFolder
Dim myDestFolder As MAPIFolder
Dim cposta As Items
Dim msgatt As MailItem
Dim att As Attachment
Dim rs As Recordset
Set appout = CreateObject("Outlook.Application")
Set nacc = appout.GetNamespace("MAPI")
Set carposta = nacc.GetDefaultFolder(olFolderInbox)
Set cposta = carposta.Items
Set myDestFolder = carposta.Folders("ARCHIVIO")  'E' una cartella creata in
Outlook per archiviare le mail passate
Dim x As Byte
For x = 1 To cposta.Count
If Format$(Now(), "dd/mm") = Left$(cposta.Item(x).ReceivedTime, 5) Then
cposta.Item(x).Attachments(1).SaveAsFile "Inserire il percorso nel quale
salvare l'allegato" & cposta.Item(x).Attachments(1).DisplayName
RunAppAndWait "C:\RarPack.exe x -o+ -m5 -ep C:\Percorso su cui derarrare il
file" & cposta.Item(x).Attachments(1).DisplayName & " C:\Percorso su cui
derarrare il file\" & Left$(cposta.Item(x).Attachments(1).DisplayName, 3) &
"\", 0
Kill "C:\Percorso su cui derarrare il file\" &
cposta.Item(x).Attachments(1).DisplayName
End If
Next x
rs.close
Set rs = Nothing
Set appout = Nothing
Set nacc = Nothing
Set carposta = Nothing
Set cposta = Nothing
Set msgatt = Nothing
Set att = Nothing
DoCmd.Hourglass False
DoCmd.close
DoCmd.OpenForm "pannello"
'Me.Comando15.ForeColor = 255
End Sub
PS C:\RarPack.exe x -o+ -m5 -ep E' l'utility del compattatore RAR.. io gli
allegati me li faccio spedire compattati in formato RAR, quindi quando mi
arrivano in posta elettronica me li devo prima decompattare in automatico
per leggerli...
+ di questo non saprei... fammi sapere

 Dopo averti sentitamente ringraziato cerco di spiegarti meglio quello che
devo fare (anche perchè avrei bisogno di altre info per utilizzare il codice
che mi hai gentilmente suggertito).
Ho una tabella A in diversi pc di miei colleghi che deve essere
quotidianamente aggiornata con una tabella A del mio database.
Ho pensato di inviargli il file d'aggiornamento dei record attraverso
l'e-mail.
All'interno del loro database ho predisposto una query d'accodamento che se
eseguita accoda i record di una tabella B collegata al file d'aggiornamento
in una cartella (file che ogni giorno deve essere scaricato dall'e-mail e
sovrascritto all'interno della cartella).
Allora chiedevo se qualcuno conosce un sistema che evita di dover salvare il
file d'aggiornamento nella cartella (sovrascrivendolo) ma prendesse
l'aggiornamento direttamente dall'outlook (posta in arrivo).
Credo che tu mi abbia suggerito la procedura esatta, ma io non sono in grado
di applicarla, hai qualche altro suggerimento da darmi? (accetto anche
consigli su letteratura per principianti).
Ciao e grazie
PS: un'altro piccolo quesito: utilizzo per utilizzare questi database un
pannello di controllo su cui la funzione ESCI DAL DATABASE chiude il
database lasciando aperta però l'applicazione, sai come posso risolvere
questo problemino??

 wrote in message
_UMa8.16299$Jo.4...@twister2.libero.it...

Sul tasto di uscita, sul clik applica questo codice : Docmd.Quit


Allora dimmi primaditutto... i tuoi colleghi come te la mandano questa
tabella? nel senzo, ti mandano manualmente l'intero MDB (dove credo non ci
sia solo la tabella A, o almeno se č cosě dimmelo) o fanno qualcos'altro?

viene inviato come allegato e-mail un db con solamente la tabella in
questione che contiene solo i record da aggiornare
grazie 1000 (scusa il ritardo ero a pranzo) :-)