Du er frakoblet, venter på at Internett skal koble til igjen

Slik automatiserer du Outlook med Visual Basic

Kundestøtte for Office 2003 er avsluttet

Microsoft avsluttet kundestøtte for Office 2003 den 8. april 2014. Denne endringen har påvirket programvareoppdateringene og sikkerhetsalternativene dine. Finn ut hvordan dette påvirker deg og hvordan du forblir beskyttet.

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:
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: 02/02/2006 16:41:00 – Revisjon: 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
Tilbakemelding