Access invia mail con allegato

Question

Buon pomeriggio a tutti.

Ho la tabella "Avvisi" con un campo allegato (formato PDF) e ho la maschera continua "inviomail" (basata sulla tabella "avvisi").

Cliccando sul campo "indirizzomail" della maschera attivo il seguente codice:

Private Sub IndirizzoMail_Click()

Dim Attachment As Object

Dim Messaggio As String

Dim Mail As String

Messaggio = "Bla bla bla. Cordiali saluti. Pinco Pallino"

Mail = IndirizzoMail

DoCmd.SendObject , "Attachment", "PDFFormat(*.pdf)", Mail, , , "Avviso", Messaggio

End Sub

intendendo in questo modo inviare all'indirizzo mail selezionato il file allegato come attachment; ovviamente non funziona,  ma non riesco a trovare un'alternativa funzionante.

Inoltre quando il codice apre Outlook non viene riportata la "firma" che abitualmente invece si trova ogni volta che clicco su "nuovo" direttamente da Outlook (questo quesito è stato oggetto di un'apposita domanda alla community tempo fa , ma non ho mai ottenuto risposte).

Vi ringrazio da ora e vi auguro una buona domenica.

Andrea

Answer 1

G R A ND I O S O !!!!!

Answer 2

ciao Andrea,

[...]

Prometto che non ti stresso più

[...]

posta pure qualcuno risponde sempre :-)

[...]

ma non riesco ad aprire il file PDF il cui percorso è caricato sulla maschera; ho provato con OpenFileDialog cliccando sul campo "fullpath" ma non riesco a farlo funzionare.

[...]

un modo.

inserisci un nuovo commandButton nella form chiamalo ad esempio cmdOpenFileName.

su evento click invochi :

Private Sub cmdOpenFileName_Click()

If Len(Me.fullPAth & vbNullString) > 0 Then openMyFileName Me.fullPAth

End Sub

 e nel modulo dove hai il fileDialog :

Public Sub openMyFileName(ByVal strPath As String)

If Not FileExists(strPath) Then

    VBA.MsgBox "il file:" & strPath & " non esiste!", vbCritical, "Attenzione"

    Exit Sub

End If

Dim ret As Integer

ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & strPath, vbNormalFocus)

End Sub

Public Function FileExists(strPathFile As String) As Boolean

      On Error Resume Next

      FileExists = ((GetAttr(strPathFile) And vbDirectory) = 0)

End Function

[...]

Grazie per l'ennesima volta.

Andrea

prego! :-)

ciao Sandro.

Answer 3

Prometto che non ti stresso più ma non riesco ad aprire il file PDF il cui percorso è caricato sulla maschera; ho provato con OpenFileDialog cliccando sul campo "fullpath" ma non riesco a farlo funzionare.

Grazie per l'ennesima volta.

Andrea

Answer 4

Grazie funziona !

Pensavo di essere un impareggiabile stacanovista ma forse ho trovato qualcuno peggio di me.

Ciao

Andrea

Answer 5

ciao Andrea,

[...]

Ho provato con (non mi sparare per favore se ci sono degli strafalcioni):

[...]

ROTFL!

quindi se ho capito.

questa parte del path è fissa :

\DS1515PLUS\DatiAziendali\Avvisi di notula e notule\

e punta al server.

ci torna buona la variabile strPathRete, che dichiarerai nel fileDialog :

Private Const strPathRete As String = "\\DS1515PLUS\DatiAziendali\Avvisi di notula e notule\"

a questo punto ricaviamo mese e anno dalla data :

 .InitialFileName = strPathRete & Format$(Data, "mmmm") & "" & Format$(Data, "yyyy") & ""

che passerai al filedialog :

Private Sub cmdCarica_Click()

Me.fullPAth = cmdFileDialog(Me.Data)

End Sub

che diventerà :

Public Function cmdFileDialog(ByVal Data As Date) As Variant

[....]

Grazie ancora

Andrea

prego e buona domenica anche a te :-)

ciao, Sandro.