Salve a tutti
ho un database access per la gestione dei ticket helpdesk
ho una casella email helpdesk su cui gira un agente in background
quando arriva l\'email,alcuni campi di questi vengono passati in un database access per crearea automaticamente il ticket
un programmatore ha fatto un agente funzionante e si trova sotto
attualmente un campo di access prende di default tale valore --> WEBMAIL (Call result.SetValue("User", "webmail"))
invece,vorrei che prendesse il campo FROM dell\'email
come posso fare ?
grazie
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
Mittente= doc.GetItemValue("from")
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", "webmail")
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
|