Come inviare email da Microsoft Access

La suite Office di Microsoft è una delle suite di software più complete in circolazione: comprende, infatti, programmi utilizzati da centinaia di milioni di utenti, come Word e Power Point, ma anche utility destinate ad una cerchia di utenti più ristretta, come Excel ed Access. In questa guida analizzeremo proprio quest'ultimo software, scoprendo, in particolar modo, come inviare email da Microsoft Access, che possono essere utilizzate per inviare dati o informazioni ricavabili da uno o più database.

• Microsoft Office

Per inviare una mail con Microsoft Access è necessario caricare nel software la libreria di Outlook, che è proprio quella necessaria per le operazioni riguardanti la posta elettronica. Ecco le operazioni da fare:
1. Apriamo la console di scrittura codice (Alt+F11)
2. Strumenti->Riferimenti
3. Spuntare la voce “Microsoft Outlook 14.0 Object Library”
4. OK

.

Definiamo la nostra funzione InvioMail. Vogliamo che sia pubblica in modo da poterla utilizzare per diverse applicazioni, e che sia il più possibile parametrizzabile.
Ecco la definizione:

Public Function InvioMail (
o DestinatarioMail as String,
o OggettoMail as String,
o CorpoMail as String,
o Optional PercorsoCompletoAllegato As String)

È interessante notare come l'unico parametro opzionale sia PercorsoCompletoAllegato.
Con questa definizione sarà sufficiente richiamare la funzione in questo modo:
· Call InvioMail("pippo@test. It", ”prova”, ”Scriviamo qualcosa”, ”c:\test. Txt”)
.

Andiamo ora a scrivere la funzione vera e propria. Iniziamo col definire gli oggetti che ci serviranno:
· Dim myOlApp As Outlook. Application: applicazione Outlook
· Dim myItem As Outlook. MailItem: oggetto mail


Questi sono gli oggetti essenziali, adesso possiamo istanziarli:
· Set myOlApp = CreateObject ("Outlook. Application")
· Set myItem = myOlApp. CreateItem (olMailItem)


Abbiamo il nostro oggetto Mail creato e istanziato, adesso non ci resta che “riempirlo”:
· myItem. To= DestinatarioMail
· myItem. Subject= OggettoMail
· myItem. HTMLBody= CorpoMail
· myItem. Attachments. Add PercorsoCompletoAllegato
· myItem. Send


I comandi sono abbastanza parlanti, in questo caso abbiamo usato il corpo del messaggio di tipo HTML, il che ci permette di inserire nel corpo del codice HTML con tutti gli effetti possibili e immaginabili.
Per ultimo abbiamo utilizzato il comando Send, se prima di inviare l’email volessimo visualizzarla dobbiamo sostituire il Send col il Display.

Ovviamente la funzione termina con un “End Function”.