Come utilizzare VBA per mail in Access

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

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

2 Fare clic sul menu " Strumenti " e cliccare su "Riferimenti" . Seleziona la casella accanto a " Libreria oggetti di Microsoft Outlook " e fare clic su " OK" .
3

Creare una nuova procedura sub a e definire gli oggetti di Outlook con l'aggiunta del seguente codice VBA :

private Sub createEmail ( ) per

outlookApp = CreateObject ( " Outlook.Application " ) per

Dim myItem As Object

myItem = outlookApp.CreateItem ( olMailItem ) economici 4

Creare un nuovo elemento di posta elettronica con l'aggiunta del seguente codice :

myItem.Subject = "Oggetto "

myItem.Body = " mail "

myItem.To = " [email protected] "

myItem.Send
5

modificare il passaggio precedente e inserire un indirizzo email valido affrontare accanto a " myItem.To " per inviare l'e-mail . Tipo " End Sub " per terminare la procedura e premere " F5 " per eseguire il procedimento e di inviare l'e-mail utilizzando Outlook .
6

leggere e-mail nella cartella Posta in arrivo e visualizzare nella vostra finestra immediata con la creazione di la seguente procedura sub :

private Sub checkEmail ( ) per

olApp = CreateObject ( " Outlook.Application " ) per

Mapis = OLApp.GetNamespace ( " MAPI " )

outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox ) per

Ogni MyMail In outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print MyMail . Organismo

Avanti MyMail

End Sub
7

Premere " F5 " per eseguire la procedura.