Automation gebruiken om een Microsoft Outlook-bericht te verzenden met Access 2000

Dit artikel is van toepassing op een Microsoft Access-database (.mdb) en op een Microsoft Access-project (.adp).

Samenvatting

In dit artikel leest u hoe u Automation gebruikt om een Microsoft Outlook-bericht te maken en te verzenden in Microsoft Access 2000.

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.

U kunt de SendObject methode gebruiken om een MAPI-e-mailbericht programmatisch te verzenden in Microsoft Access. SendObject De methode geeft u echter geen toegang tot de volledige e-mailfunctionaliteit, zoals de mogelijkheid om een extern bestand bij te voegen of de urgentie van berichten in te stellen. In het volgende voorbeeld wordt Automation gebruikt om een e-mailbericht te maken en te verzenden dat u kunt gebruiken om te profiteren van veel functies in Microsoft Outlook die niet beschikbaar zijn met de SendObject methode.

Er zijn zes belangrijke stappen voor het verzenden van een Microsoft Outlook-e-mailbericht met behulp van Automation, als volgt:

1. Initialiseer de Outlook-sessie.
2. Maak een nieuw bericht.
3. Voeg de geadresseerden (Aan, CC en BCC) toe en los hun namen op.
4. Stel geldige eigenschappen in, zoals onderwerp, hoofdtekst en urgentie.
5. Voeg bijlagen toe (indien aanwezig).
6. Het bericht weergeven/verzenden.

Een Microsoft Outlook-e-mailbericht programmatisch verzenden

1. Maak een voorbeeldtekstbestand met de naam Customers.txt in de map C:\Mijn documenten.

2. Start Microsoft Access en open de voorbeelddatabase Northwind.mdb.

3. Maak een module en typ de volgende regel in de sectie Declaraties als deze er nog niet is:

   Option Explicit

4. Selecteer verwijzingen in het menu Extra.

5. Selecteer in het vak Verwijzingen de Microsoft Outlook 9.0-objectbibliotheek en selecteer vervolgens OK.

   Opmerking

   Als de Microsoft Outlook 9.0-objectbibliotheek niet wordt weergegeven in het vak Beschikbare verwijzingen , bladert u op de harde schijf naar het bestand Msoutl9.olb. Als u dit bestand niet kunt vinden, moet u het Installatieprogramma van Microsoft Outlook uitvoeren om het te installeren voordat u verdergaat met dit voorbeeld.

6. Typ de volgende procedure in de nieuwe module:

   Sub SendMessage(Optional AttachmentPath)
       Dim objOutlook As Outlook.Application
       Dim objOutlookMsg As Outlook.MailItem
       Dim objOutlookRecip As Outlook.Recipient
       Dim objOutlookAttach As Outlook.Attachment
   
       ' Create the Outlook session.
       Set objOutlook = CreateObject("Outlook.Application")' Create the message.
       Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   
       With objOutlookMsg
       ' Add the To recipient(s) to the message.
       Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
       objOutlookRecip.Type = olTo
   
       ' Add the CC recipient(s) to the message.
       Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
       objOutlookRecip.Type = olCC
   
       ' Set the Subject, Body, and Importance of the message.
       .Subject = "This is an Automation test with Microsoft Outlook"
       .Body = "Last test - I promise." & vbCrLf & vbCrLf
       .Importance = olImportanceHigh 'High importance
   
       ' Add attachments to the message.
       If Not IsMissing(AttachmentPath) Then
       Set objOutlookAttach = .Attachments.Add(AttachmentPath)
       End If
   
       ' Resolve each Recipient's name.
       For Each objOutlookRecip In .Recipients
       objOutlookRecip.Resolve
       If Not objOutlookRecip.Resolve Then
       objOutlookMsg.Display
       End If
       Next
       .Send
   
       End With
       Set objOutlookMsg = Nothing
       Set objOutlook = Nothing
   End Sub
   

7. Als u deze procedure wilt testen, typt u de volgende regel in het venster Direct en drukt u op Enter:

   SendMessage "C:\My Documents\Customers.txt"

   Als u het bericht wilt verzenden zonder een bijlage op te geven, laat u het argument als volgt weg bij het aanroepen van de procedure:

   SendMessage