Bruke automatisering til å sende en Microsoft Outlook-melding ved hjelp av Access 2000


Hvis en Microsoft Access 97-versjon av denne artikkelen, kan du se
161088 .
Avansert: Krever koding, interoperabilitet og flerbruker ferdigheter.

Denne artikkelen omhandler en Microsoft Access-database (MDB) og et Microsoft Access-prosjekt (ADP).

I DENNE OPPGAVEN

Sammendrag


Denne artikkelen viser hvordan du bruker automatisering til å opprette og sende en Microsoft Outlook-melding i Microsoft Access 2000.


Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.
Merk: Den følgende koden fungerer kanskje ikke hvis du har installert e-postsikkerhetsoppdateringen for Outlook. Hvis du vil ha mer informasjon om denne oppdateringen, kan du se en av følgende artikler i Microsoft Knowledge Base, avhengig av hvilken Outlook-versjon du har:
262631 OL2000: informasjon om oppdateringen for e-postsikkerhet i Outlook
262617 OL98: informasjon om oppdateringen for e-postsikkerhet i Outlook
Du kan bruke SendObject -metoden til å sende en MAPI-e-postmelding programmatisk i Microsoft Access. Imidlertid SendObject -metoden gir deg ikke tilgang til å fullføre e postfunksjonalitet, for eksempel muligheten til å legge til en ekstern fil eller angi viktighet. Eksemplet nedenfor bruker automatisering til å opprette og sende en e-postmelding som du kan bruke til å dra nytte av de mange funksjonene i Microsoft Outlook som ikke er tilgjengelige med SendObject -metoden.

Det finnes seks hovedtrinn når du skal sende en e-postmelding i Microsoft Outlook ved hjelp av automatisering, som følger:

  1. Starte Outlook-økten.
  2. Opprette en ny melding.
  3. Legge til mottakerne (til, kopi og Blindkopi) og løse navnene deres.
  4. Angi gyldige egenskaper, for eksempel emne, brødtekst og viktighet.
  5. Legge til vedlegg (Hvis noen).
  6. Skjerm/Send meldingen.

Sende en e-postmelding i Microsoft Outlook ved hjelp av programmering

  1. Opprette en eksempeltekstfil kalt Customers.txt i mappen C:\My dokumenter.
  2. Start Microsoft Access og åpner eksempeldatabasen Gastronor.mdb.
  3. Opprett en modul, og Skriv inn følgende linje i deklarasjonsdelen hvis den ikke:
    Option Explicit
  4. Velg referanserVerktøy -menyen.
  5. Klikk for å velge 9.0-objektbibliotek for Microsoft Outlooki referanser -boksen, og klikk deretter OK.

    Merk: Hvis Microsoft Outlook 9.0-objektbibliotek ikke vises i boksen Tilgjengelige referanser , bla gjennom etter filen Msoutl9.olb på harddisken. Hvis du ikke finner denne filen, må du kjøre installasjonsprogrammet for Microsoft Outlook til å installere den før du fortsetter med dette eksemplet.
  6. Skriv inn følgende prosedyre i den nye modulen:
    Sub SendMessage(Optional AttachmentPath)
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment

    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")

    ' Create the message.
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg
    ' Add the To recipient(s) to the message.
    Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
    objOutlookRecip.Type = olTo

    ' Add the CC recipient(s) to the message.
    Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
    objOutlookRecip.Type = olCC

    ' Set the Subject, Body, and Importance of the message.
    .Subject = "This is an Automation test with Microsoft Outlook"
    .Body = "Last test - I promise." & vbCrLf & vbCrLf
    .Importance = olImportanceHigh 'High importance

    ' Add attachments to the message.
    If Not IsMissing(AttachmentPath) Then
    Set objOutlookAttach = .Attachments.Add(AttachmentPath)
    End If

    ' Resolve each Recipient's name.
    For Each objOutlookRecip In .Recipients
    objOutlookRecip.Resolve
    If Not objOutlookRecip.Resolve Then
    objOutlookMsg.Display
    End If
    Next
    .Send

    End With
    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing
    End Sub
  7. Hvis du vil teste denne fremgangsmåten, skriver du inn følgende linje i vinduet, og trykk deretter ENTER:
    SendMessage "C:\My Documents\Customers.txt"
    Hvis du vil sende meldingen uten å angi et vedlegg, utelat argumentet når du kaller prosedyren som følger:
    SendMessage



Referanser


For mer informasjon om hvordan du bruker automatisering i Microsoft Access, i Visual Basic-redigering, klikker du Hjelp for Microsoft Visual Basic på Hjelp-menyen, skriver du inn "Automatisering" i Office-hjelperen eller svarveiviseren, og deretter Søk for å vise emnet.
209963 ACC2000: hvordan bruke automatisering til å legge til avtaler i Microsoft Outlook
209955 ACC2000: bruke automatisering til å opprette en ny kontaktelement i Microsoft Outlook