Creare una mail con Access

Question

Buongiorno,

Mi chiedevo come fare ad inviare una mail con Access inserendo però nel corpo della mail il risultato di una query/report

Mi spiego meglio, vorrei che all'apertura di una maschera ci sia un tasto che se premuto crei in automatico una mail al cui interno nel corpo della mail ci sia il risultato di una query (o report) il risultato della Query ovviamente avrà più record.

Ho provato con il comando SendObject ma riesco solo a mettere il risultato della query come allegato.

Come potrei fare?

Grazie

Davide

Answer 1

Ciao Davide,

come hai detto normalmente si usa l'allegato per inviare il risultato di una query o di una report (di solito in formato Pdf).

Per impostare la query nel corpo dell'email penso tu debba utilizzare il codice Vba gestendo un loop sul recordset risultato dalla query.

Se fai qualche ricerca nel presente forum trovi sia il metodo SenObject che ti consente l'invio di un unico allegato sia il metodo che si basa sull'Automazione di Outlook per avere più allegati.

Facci sapere

Mimmo

Answer 2

Ciao Davide,

vedi questo esempio, ma al posto di Outlook dovresti usare l'oggetto CDO 

http://www.riolab.org/index.php?option=com_content&view=article&id=210:inviare-il-risultato-di-una-query-con-outlook&catid=46:access&Itemid=69

Per CDO vedi:

http://stackoverflow.com/questions/11579730/ms-access-send-email-not-from-outlook-or-users-email

Answer 3

Grazie Karl,

Questo codice fà al caso mio e riesco a comporre la mail (Grazie 1000)

Adesso però arriva il passo successivo, che tu sappia c'è un modo per "abbellirla" la mail???

Vorrei mettere del testo all'interno per spiegare la mail e se possibile un carattere più carino..

Leggendo un pò in giro sembra possibile farlo con l'html....secondo te?

Come potrei fare??

Il mio codice al momento è il seguente:

Private Sub Comando110_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strRec As String

Set db = CurrentDb

Set rs = db.OpenRecordset("Prova", dbOpenDynaset)

strRec = "Punto Vendita di Arrivo" & " " & "Città" & " - " & "Matricola" & " - " & "Modello" & " - " & "Descrizione Problema"

strRec = strRec & vbCrLf & "------------------------------------------------------"

Do Until rs.EOF

strRec = strRec & vbCrLf & _

rs![Punto Vendita di Arrivo] & " " & rs![Città] & " - " & rs![Matricola] & " - " & rs![Modello] & " - " & rs![Descrizione Problema]

rs.MoveNext

Loop

DoCmd.SendObject , , , "******@test.com", , , "Prova", strRec, False

rs.Close: Set rs = Nothing

End Sub

Answer 4

Ciao,

http://it.comp.appl.access.narkive.com/C31P9CsP/record-query-in-corpo-messaggio-email

Answer 5

Ciao Mimmo,

Sinceramento ho cercato ma non ho trovato nulla che fà al caso mio.....

Ho guardato un pò in giro per i vari forum ma non riesco proprio a farlo!!!!

Inserire il risultato della Query nel corpo mail sarebbe molto meglio anziche ogni volta andare ad aprire un allegato per vedere comunque pochi risulati che devo allegare...

Grazie comunque per l'interesse.

P.S. Se dovesse venirti in mente qualche esempio potrei magari lavorarci.

Davide