Outlook automatiseren vanuit Visual Basic

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 220595 - Bekijk de producten waarop dit artikel van toepassing is.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Dit artikel laat zien hoe u programmatisch beheren Microsoft Outlook automatiseren vanuit Visual Basic gebruiken. Het voorbeeld bevat contact personen maken, afspraken maken en verzenden van berichten met behulp van Microsoft Outlook-objectmodel.

Meer informatie

Volg de stappen voor het maken en uitvoeren in het voorbeeld hieronder. Naar het voorbeeld wilt uitvoeren, moet u een 'early-bound verwijzing naar een Microsoft Outlook-type bibliotheek. De volgende tabel worden de bestandsnamen van het type bibliotheken voor het verschillende versies van Microsoft Outlook:
Deze tabel samenvouwenDeze tabel uitklappen
Outlook-versieHoe typebibliotheek wordt weer gegeven in lijst van verwijzingenBestands naam
Outlook 97"Microsoft Outlook 8. 0-Object Bibliotheek"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98-Object Bibliotheek"msoutl85.olb
Outlook 2000Object van Microsoft Outlook 9. 0" Bibliotheek"Msoutl9
Outlook 2002"Microsoft Outlook 10. 0-Object Bibliotheek"msoutl.olb
OfficeOutlook 2003"Microsoft Outlook 11. 0-Object Bibliotheek"msoutl.olb

Automatiserings voorbeeld

  1. Start Visual Basic en maak een nieuw standaard-EXE project.
  2. Uit deProjectin het menu kiezenVerwijzingenen selecteer Microsoft Outlook.
  3. Een knop toevoegen aan uw formulier.
  4. Dubbel klik op de knop en voeg de volgende code:
     ' Start Outlook.
     ' If it is already running, you'll use the same instance...
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Logon. Doesn't hurt if you are already running and logged on...
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Create and Open a new contact.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Setup Contact information...
       With olItem
          .FullName = "James Smith"
          .Birthday = "9/15/1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "704-555-8888"
          .Email1Address = "someone@microsoft.com"
          .JobTitle = "Developer"
          .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
       End With
       
     ' Save Contact...
       olItem.Save
        
     ' Create a new appointment.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Set start time for 2-minutes from now...
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Setup other appointment information...
       With olAppt
          .Duration = 60
          .Subject = "Meeting to discuss plans..."
          .Body = "Meeting with " & olItem.FullName & " to discuss plans."
          .Location = "Home Office"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Save Appointment...
       olAppt.Save
        
     ' Send a message to your new contact.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Fill out & send message...
       olMail.To = olItem.Email1Address
       olMail.Subject = "About our meeting..."
       olMail.Body = _
            "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _
            "Btw: I've added you to my contact list."
       olMail.Send
        
     ' Clean up...
       MsgBox "All done...", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. Het project wordt uitgevoerd en op de knop uit te voeren de code.
Zodra de code wordt uitgevoerd, moet u een nieuwe contact persoon met de naam "James Smit, een afspraak gepland in twee minuten met een herinnering moet worden weer gegeven in een minuut, en hebben een bericht naar someone@microsoft.com gestuurd. Ook, omdat u een verjaardag van de contact persoon toegevoegd (9/15), een terugkerende gebeurtenis is toegevoegd voor uw Outlook-agenda om u te herinneren van de dag.

Nieuw in Outlook 2002 zijn de twee dialoogvensters: een waarschuwing dat een programma probeert toegang te krijgen tot e-mail adressen die u hebt opgeslagen in Outlook en wordt gevraagd als u dit wilt toestaan, en een ander bericht dat een programma probeert e-mail te verzenden. Dit functie beschermt u tegen onbedoeld wordt gebruikt door een virus dat wordt verzonden e-mail van uw systeem.

Voor meer informatie klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
290500Beschrijving van de beveiligingingsfuncties voor ontwikkelaars e-mail in Outlook 2002

Referenties

Voor meer informatie over program meer bronnen voor Outlook, klikt u op de volgende artikel nummers in de Microsoft Knowledge Base:
166368Bronnen voor aangepaste formulieren en programmering in Outlook 97
180826Bronnen voor aangepaste formulieren en programmering in Outlook 98
271225Bronnen voor aangepaste formulieren en programmering in Outlook 2000
287531Lijst van bronnen voor aangepaste formulieren en programmering in Outlook 2002
313802Informatie over het ophalen van contact personen via Outlook objectmodel in Visual Basic.NETTO
313788Hoe u een afspraak maken via Outlook objectmodel in Microsoft Visual Basic.NETTO

Eigenschappen

Artikel ID: 220595 - Laatste beoordeling: maandag 28 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Outlook 2000 Standard Edition
  • Microsoft Outlook 97 Standard Edition
  • Microsoft Outlook 98 Standard Edition
Trefwoorden: 
kbautomation kbhowto kboutlookobj kbmt KB220595 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:220595

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