Newsgroup: it.comp.appl.access
Titolo: invio e-mail di file.mdb - Aiutooooooooo!!!

Ciao a tutti.
Ho trovato sul sito comune un programmino in access che mi permette di
scegliere un file e di inviarlo come attach.
Funziona alla grande...pero' pensavo che il tutto passasse per outlook la
sciando la traccio della posta inviata.
Come si puo' fare per controllare la data dell'ultimo 'invio?
Grazie 1000000000

 ha scritto nel messaggio
news:VkhQ8.122237$g04....@tornado.fastwebnet.it...

registrandola nel database......
successivamente alla routine di invio, se non hai errori, scrivi le
informazioni che ti interessano in una tabella
ciao.
--
e` inutile versare ruhm...
nu strunz nun addiventa babba'

 ha scritto nel messaggio
news:aes7qs$9kaqs$1...@ID-57322.news.dfncis.de...


 il messaggio.
fai una tabella, chiamiamola 'Messaggi', contente i campi:
- IDMessaggio          contatore
- Destinatario            Testo
- Mittente                  Testo
- DataSpedizione      data/ora
- Oggetto                  testo
- Testo                      memo
dopo la routine che invia il messaggio di posta richiama questa passandogli
i valori da registrare
Sub RegistraInvio(sDestMsg as string, sMitMsg as string, sTxtMsg as string,
sObjMsg as string)
    dim rs as recordset
    set rs = currentdb.openrecordset("Messaggi")
    rs.addnew
    rs("DataSpedizione") = now()
    rs("Destinatario") = sObjDest  > contiene l'indirizzo del destinatario
    rs("Mittente") = sObjDest > contiene l'indirizzo del mittente
    rs("Oggetto") = sObjMsg  > contiene il valore dell'oggetto
    rs("Testo") = sTxtMsg > contiene il valore del testo
    rs.update
    set rs=nothing
end sub
ciao.
ps. rispondi scrivendo in fondo al messaggio..... si legge meglio.....


 > Non ci avevo pensato; peroì non l'ho mai fatto....a livello di codice;

Grazie 1000 ti faro' sapere....
Ps. ai letto per caso il mio quesito su menu' personalizzati e oggetto
ole???? Vorrei un tuo parere....

 > Non ci avevo pensato; peroì non l'ho mai fatto....a livello di codice;

Non riesco a farla partire; puoi dare un'occhiata al codice su click; ho
creato la sub (come sub privata)....ma non sono sicuro sul comando per
richiamarla (Call ??????) e sul punto esatto dove richiamarla
questa sub e' quella che ho io
Private Sub cmdInvia_Click()
    Dim strPath As String
    Dim frm As Form
    Dim I%
    Set frm = New Form_MailFunction
    DoCmd.Hourglass True
    '***Settings
    'Tipo di protocollo
    frm.Wsk.Protocol = sckTCPProtocol
    '########## SMTP del server remoto
    frm.Wsk.RemoteHost = DLookup("[SMTP]", "tblConfig")
    If frm.Connect Then Set frm = Nothing: GoTo CHIUDI  'apre la connessione
    '########## Soggetto
    frm.Subject = Nz(Me!txtSubject, "")
    '########## Nome e cognome del mittente
    frm.senderName = Nz(Me!txtSenderName, "")
    '########## Indirizzo Mail del mittente
    frm.SenderEmail = Trim$(Nz(Me!txtSenderMail, ""))
    '########## Indirizzo Mail del destinatario
    frm.RecipientEmail = Trim$(Me!txtTo)
    '########## Indirizzo Cc
    frm.Cc = Trim$(Nz(Me!txtCc, ""))
    '########## Indirizzo Bcc
    frm.Bcc = Trim$(Nz(Me!txtBcc, ""))
    '########## Indirizzo ReplyTo
    frm.ReplyTo = Trim$(Nz(Me!txtReplyTo, ""))
    '########## Messaggio
    frm.txtBody = Nz(Me!txtMessaggio, "")
    '########## NOME FILE privo del Path
    If Nz(Me!txtAttach, "") <> "" Then
        frm.AttachName = StripPath(Me!txtAttach)
        If Right(frm.AttachName, 4) = ".doc" Or Right(frm.AttachName, 4) =
".rtf" Then frm.AttachType = "application/msword"
        If Right(frm.AttachName, 4) = ".jpg" Then frm.AttachType =
"image/jpeg"
        If Right(frm.AttachName, 4) = ".gif" Then frm.AttachType =
"image/gif"
        If Right(frm.AttachName, 4) = ".zip" Then frm.AttachType =
"application/x-zip-compressed"
        Dim hFile&, FileLength&, DATA$
        hFile = FreeFile()
        Open Me!txtAttach For Binary Access Read As #hFile
        FileLength = LOF(hFile)
        DATA = String(FileLength, Chr(0))
        Get #hFile, , DATA
        Close #hFile
        frm.AttachFile = Encode64(DATA)
    End If
    frm.DateSent = Now()
    Call RegistraInvio(sDestMsg As String, sMitMsg As String, sTxtMsg As
String, sObjMsg As String)
    If frm.SendMail Then MsgBox "Errore durante la spedizione della mail":
GoTo CHIUDI
    If frm.Disconnect Then MsgBox "Errore durante la chiusura della
connessione"
CHIUDI:
    DoCmd.Hourglass False
    Me.cmdExit.SetFocus
    Me.cmdInvia.Enabled = False
        Set frm = Nothing
        End Sub
questa e' la tua
Private Sub RegistraInvio(sDestMsg As String, sMitMsg As String, sTxtMsg As
String, sObjMsg As String)
     Dim rs As Recordset
     Set rs = CurrentDb.OpenRecordset("Messaggi")
     rs.AddNew
     rs("DataSpedizione") = Now()
     rs("Destinatario") = sDestMsg
     rs("Mittente") = sMitMsg
     rs("Oggetto") = sObjMsg
     rs("Testo") = sTxtMsg
     rs.Update
     Set rs = Nothing
End Sub
GRazie :-)))

 ha scritto nel messaggio
news:hgmQ8.122485$g04....@tornado.fastwebnet.it...

è giusto il modo di richiamarla (anche se il call è superfluo) l'errore stà
nel passaggio dei parametri, in quanto non li devi passare con la
descrizione del tipo di dato: questo va fatto solo sulla dichiarazione della
routine.
inoltre devi usare valori riconosciuti dalla tua procedura. I nomi che ho
messo io sono di variabili qualsiasi e non sono ne dichiarati ne valorizzati
nella tua routine. Prova così:
    call registrainvio frm.RecipientEmail , frm.SenderEmail, frm.txtBody,
frm.Subject
ciao.

 ha scritto nel messaggio
news:aestdu$9s8ra$1...@ID-57322.news.dfncis.de...
