Jak automatizovat pomocí jazyka Visual Basic aplikace Outlook

Překlady článku Překlady článku
ID článku: 220595 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek ukazuje, jak programově řídit Aplikace Microsoft Outlook pomocí automatizace prostřednictvím jazyka Visual Basic. V příkladu Vytvoření kontaktů, vytváření událostí a odesílání zpráv pomocí Objekt modelu aplikace Microsoft Outlook.

Další informace

Podle následujících kroků vytvořit a spustit v příkladu. K spustit vzorku, je třeba časnou vazbou odkaz na typ aplikace Microsoft Outlook Knihovna. V následující tabulce jsou uvedeny názvy souborů knihoven typů pro různé verze aplikace Microsoft Outlook:
Zmenšit tuto tabulkuRozšířit tuto tabulku
Verze aplikace OutlookJak se zobrazí typ knihovny v seznam odkazůNázev souboru
Aplikace Outlook 97"Objekt aplikace Microsoft Outlook 8.0 Knihovna"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 objekt Knihovna"msoutl85.olb
Aplikace Outlook 2000"Objekt aplikace Microsoft Outlook 9.0 Knihovna"msoutl9.olb
Aplikace Outlook 2002"Objekt aplikace Microsoft Outlook 10.0 Knihovna"msoutl.olb
Aplikace Office Outlook 2003"Objekt aplikace Microsoft Outlook 11.0 Knihovna"msoutl.olb

Vytvoření vzorku automatizace

  1. Spusťte aplikaci Visual Basic a vytvořit novou standardní EXE projekt.
  2. Od Projekt nabídky, zvolte Odkazy a vyberte položku Microsoft Outlook.
  3. Do formuláře přidáte tlačítko.
  4. Poklepejte na tlačítko a poté přidejte následující 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. Spuštění projektu a klepněte na tlačítko Spustit kód.
Jakmile se spustí kód, měli byste mít nový kontakt s názvem "James Novák, událost plánována dvě minuty s připomenutím v jednu minutu a jste odeslali zprávu adresa@microsoft.com. Také protože jste Narozeniny pro váš kontakt přidán (9 15), opakované události byl přidán pro vaše Kalendář aplikace Outlook, která vám připomene dne.

Nové aplikace Outlook 2002 jsou dialogová okna dvě: jedna upozornění, že program se pokouší získat přístup k e-mailu adresám uloženým v aplikaci Outlook a s dotazem, pokud chcete povolit, a Další efekt, který program se pokouší odeslat e-mailovou zprávu. To funkce vás ochrání před virem, který odešle nevědomky používá e-mail ze systému.

Další informace získáte klepnutím na následující číslo článku databáze Microsoft Knowledge Base:
290500Popis funkcí zabezpečení vývojáře e-mailu v aplikaci Outlook 2002

Odkazy

Další informace o zdrojích programování aplikace Outlook klepněte na tlačítko naleznete v následujících článcích znalostní báze společnosti Microsoft:
166368Prostředky pro vlastní formuláře a programování v aplikaci Outlook 97
180826 Prostředky pro vlastní formuláře a programování v aplikaci Outlook 98
271225 Prostředky pro vlastní formuláře a programování v aplikaci Outlook 2000
287531 Seznam zdrojů pro vlastní formuláře a programování s aplikací Outlook 2002
313802 Jak načíst kontakty pomocí objektového modelu aplikace Outlook v aplikaci Visual Basic.NET
313788 Jak vytvořit událost pomocí objektového modelu aplikace Outlook v aplikaci Microsoft Visual Basic.NET

Vlastnosti

ID článku: 220595 - Poslední aktualizace: 26. dubna 2011 - Revize: 11.0
Informace v tomto článku jsou určeny pro produkt:
  • 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
Klíčová slova: 
kbautomation kbhowto kboutlookobj kbmt KB220595 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:220595

Dejte nám zpětnou vazbu

 

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