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”);

 

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 object
Dim Fso As FileSystemObject
Dim ObjDrive As Drive
Set Fso = New FileSystemObject
Set 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”