venerdì 25 aprile 2008

Sharepoint 2007 inviare un email tramite .Net (VB.Net e C#)

In questo frammento di codice, viene illustrato come inviare un email in Sharepoint 2007, tramite la tecnologia .Net. Si ricorda di configurare il servizio smtp di sharepoint

Namespace

VB.Net

Imports microsoft.SharePoint.Utilities

C#
using Microsoft.SharePoint.Utilities;

Codice

VB.Net

SPUtility.SendEmail(SPContext.Current.Web, False, False, "destinatario@dominio.it", "oggetto", "testo nella email")

C#
SPUtility.SendEmail(SPContext.Current.Web, false, false,"destinatario@dominio.it", "oggetto", "testo nel corpo");

domenica 6 aprile 2008

Differenza tra due date (VB.Net e C#)

Questo frammento di codice, illustra un modo di come ottenere la differenza tra due date.

Tramite il metodo subtract otteniamo un oggetto timespan, di cui possiamo rilevare la differenza in giorni, ore, minuti e secondi.

Di seguito si riporta l'esempio di codice nel linguaggio VB.Net e C#

VB.Net


Dim data As New DateTime(2008, 3, 20, 10, 20, 5)


Dim data2 As New DateTime(2008, 5, 20, 11, 21, 7)


'ottengo la differenza tra due date


Dim diff As TimeSpan = data2.Subtract(data)


MessageBox.Show("Giorni: " & diff.Days)


MessageBox.Show("Ore: " & diff.Hours)


MessageBox.Show("Minuti: " & diff.Minutes)


MessageBox.Show("Secondi: " & diff.Seconds)


'differenza in un unico passaggio


MessageBox.Show(diff.ToString())


C#


DateTime data = new DateTime(2008, 3, 20, 10, 20, 5);


DateTime data2 = new DateTime(2008, 5, 20, 11, 21, 7);


//ottengo la differenza tra due date


TimeSpan diff = data2.Subtract(data);


MessageBox.Show("Giorni: " + diff.Days);


MessageBox.Show("Ore: " + diff.Hours);


MessageBox.Show("Minuti: " + diff.Minutes);


MessageBox.Show("Secondi: " + diff.Seconds);


//differenza in un unico passaggio


MessageBox.Show(diff.ToString());

VBA informazioni sul sistema Hard disk

Il seguente frammento di codice, permette di rilevare alcune informazione relativo al sistema, in particolare Hard Disk.
Aggiungere il riferimento a Microsoft Scripting RunTime.
'caricare il file system objectDim Fso As FileSystemObjectDim ObjDrive As DriveSet Fso = New FileSystemObjectSet ObjDrive = Fso.GetDrive("C:\")MsgBox "Il numero seriale Hard Disk: " & ObjDrive.SerialNumber, vbInformation, "Drive"MsgBox "Spazio libero: " & ObjDrive.FreeSpace, vbInformation, "Drive"MsgBox "Sistema: " & ObjDrive.FileSystem, vbInformation, "Drive"MsgBox "Quantità massima: " & ObjDrive.TotalSize, vbInformation, "Drive"MsgBox "Nome Hard Disk " & ObjDrive.VolumeName, vbInformation, "Drive"