Via Automatisering een Microsoft Outlook-bericht te verzenden

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 161088 - Bekijk de producten waarop dit artikel van toepassing is.
Geavanceerd: Expert codering, interoperabiliteit en meerdere gebruikers vaardigheden vereist.

Alles uitklappen | Alles samenvouwen

Samenvatting

Dit artikel wordt beschreven hoe u automatisering kunt maken en verzenden van een Microsoft Outlook-bericht in Microsoft Access 97.

In dit artikel wordt ervan uitgegaan dat u bekend bent met Visual Basic voor Toepassingen en met het maken van toepassingen met behulp van de program meer hulp middelen van Microsoft Access. Voor meer informatie Raadpleeg informatie over Visual Basic for Applications, het gebouw" Toepassingen met Microsoft Access 97 "manual.

Voor meer informatie over het gebruik van automatisering voor het verzenden van een Microsoft Exchange bericht, raadpleegt u het volgende artikel in de Microsoft Knowledge Base:
153311Via Automatisering een Microsoft Exchange-bericht te verzenden

Meer informatie

OPMERKING:De volgende code werkt mogelijk niet goed als u hebt de beveiligingsupdate voor E-mail van Outlook geïnstalleerd. Raadpleeg voor meer informatie over deze update een van de volgende artikelen in de Microsoft Knowledge Base, afhankelijk van welke versie van Outlook:
262631Outlook 2000: Informatie over de beveiligingsupdate voor E-mail van Outlook
262617Outlook 98: Informatie over de beveiligingsupdate voor E-mail van Outlook
De methode SendObject biedt een manier om een MAPI-e-mailbericht verzenden via programma code in Microsoft Access. Echter, de methode SendObject heeft geeft die u toegang tot het volledige e-mailfunctionaliteit, zoals de mogelijkheid om een extern bestand koppelen of urgentie van een bericht instellen. Het volgende voorbeeld Automatisering wordt gebruikt om te maken en verzenden van een e-mailbericht die u kunt nemen veel functies in Microsoft Outlook die niet beschikbaar zijn de methode SendObject.

Er zijn zes hoofds tappen wanneer u via Automatisering een Microsoft E-mailbericht van Outlook:

  • Initialiseren van de Outlook-sessie
  • Een nieuw bericht maken
  • Voeg de geadresseerden toe (aan, CC en BCC) en zet de namen
  • Stel geldige eigenschappen in, zoals het onderwerp, tekst en urgentie
  • Bijlagen toevoegen (indien aanwezig)
  • Weer en verzend het bericht
Een e-mailbericht van Microsoft Outlook programmatisch verzenden, voert u de volgende stappen:

  1. Maak een voorbeeld tekstbestand met de naam klanten. txt in de c:\Mijn documenten map.
  2. Start Microsoft Access en open de voorbeeld data base Noordenwind. mdb.
  3. Maak een module en typ de volgende regel in de declaratie Als deze er nog geen sectie:
    Optie Explicit
  4. Klik in het menu Extra op verwijzingen.
  5. Klik op het Object Model van Microsoft Outlook 8. 0 in het vak verwijzingen en klik vervolgens op OK.

    Opmerking: Als de 8. 0 van Microsoft Outlook Object Model niet in de Beschikbare verwijzingen vak, de vaste schijf naar het bestand bladeren Msoutl8.olb. Als u dit bestand niet kunt vinden, moet u uitvoeren de Microsoft Outlook Setup-programma te installeren voordat u verdergaat met dit voorbeeld.
  6. Typ de volgende procedure in de nieuwe module:
          Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")
                  objOutlookRecip.Type = olCC
    
                 ' Add the BCC recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
                  objOutlookRecip.Type = olBCC
    
                 ' Set the Subject, Body, and Importance of the message.
                 .Subject = "This is an Automation test with Microsoft Outlook"
                 .Body = "This is the body of the message." &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
                 Next
    
                 ' Should we display the message before sending?
                 If DisplayMsg Then
                     .Display
                 Else
                     .Save
                     .Send
                 End If
              End With
              Set objOutlook = Nothing
          End Sub
    						
  7. Typ de volgende regel in het venster fout opsporing voor deze testprocedure en druk vervolgens op ENTER.
    True SendMessage "C:\Mijn documenten\Klanten.txt"
    Een nieuw bericht wordt weer gegeven in Microsoft Outlook met een bijlage.

    Het bericht verzonden zonder dat deze wordt weer gegeven in Microsoft Outlook, bel de procedure met de waarde ONWAAR voor het eerste argument:
    False SendMessage "C:\Mijn documenten\Klanten.txt"
    Weglaten het bericht te verzenden zonder de bijlage, de tweede het argument bij het aanroepen van de procedure.
    SendMessage True

Referenties

Zoek voor meer informatie over het gebruik van automatisering in Microsoft Access de Help-IndexAutomatisering, of vraag de Microsoft Access 97 Office Office-assistent.

Voor meer informatie over automatisering gebruiken om Microsoft Outlook te besturen Raadpleeg de volgende artikelen in de Microsoft Knowledge Base:
160502ACC: Automatisering gebruiken om afspraken toevoegen aan Microsoft Outlook

161012VBA: Hoe u een nieuw contact persoon Item maken in Outlook Automatisering

Eigenschappen

Artikel ID: 161088 - Laatste beoordeling: woensdag 23 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 97 Standard Edition
Trefwoorden: 
kbhowto kbinterop kbmt KB161088 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:161088
Vrijwaring inhoud KB-artikelen over niet langer ondersteunde producten
Dit artikel heeft betrekking op producten waarvoor Microsoft geen ondersteuning meer biedt. Daarom wordt dit artikel alleen in de huidige vorm aangeboden en wordt het niet meer bijgewerkt.

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com