Creazione di un programma di gestione della posta elettronica all'interno del database di Microsoft Access può rendere la vostra applicazione di Access più prezioso e più dinamico. In VBA è possibile utilizzare la libreria di oggetti di Microsoft Outlook per creare e-mail e-mail l'accesso cartelle di Microsoft Outlook. La libreria permette di creare a livello di codice e inviare una e-mail senza dover aprire Outlook. Utilizzare questa libreria per inviare e-mail automaticamente agli utenti con le informazioni del database che è importante per loro.

istruzione

1 Fare clic sulla scheda "Strumenti database", fai clic su "Visual Basic" e fare clic sul menu "Inserisci". Fai clic su "Modulo" per inserire un nuovo modulo di codice VBA.

2 Fai clic sul menu "Strumenti" e fare clic su "Riferimenti". Seleziona la casella accanto a "Microsoft Outlook <numero di versione> Object Library" e fare clic su "OK".

3 Creare una nuova procedura secondaria da e per definire gli oggetti di Outlook aggiungendo il seguente codice VBA:

Private Sub createEmail ()

Set outlookApp = CreateObject ( "Outlook.Application")

myItem Dim As Object

Set myItem = outlookApp.CreateItem (olMailItem)

4 Creare un nuovo elemento di posta elettronica aggiungendo il seguente codice:

myItem.Subject = "email subject"

myItem.Body = "mail"

myItem.To = "[email protected]"

myItem.Send

5 Modificare il passo precedente e immettere un indirizzo email valido accanto a "myItem.To" per inviare l'e-mail. Tipo "End Sub" per terminare la procedura e premere il tasto "F5" per eseguire il procedimento e inviare l'e-mail utilizzando Outlook.

6 Leggere e-mail nella cartella Posta in arrivo e visualizzarlo nella finestra immediata creando la seguente procedura secondaria:

Private Sub checkEmail ()

Set olApp = CreateObject ( "Outlook.Application")

Set MAPIS = OLApp.GetNamespace ( "MAPI")

Set outlookFolder = MAPIs.GetDefaultFolder (olFolderInbox)

Per ogni myMail In outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print myMail.Body

Successivo myMail

End Sub

7 Premere il tasto "F5" per eseguire la procedura.