Slik automatiserer du Outlook med Visual Basic

Artikkeloversettelser Artikkeloversettelser
Artikkel-ID: 220595 - Vis produkter som denne artikkelen gjelder for.
Vis alt | Skjul alt

På denne siden

Sammendrag

Denne artikkelen viser hvordan du kan programmere Microsoft Outlook ved hjelp av automatisering fra Visual Basic. Dette eksempelet viser hvordan du oppretter kontakter og avtaler og sender meldinger med Microsoft Outlooks objektmodell.

Mer informasjon

Følg trinnene nedenfor for å opprette og kjøre eksempelet. Du trenger en tidlig bindingsreferanse til et Microsoft Outlook-typebibliotek. I tabellen nedenfor finner du filnavnene for typebibliotekene for ulike versjoner av Microsoft Outlook:
Skjul denne tabellenVis denne tabellen
Outlook-versjonSlik vises typebibliotek i referanselistenFilnavn
Outlook 97"Microsoft Outlook 8.0 Object Library"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 Object Library"msoutl85.olb
Outlook 2000"Microsoft Outlook 9.0 Object Library"msoutl9.olb
Outlook 2002"Microsoft Outlook 10.0 Object Library"msoutl.olb
Office Outlook 2003"Microsoft Outlook 11.0 Object Library"msoutl.olb

Bygge automatiseringseksempelet

  1. Start Visual Basic og opprett et nytt standard EXE-prosjekt.
  2. Velg Referanser og Microsoft Outlook på Prosjekt-menyen.
  3. Legg til en knapp i skjemaet.
  4. Dobbeltklikk knappen, og legg til følgende kode:
     ' Start Outlook.
     ' Hvis det allerede kjører, bruker du den samme forekomsten.
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Logg på (hvis du ikke allerede kjører programmet og er logget på)
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Opprett og åpne en ny kontakt.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Angi kontaktinformasjon.
       With olItem
          .FullName = "Hans Hansen"
          .Birthday = "15.09.1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "70 55 58 88"
          .Email1Address = "noen@microsoft.com"
          .JobTitle = "Utvikler"
          .HomeAddress = "Storgaten 11" & vbCr & "1111 Oslo"
       End With
       
     ' Lagre kontakten.
       olItem.Save
        
     ' Opprett en ny avtale.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Angi starttid 2 minutter fra nå.
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Angi annen avtaleinformasjon.
       With olAppt
          .Duration = 60
          .Subject = "Møte for å diskutere planer."
          .Body = "Møte med " & olItem.FullName & " for å diskutere planer."
          .Location = "Hjemmekontor"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Lagre avtalen.
       olAppt.Save
        
     ' Send en melding til den nye kontakten.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Skriv og send en melding.
       olMail.To = olItem.Email1Address
       olMail.Subject = "Ang. møtet ..."
       olMail.Body = _
            "Til " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "Vi ses på møtet om 2 minutter." & vbCr & vbCr & _
            "PS: Jeg har lagt deg til i kontaktlisten min."
       olMail.Send
        
     ' Clean up.
       MsgBox "Ferdig", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. Kjør prosjektet, og klikk knappen for å kjøre koden.
Når koden kjører, skal du ha en ny kontakt ved navn "Hans Hansen", en avtale planlagt om to minutter med en påminnelse som vises om ett minutt, og en melding sendt til noen@microsoft.com. Fordi du la til en fødselsdag for kontakten (15.09), er en regelmessig hendelse lagt til i Outlook-kalenderen for å minne deg på dagen.

Nytt i Outlook 2002 er følgende to dialogbokser: Den ene advarer deg om at et program prøver å få tilgang til e-postadressene du har lagret i Outlook, og spør om du vil tillate dette, og den andre varsler deg når et program prøver å sende e-post. Denne funksjonen beskytter deg mot at et virus sender e-post fra systemet uten at du er klar over det.

Hvis du vil ha mer informasjon, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:
290500 Beskrivelse av sikkerhetsfunksjoner for e-post for utviklere i Outlook 2002 (denne artikkelen kan være på engelsk)

Referanser

Hvis du vil ha mer informasjon om programmeringsressurser i Outlook, klikker du følgende artikkelnumre for å vise artiklene i Microsoft Knowledge Base:
166368 Ressurser for egendefinerte skjemaer og programmering i Outlook 97 (denne artikkelen kan være på engelsk)
180826 Ressurser for egendefinerte skjemaer og programmering i Outlook 98 (denne artikkelen kan være på engelsk)
271225 Ressurser for egendefinerte skjemaer og programmering i Outlook 2000 (denne artikkelen kan være på engelsk)
287531 Liste over ressurser for egendefinerte skjemaer og programmering med Outlook 2002 (denne artikkelen kan være på engelsk)
313802 Slik henter du kontakter med Outlook-objektmodellen i Visual Basic .NET (denne artikkelen kan være på engelsk)
313788 Slik oppretter du en avtale med Outlook-objektmodellen i Microsoft Visual Basic .NET (denne artikkelen kan være på engelsk)

Egenskaper

Artikkel-ID: 220595 - Forrige gjennomgang: 2. februar 2006 - Gjennomgang: 9.0
Informasjonen i denne artikkelen gjelder:
  • 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
Nøkkelord: 
kbhowto kboutlookobj kbautomation KB220595

Gi tilbakemelding

 

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