sabato 31 marzo 2012
vba importare i dati nelle attività di outlook
Option Explicit
'variabili per la gestione del folder
Dim fld As Outlook.MAPIFolder
''importa attività
Private Sub ImportaDatiAttivita(StrMessaggioErrore As String)
On Error GoTo ErrorHandler
'variabili per la gestione del db
Dim recDati As New ADODB.Recordset
Dim conDati As New ADODB.Connection
'variabile per la gestione degli elementi di outlook
Dim nms As Outlook.NameSpace
Dim itms As Outlook.Items
Dim itm As Outlook.MailItem
'varie impostazioni.
Dim strCartella As String
Dim fFound As Boolean
'variabile per il messaggio di errore
Dim StrErrore As String
'oggetto mapi
Set nms = Application.GetNamespace("MAPI")
'carico il db
conDati.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Attivita.mdb;User Id=;Password=;"
'apro la connessione db
conDati.Open
'apro il recordset carico i dati
recDati.CursorLocation = adUseClient
&n bsp; recDati.CursorType = adOpenDynamic
recDati.LockType = adLockOptimistic
recDati.Open "select * from Attività", conDati
'mi connetto al database
If recDati.RecordCount = 0 Then
MsgBox ("Non ci sono dati da importare per il Attività")
Exit Sub
End If
Set itms = fld.Items
Do Until recDati.EOF
'oggetto mail item
Set itm = itms.Add(olMailItem)
'campo Oggetto
If IsNull(recDati!Oggetto) = False Then itm.Subject = recDati!Oggetto
'Datainizio
If IsNull(recDati!Datainizio) = False Then itm.VotingResponse = recDati!Datainizio
'Orainizio
If IsNull(recDati!Orainizio) = False Then itm.CreationTime = recDati!Orainizio
'Datafine
If IsNull(recDati!Datafine) = False Then itm.VotingResponse = recDati!Datafine
'ora fine
If IsNull(recDati!Orafine) = False Then itm.ExpiryTime = recDati!Orafine
'ora Scadenza
If IsNull(recDati!Scandenza) = False Then itm.DeleteAfterSubmit = recDati!Scadenza
'Privato
If IsNull(recDati!Privato) = False Then itm.a = recDati!Privato
'Riservatezza
If IsNull(recDati!Riservatezza) = False Then itm.Recipients = recDati!Riservatezza
'Ruolo
If IsNull(recDati!Ruolo) = False Then itm.Mileage = recDati!Ruolo
'Società *
If IsNull(recDati!Società) = False Then itm.Companies = recDati!Società
'stato *
If IsNull(recDati!Scandenza) = False Then itm.RemoteStatus = recDati!Scadenza
itm.Close 0
'cambio l'elemento
itm.Move fld
recDati.MoveNext
Loop
'chiudo il recordset e libero la memoria
recDati.Close
Set recDati = Nothing
conDati.Close
Set conDati = Nothing
Exit Sub
errore:
End Sub
venerdì 30 marzo 2012
vba outlook importare i dati da access nel calendario di outlook
Option Explicit
'variabili per la gestione del folder
Dim fld As Outlook.MAPIFolder
Private Sub ImportaDatiCalendario(StrMessaggioErrore As String)
On Error GoTo ErrorHandler
'variabili per la gestione del db
Dim recDati As New ADODB.Recordset
Dim conDati As New ADODB.Connection
'variabile per la gestione degli elementi di outlook
Dim nms As Outlook.NameSpace
Dim itms As Outlook.Items
Dim itm As Outlook.MailItem
'varie impostazioni.
Dim strCartella As String
Dim fFound As Boolean
'variabile per il messaggio di errore
Dim StrErrore As String
'oggetto mapi
Set nms = Application.GetNamespace("MAPI")
'carico il db
conDati.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Calendario.mdb;User Id=;Password=;"
'apro la connessione db
conDati.Open
'apro il recordset carico i dati
recDati.CursorLocation = adUseClient
recDati.CursorType = adOpenDynamic
recDati.LockType = adLockOptimistic
recDati.Open "select * from Calendario", conDati
'mi connetto al database
If recDati.RecordCount = 0 Then
MsgBox ("Non ci sono dati da importare per il calendario")
Exit Sub
End If
Set itms = fld.Items
Do Until recDati.EOF
'oggetto mail item
Set itm = itms.Add(olMailItem)
'campo Oggetto
If IsNull(recDati!Oggetto) = False Then itm.Subject = recDati!Oggetto
'Datainizio
If IsNull(recDati!Datainizio) = False Then itm.VotingResponse = recDati!Datainizio
'Orainizio
If IsNull(recDati!Orainizio) = False Then itm.CreationTime = recDati!Orainizio
'Datafine
If IsNull(recDati!Datafine) = False Then itm.VotingResponse = recDati!Datafine
'ora fine
If IsNull(recDati!Orafine) = False Then itm.ExpiryTime = recDati!Orafine
'ora Giornataintera
itm.ExpiryTime
itm.Close 0
'sposto il messaggio nell'apposita cartella per esserne certo
itm.Move fld
recDati.MoveNext
Loop
'chiudo il recordset e libero la memoria
recDati.Close
Set recDati = Nothing
conDati.Close
Set conDati = Nothing
End Sub
giovedì 29 marzo 2012
Grande Asta d’Aprile quando il sociale aiuta
vba importare in outlook i dati da un database access e salvare il messaggio di posta elettronica
Le informazioni vengono salvate in un messaggio di posta elettronica in un'apposita cartella.
Option Explicit
'variabili per la gestione del folder
Dim fld As Outlook.MAPIFolder
Public Sub MiaMacro()
'etichetta errore
On Error GoTo ErrorHandler
'variabili per la gestione del db
Dim recDati As New ADODB.Recordset
Dim conDati As New ADODB.Connection
'variabile per la gestione degli elementi di outlook
Dim nms As Outlook.NameSpace
Dim itms As Outlook.Items
Dim itm As Outlook.MailItem
'varie impostazioni.
Dim strCartella As String
Dim fFound As Boolean
'variabile per il messaggio di errore
Dim StrErrore As String
'oggetto mapi
Set nms = Application.GetNamespace("MAPI")
'imposto la cartella calendario
strCartella = "Calendar" 'Calendario '"Task s" '"Importazione"
'effettuo una ricerca delle cartelle
fFound = TrovaCartella(nms.Folders(2).Folders, strCartella)
'verifico se esiste
If fFound = True Then
Set fld = nms.Folders(2).Folders(strCartella)
ElseIf fFound = False Then
'messaggio ed esco
'MsgBox ("La cartella non esiste, verificare la correttezza dei dati")
StrErrore = "Importazione dati nel Calendario non riuscita per i seguenti motivi: Nome o cartella calendario mancante"
' Exit Sub
'Set fld = nms.Folders(2).Folders.Add(strCartella, olFolderContacts)
End If
'carico il db
conDati.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;User Id=;Password=;"
'apro la connessione db
conDati.Open
'apro il recordset carico i dati
recDati.CursorLocation = adUseClient
recDati.CursorType = adOpenDynamic
recDati.LockType = adLockOptimistic
recDati.Open "select * from dati", conDati
'mi connetto al database
If recDati.RecordCount = 0 Then
MsgBox ("Non ci sono dati da importare")
Exit Sub
End If
Set itms = fld.Items
Do Until recDati.EOF
'oggetto mail item
Set itm = itms.Add(olMailItem)
'campo nome
If IsNull(recDati!Nome) = False Then itm.CC = recDati!Nome
'cognome
If IsNull(recDati!Cognome) = False Then itm.BCC = recDati!Cognome
'posta
If IsNull(recDati!posta) = False Then itm.Body = recDati!posta
'oggetto
If IsNull(recDati!Oggetto) = False Then itm.Subject = recDati!Oggetto
itm.Close 0
'sposto il messaggio nell'apposita cartella per esserne certo
itm.Move fld
recDati.MoveNext
Loop
'chiudo il recordset e libero la memoria
recDati.Close
Set recDati = Nothing
conDati.Close
Set conDati = Nothing
Exit Sub
ErrorHandler:
'libero la memoria
If recDati.State = adStateOpen Then recDati.Close
If conDati.State = adStateOpen Then conDati.Close
Set recDati = Nothing
Set conDati = Nothing
MsgBox "Errore Numero: " & Err.Number & "; Descrizione: " & Err.Description
End Sub
Function TrovaCartella(fldsParent As Folders, strCartella As String) As Boolean
'strRoot = "Personal"
For Each fld In fldsParent
If fld.Name = strCartella Then
TrovaCartella = True
Exit Functi on
End If
Next
End Function
Private Sub cmdcarica_Click()
Call MiaMacro
End Sub
mercoledì 28 marzo 2012
Windows 8 tasti di scelta rapida
Il tasto bandiera è quello posto a sinistra della barra spaziatrice.
Bandierina + k = Visualizza la finestra relativa ai dispositivi collegati al pc.
Bandierina + L = Blocca il pc.
Bandierina + P = In caso di due monitor passa all'altro.
Bandierina + Q = Apre la schermata Metro con la visualizzazione di tutti i programmi Installati.
Bandierina + R = Apre la finestra esegui.
Bandierina + U = Apre la finestra per le impostazione di accesso.
Bandierina + X = Apre il menu di avvio, diverso dal precedente, con le voci delle funzionalità principali, come la gestione delle impostazioni, la voce trova, ecc.
Bandierina + Z = Nel caso che ci troviamo nella schermata metro, visualizza la barra di tutte le applicazioni.
Bandierina + Tab = Passo da un programma all'altro.
Alt + F4 = Chiude il programma attivo.
martedì 27 marzo 2012
tasti di scelta rapida di Windows 8
Tenendo premuto il tasto con la figura della bandiera, di norma situato sulla sinistra della nostra tastiera, in combinazione con un altro tasto, si avviano determinate funzioni, vediamole alcune:
tasto bandiera = pagina principale
tasto bandiera + c = menu laterale a destra condivisione, start ecc
tasto bandiera + d = visualizza desktop o applicazione
tasto bandiera + m = minimizza le applicazioni
tasto bandiera + e = apre esplora computer
tasto bandiera + b = passa alla funzionalità desktop
tasto bandiera + f = visualizza la barra per ricerca file
tasto bandiera + h = visualizza pannello condivisione
tasto bandiera + i = pannello delle impostazioni
venerdì 23 marzo 2012
xna impostare un sfondo
Questo frammento di codice, illustra una tecnica di come applicare uno sfondo al nostro gaming.
Aggiungiamo nella sezione content un'immagine.
Andiamo in visualizzazione codice della classe Game1 e scriviamo nella dichiarazione delle variabili un oggetto di tipo texture2d, il tutto come riportato qui di seguito.
GraphicsDeviceManager
graphics;SpriteBatch spriteBatch;
//oggetto per lo sfondo
Texture2D texture;
Nell'evento LoadContent, impostiamo la risorsa immagine all'oggetto creato in precedenza.
protected override void LoadContent()
{
// Creare un nuovo SpriteBatch, che potrà essere utilizzato per disegnare trame.
spriteBatch =
new SpriteBatch(GraphicsDevice);texture = Content.Load<
Texture2D>("Mare");// TODO: utilizzare this.Content per caricare qui il contenuto del gioco
}
Mentre nell'evento Draw, impostiamo lo sfondo della finestra con l'immagine caricata nell'oggetto di tipo Texture2D.
Qui di seguito l'esempio.
protected override void Draw(GameTime gameTime)
{
GraphicsDevice.Clear(
Color.CornflowerBlue);// TODO: aggiungere qui il codice di disegno
spriteBatch.Begin();
spriteBatch.Draw(texture, GraphicsDevice.Viewport.Bounds,
Color.White);spriteBatch.End();
base.Draw(gameTime);
}
giovedì 22 marzo 2012
Settimana della cultura aprile 2012
Torna l'appuntamento tanto attesso e più importante in ambito culturale, la settimana della Cultura, http://www.beniculturali.it/mibac/export/MiBAC/sito-MiBAC/Contenuti/MibacUnif/Eventi/visualizza_asset.html_1226829710.html.
L'evento si terrà dal 14 al 22 aprile 2012, in tutta Italia, ben 9 giorni per visitare gratuitamente musei, siti archeologici, convegni, aperture straordinari di alcuni siti storici e tanto altro.
Nel sito indicato, sono forniti maggiori informazioni e tutti i luoghi visitabili gratuitamente.
L'Italia, offre indubbiamento un patrimonio artistico e culturale unico al mondo, approfittiamo di questa bellissima iniziativa per scoprire e goderci delle nostre meraviglie.
Che dirvi.....Buon divertimento a tutti...
mercoledì 21 marzo 2012
Happy Hours al Museo. L'inventario delle specie e le azioni di conservazione
martedì 20 marzo 2012
mostra convegno dedicata alle nanotecnologie
La partecipazione è gratuita, dal seguente sito http://www.nanoforum.it/iscrizione-nanoforum potete effettuare la registrazione.
Mentre qui http://www.nanoforum.it/progetto_nanoforum trovate informazioni su questa bellissima iniziativa.
Per maggiori informazioni ed altro, visitate il seguente sito http://www.nanoforum.it/ .
domenica 18 marzo 2012
evento gratuito Analisi strutturale e validazione di sistemi complessi per il mondo ferroviario e aeronautico
L'evento NI transportation Forum 2012 http://italy.ni.com/eventi/transportation che si svolgerà il 12 aprile 2012, al museo del volo (Malpensa) riguarda una giornata formativa sulla verifica e validazione di sistemi per il trasporto ferroviario e aereonautico.
L'evento è molto formativo, visto che ci sarà la presenza di aziende che trasmetteranno ai partecipanti la loro esperienza.
L'evento è gratuito, ma per partecipare bisogna registrarsi al seguente indirizzo https://lumen.ni.com/nicif/i/gb_nievent/content.xhtml?du=http://sine.ni.com/nievents/app/validate/p/offeringId/1015184/site/nie/country/it/lang/it mentre qui http://italy.ni.com/eventi/transportation trovate l'agenda e come raggiungere il luogo dell'evento.
Al termine dell'evento sarà possibile visitare gratuitamente Volandia, il parco e museo del volo.
sabato 17 marzo 2012
I robot educativi alla Fiera del Libro per Ragazzi
Da diversi anni, la loro associazione, promuovere presso scuole, biblioteche, eventi ed altro la robotica.
Riporto il loro comunicato stampa e complimenti al persone che si impegna molto per questi progetti.
I robot educativi alla Fiera del Libro per Ragazzi
Bologna 2012, 20 marzo, ore 14.30- 16:00
“La grande avventura dei robot su Marte” allo Stand della Biblioteca De Amicis
Quest’anno, alla Fiera del Libro per Ragazzi di Bologna saranno presenti, presso lo stand della Biblioteca De Amicis di Genova, i robot educativi realizzati in diverse scuole italiane, robot che vengono impiegati per sostenere l'apprendimento delle scienze e che inoltre contribuiscono a ispirare aspetti creativi della narrazione, racconto, espressione artistica e immaginazione. In particolare verranno presentati i lavori dell’Istituto Statale Comprensivo "B. Lorenzi" di Fumane (Verona) e della Scuola Secondaria di I grado "Lorenzo da Ponte" di Vittorio Veneto (Treviso), che racconteranno la grande avventura spaziale su Marte utilizzando un modellino trasportabile di terreno “marziano”, spesso accidentato, che i piccoli robot dovranno esplorare, evitando ostacoli e inviando alla base-casa i dati raccolti. Questa e altre sperimentazioni realizzate da studenti e studentesse italiani ed europei saranno da fine marzo 2012 oggetto della manifestazione Raccontare i robot.
RACCONTARE I ROBOT 2012, una manifestazione al suo quarto anno, si terrà in varie sedi italiane da marzo a luglio 2012. È curata da Scuola di Robotica, in collaborazione con la Biblioteca Internazionale per i Ragazzi De Amicis e molte scuole ed enti culturali italiani. Quest’anno, Raccontare i robot entra nella campagna e-skills week 2102, promossa da DG Enterprise & Industry della Commissione Europea, a cura di EUN (European SchoolNet) e Digital Europe, coordinata in Italia da ECWT (European Centre for Women and Technology) - Punto di Contatto Nazionale Italiano.
venerdì 16 marzo 2012
Free ebook introduzione Microsoft SQL Server 2012
giovedì 15 marzo 2012
Evento gratuito SQL SERVER 2012 SYMPOSIUM
L'evento Sql Server 2012 Symposium, visibile qui http://www.microsoft.com/italy/sqlserver2012/it/ riguarda tutto ciò che gira intorno ad una base dati, e quindi alla nuova versione di Sql Server 2012.
L'evento è gratuito, ma per poter partecipare, dovete visitate il sito indicato dove si trova anche l'agenda dell'evento.
Che dirvi.... buono studio :-D
mercoledì 14 marzo 2012
Mostra di Retrogaming a Roma
martedì 13 marzo 2012
disdire legalmente il canone RAI
Una tassa, che non piace a molti cittadini. Spero che questo post, sia l'inizio di un movimento che permetta di dare una svolta a questo scenario che milioni di cittadini non accettano più.
La Rai, dal canto suo, dovrebbe fare come molte emittenti televisive, permettere la visione dei loro film e tg, solo per chi possiede un decoder per la visione dei loro programmi, insomma come avviene per la SKY e Mediast premium, senza prelevare forzatamente dagli italiani e non, soldi per una tv che a molti non piace.
La cultura è sancita nella costituzione, come la libera informazione, quindi noi siamo tenuti ad essere informati, sta alla RAI limitare la visione dei loro programmi a chi è effettivamente interessato e non obbligando. In fondo i soldi finiscono alla RAI, e non alle televisioni private, quindi se scelgo privato, devo pagare solo al privato e non alla RAI.
Il sito Aduc Rai http://tlc.aduc.it/rai/ fornisce notizie e consigli sul canone RAI.
Qui http://tlc.aduc.it/rai/comunicato/campagna+dell+aduc_14572.php trovate un buon punto di partenza per disdire il canone RAI e tutte le violazioni che loro non rispettano.
Facciamo sentire la nostra voce, i nostri diritti, e mandiamo la RAI, il loro atteggiamento e soprattutto la loro povera e frivola programmazione televisa a comportarsi seriamente e quindi lasciare noi cittadini, liberi di pagare o non il canone RAI, senza che ci sia un prelevamente forzato nelle nostre tasche. Basta con i programmi stupidi, e basta con gli stipendi milionari a quei presentatori che ci annoiano.
Invito a partecipare attivamente, per una tv migliore.
lunedì 12 marzo 2012
sito notizie informatiche
Un sito, costantemente aggiornato, con novità sul settore tecnologico.
domenica 11 marzo 2012
Recensione Mindscape Silverlight Elements
Questi controlli, forniscono funzionalità particolare ai nostri progetti, ci sono diversi controlli, come quello stile a barra di outlook, il controllo per la gestione dell’agenda, html editr, grafici e tanti altri.Ho voluto provare tali controlli nel nuovo ambiente di sviluppo, ossia in Visual Studio 2011 beta, e nel sistema operativo Windows 8, e questi controlli hanno funzionato perfettamente, dimostrazione che sono ottimi controlli da utilizzare anche per le prossime versione di Visual Studio e sistema operativo.
Quando viene fatto il doppio click sul pacchetto di setup, viene visualizzata una finestra, che ci informa di accettare le condizioni di licenza, il tutto come mostrato in figura 1.
Figura 1 - La finestra dei termini di licenza
Figura 5 – utilizzo del controllo agenda.
Figura 7 – il designer in Visual Studio 2011 beta
Conclusioni.
Qui http://www.mindscapehq.com/products/silverlightelements/pricing trovate i prezzi di questi controlli.
sabato 10 marzo 2012
Evento gratuito comunicazioni integrate
Durante l'evento ci sarà un'area espositiva, dove i partecipanti potranno vedere la gamma dei computer proposti da DELL.
A tutti i partecipanti, Dell regalerà un altoparlante stereo portatile DELL ps210.
L'evento è gratuito, per partecipare bisogna registrarsi al seguente sito dove trovate l'agenda e maggiori informazioni http://vuimg.com/dell/Q1_IT_TW_Roma_inv_v2.html
venerdì 9 marzo 2012
download sql server 2012 valutazione
mercoledì 7 marzo 2012
Happy Hours al Museo. Invasione rosa: il ritorno del fenicottero.
martedì 6 marzo 2012
gara modellismo navale gare anno 2012 AMIREL
Qui di seguito si riportano le date ed i luoghi di svolgimento.
Vi ricordo che potete partecipare con le vostre imbarcazione o come me, appassionate di fotografia, potete vederli in azioni e fare tante belle foto.
Complimenti a Massimo, Francesca e tutto lo staff per l'ottimo lavoro e la passione che ci mettono in questo bellissimo hobby.
Trofeo Regionale Lazio AMIREL 2012 e Model Tug Competition 2012
1° Gara 11 marzo
Lagh. Tor di Quinto—Roma
2° Gara 15 aprile
e Prova del Model Tug Competition
Lagh. Granieri—Nettuno (RM)
3° Gara 10 giugno
e Gara del Model Tug Competition
Laghetto Borgo S. Michele (LT)
4° - 5° Gara 8 luglio
Lagh. Granieri—Nettuno (RM)
NOTA
La Prova e la Gara del
Model Tug Competition
si svolgeranno nel pomeriggio
Targa MOSTI-VILLORESI 2012
1° Gara 25 marzo
Lagh. Tor di Quinto—Roma
2° Gara 13 maggio
Laghetto Granieri—Nettuno (RM)
3° - 4° Gara 24 giugno
Laghetto Borgo S. Michele (LT)
5° Gara 9 settembre
Laghetto Borgo S. Michele (LT)
Coppa GSM-Impianti 2012
Prova unica 14 ottobre
Roma— Lagh. di Tor di Quinto
lunedì 5 marzo 2012
vmware player Windows cannot read the setting from the unattended answer file
Spengete la macchina virtuale, in modo che non rimane accessa o sospesa, e nelle impostazioni della virtual machine, selezionate la voce floppy e tramite il pulsante delete eliminate il floppy.
A questo punto l'installazione del sistema operativo andrà a buon fine.
sabato 3 marzo 2012
It pro Camps formazione gratuita sistemistica
Durante la giornata, ai partecipanti verranno illustrati nella mattinata le funzionalità di Hyper-V e System Center Virtual Machine Manager e alla loro implementazione, mentre nel pomeriggio la preparazione all'esame di certificzione 70-659 con uno sconto del 34% sul voucher per l'esame.
L'iniziativa si svolgerà a Milano (16 e 23 marzo) il 30 marzo a Roma e 30 maggio a Torino.
L'iniziativa è gratuita, ma per poter partecipare bisogna registrarsi al seguente indirizzo http://www.microsoft.com/italy/itcamps/default.aspx dove trovate maggiori informazioni.
venerdì 2 marzo 2012
free Download Windows Server 8 Beta
Si consiglia l'installazione su macchina virtuale.
Che dirvi... buon divertimento :- )).
giovedì 1 marzo 2012
download visual studio 11 beta
Da oggi, è possibile scaricare la versione beta di Visual Studio 11, qui http://www.microsoft.com/visualstudio/11/it-it/downloads il link.
Si ricorda di installare su ambienti di test o macchine virtuali, visto che sono prodotti in beta.
Qui http://msdn.microsoft.com/en-us/library/bb386063(v=VS.110).aspx trovate la guida msdn, mentre qui http://msdn.microsoft.com/en-us/library/1d971dd7-10fc-4692-8dac-30ca308fc0fa(v=vs.110) le novità del Framework 4.5 beta, Le varie versioni sono riportate qui di seguito
Express: http://www.microsoft.com/download/en/details.aspx?id=28974
Ultimate: http://www.microsoft.com/download/en/details.aspx?id=28975
Premium: http://www.microsoft.com/download/en/details.aspx?id=28985
Professional: http://www.microsoft.com/download/en/details.aspx?id=28992
Che dirvi... buona programmazione :-D