Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Buongiorno a tutti, ho creato il codice sottoriportato che mi permette di inviare un messaggio tramite Outlook, con dati già impostati nel codice.
La maschera su cui lavoro ha un campo ti tipo Allegato su cui importo i files selezionati tranmite un altro codice che mi permette ciò.
Il problema è che i files in questo campo chiamato Allegato ( di tipo Allegato) vengono salvati con l'immagine e non con il percorso ed il nome e cosi facendo non ho la possibilità di allegarlo, avrei bisogno di conoscere il percorso ed il nome per poterlo fare ( cosi come richiede il codice alla riga Attachments.Add.).
Chiedo il vostro aiuto per ultimare quest'altra mia esigenza.
Private Sub Comando237_Click()
Dim destinatario As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
If MsgBox("Vuoi inviare la E-Mail al militare selezionato", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
Else
With OutMail
.To = Forms!FrmAccettazione![email]
.CC = Forms!FrmAccettazione![email]
.BCC = Forms!FrmAccettazione![email]
.Subject = "Comunicazione di rito ecc."
.Body = "Gentile collega" & Chr(10) & _
Chr(10) & "questa è una prova di invio" & _
Chr(10) & _
Chr(10) & "Nichicanta"
.Attachments.Add (Forms!FrmAccettazione![Allegato]) ' è qui il problema cosi facendo non mi fa allegare il file per i motivi suesposti.
.Send 'per inviare subito la mail
'.Display 'per aprire e controllare la mail prima di inviarla manualmente
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
Ciao Nicola.
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
<cut>
Puoi, per favore, postare le domande come Domanda e NON come Discussione?
Grazie.
Grazie Mauro, ciao Mimmo, procediamo a piccoli passi per volta, sono autodidatta e mi sfuggono alcuni dettagli del tuo codice.
Ho letto anche io che è preferibile alleggerire il Database da miglia di allegati ( cosi si verificherà quando metterò in rete il Databse poichè registrerà migliaia di dati nel corso del suo utilizzo).
Cosa devo cambiare del tuo codice per adattarlo al mio campo chiamato Allegato.
Ho solo la necessità di poterlo allegare al codice che ti ho postato cambiando i riferimenti che ho impostato alla riga: .Attachments.Add (Forms!FrmAccettazione![Allegato]) ' è qui il problema cosi facendo non mi fa allegare
Mimmo aiutami a capire per favore cosa devo fare, perdonami.
Ciao Nicola.
P.S. se non ti chiedo molto potresti commentare il codice per aiutami a capire cosa fa.
Ciao Mauro, chiedo scusa, nemmeno io so come sia potuto accadere.
Cosa devo fare la devo ripubblicare oppure no.
Ciao a tutti.
Ok, no problem. Già fatto io.
Ciao Nicola,
I files allegati sono fisicamente nel record di una tabella Access e non sono link a files fisici del tuo PC.
La cosa è importante per valutare la mole di informazioni che vai ad inserire nel file Accdb.
Talvolta, piuttosto che incorporare files in un campo di tipo allegato, è convemiente memorizzare il solo path dove si trova fisicamente il file.
Per poter trattare i files che hai nel campo Allegato devi utilizzare la tecnica di salvare il singolo file e quindi allegarlo.
Di seguito un esempio che consente di trattare un file del campo allegato aprirlo in PDF e stamparlo.
Dim rstCurr As Recordset
Dim rstAll As Recordset2
Dim fldAttach As DAO.Field2
Dim strFilePath As String
Set rstCurr = Me.RecordsetClone
rstCurr.FindFirst "Mn_Id = " & Me.Mn_Id
Set rstAll = rstCurr.Fields("Mn_Allegato").Value
Set fldAttach = rstAll.Fields("FileData")
strFilePath = "c:\Temp" & rstAll.Fields("FileName")
If Dir(strFilePath) <> "" Then
VBA.SetAttr strFilePath, vbNormal
VBA.Kill strFilePath
End If
fldAttach.SaveToFile "c:\temp"
Shell "C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.exe " & strFilePath, vbMaximizedFocus
SendKeys "^p~", True
SendKeys "%{F4}", True
Mimmo
Ciao Mauro, chiedo scusa, nemmeno io so come sia potuto accadere.
Cosa devo fare la devo ripubblicare oppure no.
Ciao a tutti.