• Articles
• admin

samenvatting

dit artikel laat u zien hoe u Automatisering gebruikt om een Microsoft Outlook-bericht te maken en te verzenden in Microsoft Access 2000.
Microsoft geeft programmeervoorbeelden ter illustratie, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. Dit artikel gaat ervan uit dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de tools die worden gebruikt om procedures aan te maken en te debuggen. Microsoft support engineers kunnen u helpen de functionaliteit van een bepaalde procedure uit te leggen, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te construeren om aan uw specifieke vereisten te voldoen.
opmerking: de volgende code werkt mogelijk niet goed als u de beveiligingsupdate van Outlook E-mail hebt geïnstalleerd. Zie voor meer informatie over deze update een van de volgende artikelen in de Microsoft Knowledge Base, afhankelijk van welke versie van Outlook u hebt:

262631 OL2000: informatie over de beveiligingsupdate van Outlook E-mail

262617 OL98: informatie over de beveiligingsupdate voor Outlook e-mail
u kunt de sendobject-methode gebruiken om een MAPI-mailbericht programmatisch te verzenden in Microsoft Access. De sendobject-methode geeft u echter geen toegang tot volledige e-mailfunctionaliteit, zoals de mogelijkheid om een extern bestand toe te voegen of het belang van berichten in te stellen. Het volgende voorbeeld maakt gebruik van automatisering om een e-mailbericht te maken en te verzenden dat u kunt gebruiken om te profiteren van vele functies in Microsoft Outlook die niet beschikbaar zijn met de sendobject-methode.
er zijn zes belangrijke stappen om een Microsoft Outlook-mailbericht te verzenden met behulp van automatisering, als volgt:

1. Initialiseer de Outlook-sessie.

2. Maak een nieuw bericht aan.

3. voeg de ontvangers (aan, CC en BCC) toe en Los hun namen op.

4. stel geldige eigenschappen in, zoals het onderwerp, de inhoud en het belang.

5. voeg bijlagen toe (indien aanwezig).

6. het bericht weergeven / verzenden.

een Microsoft Outlook-mailbericht programmatisch verzenden

1. Maak een voorbeeld tekstbestand met de naam klanten.txt in de C:\My map Documenten.

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

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

   Option Explicit
   

4. klik in het menu Extra op Referenties.

5. In de referenties vak, klik om de te selecteren Microsoft Outlook 9.0 Object Library en klik vervolgens op OK.
   opmerking: als de Microsoft Outlook 9.0-objectbibliotheek niet wordt weergegeven in het vak Beschikbare referenties, blader dan op uw harde schijf naar het bestand Msoutl9.olb. Als u dit bestand niet kunt vinden, moet u het Microsoft Outlook-Installatieprogramma uitvoeren om het te installeren voordat u verder gaat 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. om deze procedure Te testen, typt u de volgende regel in het venster Direct en druk op ENTER:

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

   om het bericht Te verzenden zonder het opgeven van een beslag, laat het argument bij het aanroepen van de procedure, als volgt:

   SendMessage