Olet tällä hetkellä offline-tilassa. Internet-yhteyden muodostamista uudelleen odotetaan

Outlookin automatisoiminen Visual Basicin avulla

Office 2003:n tuki on päättynyt

Microsoft lopetti Office 2003:n tuen 8.4.2014. Tämä muutos on vaikuttanut ohjelmistopäivityksiin ja suojausasetuksiin. Lue lisätietoja muutoksen vaikutuksesta ja suojauksen varmistamisesta.

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:
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: 02/02/2006 16:33:00 – Versio: 9.0

  • 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
  • kbhowto kboutlookobj kbautomation KB220595
Palaute