ciao Mencarelli
grazie mille funziona
ora vorrei apportare delle migliorie
se uso questo Call result.SetValue("User", doc.iNetFrom(0)) ottengo l\'indirizzo esteso fabio_xxx@derxxx.it
cosė vado a scrivere nel campo UTENTE della tabella RICHIESTE l\'indirizzo esteso fabio_xxx@derxxx.it
vorrei invece scrivere il nome utente fabiom (che sarebbe associato all\'email fabio_xxx@derxxx.it )
ho aggiunto la tabella UTENTI che ha 3 campi: contatore,utente fabiom e email fabio_xxx@derxxx.it
e vorrei poter fare il controllo incrociato e scrivere nella tabella RICHIESTE il nome fabiom
come posso fare ?
ora ho questo codice:
Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim doc As NotesDocument
Dim s As New NotesSession
Dim NRichiesta As Long
Dim Corpo As NotesRichTextItem
Set doc = s.DocumentContext
Set Corpo = doc.GetFirstItem("Body")
Set qry.Connection = con
Set result.Query = qry
con.connectto("NotesHelpDesk")
qry.SQL = "SELECT NR FROM RICHIESTE ORDER BY NR"
result.Execute
result.LastRow
NRichiesta = result.GetValue("NR", NRichiesta)
Print "N segn. prec. " & NRichiesta
Call result.Close(DB_CLOSE)
qry.SQL = "SELECT * FROM RICHIESTE"
result.Execute
result.AddRow
Call result.SetValue("NR", Nrichiesta + 1)
Call result.SetValue("User", doc.iNetFrom(0))
Call result.SetValue("Status", "10 Richiesta inserita")
Call result.SetValue("Title", doc.Subject(0))
Call result.SetValue("Dt_Ins", Format$(Today, "dd/mm/yyyy"))
Call result.SetValue("Descr", Corpo.GetFormattedText(False, 0))
Call result.UpdateRow
Call result.Close(DB_CLOSE)
Call con.Disconnect
Print "Inserita segnalazione"
End Sub
|