Access365: Selezionare un file (es. pdf) da una cartella a partire da una maschera

Question

Buonasera a tutti.

Premessa: non sono uno sviluppatore.

Detto ciò ho realizzato un piccolo database per gestire degli ordini nella mia attività. Sono anche riuscito ad "assemblare" il codice VBA per autenticarmi su exchange ed inviare una email in HTML. Ho usato le librerie CDO. Fin qui tutto ok.

Per allegare un pdf alla mia e-mail finora, solo a scopo di test, ho inizializzato una variabile con il nome del file (completo della path e dell'estensione) e tutto funziona. Viene inviata una mail con il testo giusto e con l'allegato.

Ovviamente ora vorrei sostituire l'allegato "fisso" (di prova) con un allegato che si possa scegliere; vorrei consentire cioè all'utente di aprire una finestra explorer, navigare nel file system del computer e selezionare un file (pdf) che poi verrebbe allegato alla mia email.

Lo so che sembra ridicolo ma mi sono arenato. Non riesco neanche a far aprire una istanza di explorer per selezionare il file.

Se qualcuno potesse anche solo indirizzarmi verso una soluzione gliene sarei grato.

Ringrazio anticipatamente.

Alessandro

Answer 1

Ciao,

dopo aver inserito il codice, dal menu, seleziona Debug->Compila il sistema verificherà e ti evidenzierà se ci sono errori.

Sicuramente ti segnalerà l'istruzione

Me.Txt_PathName = wPath

perchè la variabile txt_PathName non è in maschera semprechè tu sia in un modulo di una maschera. Se invece sei in un modulo non puoi comunque utilizzare Me.Txt_PathName perchè Me non puoi utilizzarlo.

Se non risolvi, descrivi l'istruzione che va in errore.

Mimmo

Answer 2

Ciao Mimmo.

Ho risolto e ti ringrazio tanto.

Avevi ragione (mi sento un tantino sciocco a non averci pensato, ma sono solo un piccolo dilettante).

Ho sostituito con l'elemento della maschera ed ho risolto.

Funziona tutto. Ti ringrazio infinitamente.

Answer 3

Ciao Alessandro,

ti posto uno stralcio di un mio codice per selezionare un file

Dim fDialog As Office.FileDialog

Dim varFile As Variant

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

.AllowMultiSelect = False

.Title = "Selezionare il file"

.Filters.Clear

.Filters.Add "pdf", "*.pdf"

.Filters.Add "Tutti", "*.*"

If .Show = True Then

For Each varFile In .SelectedItems

wPath = Mid(varFile, 1, InStrRev(varFile, ""))

Next

End If

End With

Me.Txt_PathName = wPath

Come vedi la variabìile varfile ti restituisce il path e il nome del file.

Ricordati di selezionare in Strumenti->Riferimenti la libreria Microsoft Office xxxx Object Library

Ciao Mimmo

Buongiorno Mimmo.

Come suggerito ho inserito il codice ma quando lo lancio mi compare un pop-up che recita "Errore di compilazione: Impossibile trovare il metodo o il membro dei dati".

Ricordati di selezionare in Strumenti->Riferimenti la libreria Microsoft Office xxxx Object Library

Anche questo passaggio è stato eseguito

Il mio ambiente è quello di Access365

Suggerimenti?

Answer 4

Buongiorno Mimmo.

Ti ringrazio per il prezioso suggerimento.

Provo il codice e pubblico i risultati a beneficio di tutti.

Ti ringrazio tanto.

Alessandro.

Answer 5

Ciao Alessandro,

ti posto uno stralcio di un mio codice per selezionare un file

Dim fDialog As Office.FileDialog

Dim varFile As Variant

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

  .AllowMultiSelect = False 

  .Title = "Selezionare il file" 

  .Filters.Clear 

  .Filters.Add "pdf", "\*.pdf"

  .Filters.Add "Tutti", "\*.\*" 

  If .Show = True Then 

      For Each varFile In .SelectedItems 

          wPath = Mid(varFile, 1, InStrRev(varFile, "\")) 

      Next 

  End If 

End With

Me.Txt_PathName = wPath

Come vedi la variabìile varfile ti restituisce il path e il nome del file.

Ricordati di selezionare in Strumenti->Riferimenti la libreria Microsoft Office xxxx Object Library

Ciao Mimmo