Outlookin automatisoiminen Visual Basicin avulla

Artikkeleiden käännökset Artikkeleiden käännökset
Artikkelin tunnus: 220595 - Näytä tuotteet, joita tämä artikkeli koskee.
Laajenna kaikki | Kutista kaikki

Tällä sivulla

Yhteenveto

Tässä artikkelissa esitellään, miten Microsoft Outlookia hallitaan ohjelmallisesti Visual Basicin automaation avulla. Esimerkki käsittelee yhteystietojen ja tapaamisten luomista sekä viestien lähettämistä Microsoft Outlookin objektimallin avulla.

Enemmän tietoa

Luo ja suorita esimerkki alla olevien ohjeiden mukaisesti. Tarvitset tämän mallin suorittamiseen käännöksen aikana sidotun viittauksen Microsoft Outlook -tyyppikirjastoon. Seuraavassa taulukossa on eri Microsoft Outlook -versioiden tyyppikirjastojen tiedostonimet:
Kutista tämä taulukkoLaajenna tämä taulukko
Outlookin versioTyyppikirjaston esitystapa viittausluettelossaTiedostonimi
Outlook 97"Microsoft Outlook 8.0 -objektikirjasto"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 -objektikirjasto"msoutl85.olb
Outlook 2000"Microsoft Outlook 9.0 -objektikirjasto"msoutl9.olb
Outlook 2002"Microsoft Outlook 10.0 -objektikirjasto"msoutl.olb
Office Outlook 2003"Microsoft Outlook 11.0 -objektikirjasto"msoutl.olb

Automaatioesimerkin muodostaminen

  1. Käynnistä Visual Basic ja luo uusi normaali EXE-projekti.
  2. Valitse Projekti-valikosta Viittaukset ja valitse Microsoft Outlook.
  3. Lisää painike lomakkeeseen.
  4. Kaksoisnapsauta painiketta ja lisää sitten seuraava koodi:
     ' Käynnistä Outlook.
     ' Jos se on jo käynnissä, käytät samaa esiintymää...
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Kirjaudu sisään. Ei haittaa, jos olet jo kirjautuneena ja ohjelma on käynnissä...
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Luo ja avaa uusi yhteystieto.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Määritä yhteystiedot...
       With olItem
          .FullName = "Jaakko Seppä"
          .Birthday = "15.9.1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "704-555-8888"
          .Email1Address = "someone@microsoft.com"
          .JobTitle = "Developer"
          .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
       End With
       
     ' Tallenna yhteystieto...
       olItem.Save
        
     ' Luo uusi tapaaminen.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Määritä alkamisaika kahden minuutin päähän tästä hetkestä...
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Määritä muut tapaamisen tiedot...
       With olAppt
          .Duration = 60
          .Subject = "Tapaaminen suunnitelmaa varten..."
          .Body = "Tapaaminen henkilön " & olItem.FullName & " kanssa suunnitelmaa varten."
          .Location = "Kotitoimisto"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Tallenna tapaaminen...
       olAppt.Save
        
     ' Lähetä viesti uudelle yhteyshenkilölle.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Täytä viestin tiedot ja lähetä viesti...
       olMail.To = olItem.Email1Address
       olMail.Subject = "Tapaamisesta..."
       olMail.Body = _
            "Hyvä" & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "Nähdään parin minuutin päästä." & vbCr & vbCr & _
            "Muuten, lisäsin sinut yhteystietoluettelooni."
       olMail.Send
        
     ' Siivotaan...
       MsgBox "Kaikki on valmista...", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. Suorita projekti ja suorita koodi napsauttamalla sitten painiketta.
Kun koodi on suoritettu, sinulla on uusi yhteyshenkilö nimeltä "Jaakko Seppä", tapaaminen ajoitettu kahden minuutin päähän, muistutus määritetty minuutin päähän ja osoitteeseen someone@microsoft.com on lähetetty viesti. Koska lisäsit yhteyshenkilösi syntymäpäiväksi 15.9., Outlookin kalenteriisi lisättiin toistuva tapahtuma muistuttamaan sinua kyseisestä päivästä.

Outlook 2002:ssa on kaksi uutta valintaikkunaa: varoitus sinulle, että ohjelma yrittää käyttää Outlookiin tallentamiasi sähköpostiosoitteita, ja kysymys sen sallimisesta, sekä toinen sanoma, joka ilmoittaa ohjelman yrittävän lähettää sähköpostia. Tämä ominaisuus suojaa siltä, että virus lähettäisi sähköpostia järjestelmässä käyttäjän tietämättä.

Saat lisätietoja napsauttamalla seuraavaa artikkelin numeroa, jolloin pääset lukemaan artikkelin Microsoft Knowledge Base -tietokannassa:
290500 Outlook 2002:n sovelluskehittäjille tarkoitettujen tietoturvaominaisuuksien kuvaus (tämä artikkeli saattaa olla englanninkielinen)

Suositukset

Saat lisätietoja Outlookin ohjelmointiresursseista napsauttamalla seuraavia artikkelien numeroita, jolloin pääset lukemaan artikkelit Microsoft Knowledge Base -tietokannassa:
166368 Mukautettujen lomakkeiden ja ohjelmoinnin resurssit Outlook 97:ssä (tämä artikkeli saattaa olla englanninkielinen)
180826 Mukautettujen lomakkeiden ja ohjelmoinnin resurssit Outlook 98:ssä (tämä artikkeli saattaa olla englanninkielinen)
271225 Mukautettujen lomakkeiden ja ohjelmoinnin resurssit Outlook 2000:ssä (tämä artikkeli saattaa olla englanninkielinen)
287531 Luettelo Outlook 2002:n mukautettujen lomakkeiden ja ohjelmoinnin resursseista (tämä artikkeli saattaa olla englanninkielinen)
313802 Yhteystietojen noutaminen Outlookin objektimallin avulla Visual Basic .NETissä (tämä artikkeli saattaa olla englanninkielinen)
313788 Tapaamisen luominen Outlookin objektimallin avulla Microsoft Visual Basic .NETissä (tämä artikkeli saattaa olla englanninkielinen)

Ominaisuudet

Artikkelin tunnus: 220595 - Viimeisin tarkistus: 2. helmikuuta 2006 - Versio: 9.0
Artikkelin tiedot koskevat seuraavia tuotteita:
  • Microsoft Visual Basic 6.0 Enterprise Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.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
Hakusanat: 
kbhowto kboutlookobj kbautomation KB220595

Anna palautetta

 

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