Automatizácia Outlook pomocou jazyka Visual Basic

Preklady článku Preklady článku
ID článku: 220595 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok ukazuje ako programovo ovládať Programu Microsoft Outlook pomocou automatizácie z jazyka Visual Basic. Príklad demonštruje Vytvorenie kontaktov, vytváranie plánované činnosti a odosielanie správ pomocou Objektový model programu Microsoft Outlook.

DALSIE INFORMACIE

Postupujte podľa krokov vytvorte a spustite príklad. Vykonaná akcia spustiť vzorky, potrebujete včasnej väzby odkaz typu Microsoft Outlook knižnica. Nasledujúca tabuľka obsahuje názvy súborov typu knižnice pre rôzne verzie programu Microsoft Outlook:
Zbaliť túto tabuľkuRozbaliť túto tabuľku
Verzie programu OutlookAko typ knižnice sa zobrazí v zoznam odkazovNázov súboru
Program Outlook 97„Objekt programu Microsoft Outlook 8.0 Knižnica"msoutl8.olb
msoutl8.olb„Microsoft Outlook 98 objekt Knižnica"msoutl85.olb
Program Outlook 2000„Objekt programu Microsoft Outlook 9.0 Knižnica"msoutl9.olb
Program Outlook 2002Program Microsoft Outlook 10.0 Object" Knižnica"msoutl.olb
Program Office Outlook 2003„Microsoft Outlook 11.0 objekt Knižnica"msoutl.olb

Budova automatizácia vzorky

  1. Spustiť Visual Basic a vytvoriť nové štandardné EXE projekt.
  2. Z Project menu, vyberte Odkazy a vyberte program Microsoft Outlook.
  3. Pridať tlačidlo do formulára.
  4. Kliknite dvakrát na tlačidlo a potom pridajte nasledujúce kód:
     ' 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. Spustenie projektu a kliknite na tlačidlo Spustiť kód.
Akonáhle sa kód správne spúšťa, mali by ste mať nový kontakt s názvom "James Smith,"plánovanú naplánovaná v dvoch minút s pripomenutím zobraziť v jednu minútu, a poslali správu do peterkovac@microsoft.sk. Tiež, pretože ste pridané narodeniny pre váš kontakt (9/15) opakovanej udalosti bol pridaný na váš Kalendár programu Outlook, upozorníme vás dňa.

Nové Outlook 2002 sú dvoch dialógových okien: jedným upozornením, že určitý program sa pokúša získať prístup k e-mailu adresám uloženým v programe Outlook a otázkou, ak chcete povoliť, a iné správy o tom, že určitý program sa pokúša odoslať e-mail. Toto funkcia bude vás chrániť pred nevedome používa vírusom, ktorý odosiela e-mail z vášho systému.

Ďalšie informácie získate po kliknutí na nasledujúce číslo článku databázy Microsoft Knowledge Base:
290500Popis bezpečnostných charakteristík vývojárske e-mail v programe Outlook 2002

ODKAZY

Ďalšie informácie o programe Outlook plánovanie zdrojov, po kliknutí na nasledovné číslo článku databázy Microsoft Knowledge Base:
166368Zdroje pre vlastné formuláre a programovanie v programe Outlook 97
180826 Zdroje pre vlastné formuláre a programovanie v programe Outlook 98
271225 Zdroje pre vlastné formuláre a programovanie v programe Outlook 2000
287531 Zoznam zdrojov pre vlastné formuláre a programovanie s programom Outlook 2002
313802 Ako získať kontakty pomocou objektový model programu Outlook v jazyku Visual Basic.NET
313788 Ako vytvoriť plánovanú činnosť pomocou objektový model programu Outlook v programe Microsoft Visual Basic.NET

Vlastnosti

ID článku: 220595 - Posledná kontrola: 21. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • 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
Kľúčové slová: 
kbautomation kbhowto kboutlookobj kbmt KB220595 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:220595

Odošlite odozvu

 

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