testo

Il seguente frammento di codice, illustra una tecnica di come inviare un email con allegato un file, dal programma Excel o Word, il tutto tramite VBA.

Private Sub CommandButton1_Click()
On Error GoTo errore
'creo un oggetto outlook
Dim obj As New Outlook.Application
'oggetto che rappresenta l'email
Dim item As Outlook.MailItem
'instanzio l'oggetto
Set item = obj.CreateItem(Outlook.OlItemType.olMailItem)

'imposto il destinatario
item.To = "Emanuelemattei@aruba.it"
'imposto il corpo del messaggio
item.Body = "Corpo del messaggio"
'imposto l'oggetto del messaggio
item.Subject = "Oggetto del messaggio"
'allegato
Set allegato = item.Attachments
allegato.Add "C:\mioFile.txt"
'invio l'email
item.Send

Exit Sub
errore:
MsgBox (Err.Description)

Nuovo articolo per le windows application, in particolare come utilizzare il programma Microsoft Word 2010 tramite .Net 4, con il linguaggio di programmazione C# e VB.Net

Qui http://blog.shareoffice.it/emanuele/articles/10622.aspx trovate l'articolo.

Che dirvi... buona lettura :- D

Questo esempio di codice, illustra una tecnica di come creare un nuovo documento word contenente una tabella con la colorazione alternate delle righe.

In Microsoft Excel, occorre aggiungere i riferimenti (strumenti->riferimenti) di Microsoft Word 12.0 object library nell'editor VBA per interragire con Microsoft Word 2007.

FAtto ciò la funzione qui di seguito, illustra questa tecnica.

Sub CreaTabellaWord()
Dim ObjWord As New Word.Application
Dim ObjDoc As Word.Document
Dim ObjTable As Word.Table
Dim IntRiga As Integer
Dim IntColonna As Integer
On Error GoTo errore

Set ObjDoc = ObjWord.Documents.Add
Set ObjTable = ObjDoc.Tables.Add(ObjDoc.Range, 3, 5) 'tabella composta da 3 righe e 5 colonne
With ObjTable
For IntRiga = 1 To 3
For IntColonna = 1 To 5
.Cell(IntRiga, IntColonna).Range.InsertAfter "Riga: " & IntRiga & ", Colonna: " & IntColonna
If (IntRiga Mod 2 = 0) Then
.Cell(IntRiga, IntColonna).Range.Shading.BackgroundPatternColor = wdColorBlue
Else
.Cell(IntRiga, IntColonna).Range.Shading.BackgroundPatternColor = wdColorAqua
End If
Next IntColonna
Next IntRiga
.Columns.AutoFit
ObjWord.Visible = True
End With
Set ObjTable = Nothing
Set ObjDoc = Nothing
Set ObjWord = Nothing
Exit Sub
errore:
MsgBox (Err.Description)

End Sub

Tramite la parola download potete scaricare il file excel di esempio utilizzato.

Dim PercorsoFile As String

PercorsoFile = Application.GetOpenFilename("File Microsoft Word (*.docx),*.docx", , "Ricerca documenti Word")

MsgBox (PercorsoFile)

Il primo argomento, riguarda il filtro dei file, ossia quale file sono visibili nella finestra, mentre il secondo argomento, il testo del titolo della finestra.

L'articolo consultabile a questo indirizzo web http://blog.shareoffice.it/emanuele/articles/9638.aspx illustra una tecnica di come creare una tabella in Microsoft Word 2007 e valorizzarla con del testo.

I linguaggi utilizzati sono VB.Net e C# in ambiente windows application.

Il frammento di codice qui di seguito, verifica che un anno è bisestile, la funzione ritorna true se è bisestile o false se non lo è.

'Funzione richiamata dall'evento click di un pulsante

Private Sub CommandButton1_Click()
    MsgBox (AnnoBisestile(TextBox1.Text))
End Sub

'Funzione di verifica dell'anno

Private Function AnnoBisestile(IntAnno As Integer) As Boolean

If IntAnno Mod 4 = 0 And IntAnno Mod 100 <> 0 Or IntAnno Mod 400 = 0 Then
    AnnoBisestile = True
Else
    AnnoBisestile = False
End If

End Function

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"

I file chm sono file utilizzati per fornire informazioni agli utenti,ossia delle guide, se vogliamo corredare il nostro programma, con una guida, possiamo crearli e poi richiamarli nelle nostre applicazioni.

Tramite le api di Windows, si può richiamare un file chm, in particolare tramite l'api HtmlHelpTopic  Di seguito si riporta un esempio di codice.

'dichiarazione api
Private Declare Function HtmlHelpTopic Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As String) As Long
 

Di seguito si riporta una funzione che può essere utilizzate nella varie parti del programma.

'funzione per avviare il file chm
Sub AvviaHtmlHelp(ByVal sHelpFile As String, ByVal sHelpPage As String)
Const HH_DISPLAY_TOPIC = &H0
On Error Resume Next
' apro il file chm nella pagina, passata tramite il parametro sHelpPage

HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sHelpPage
End Sub
 

Frammento di codice da utilizzare nell'evento click di un pulsante o menu:

Call AvviaHtmlHelp("c:\guida.chm", "pagina.htm")

Vi segnalo questo nuovo articolo http://blog.shareoffice.it/emanuele/articles/9357.aspx riguardante la programmazione Microsoft Word tramite la tecnologia .Net (VB.Net e C#).

Che dirvi... buona lettura :-)))