Slik bruker du automatisering til å sende en Microsoft Outlook-melding ved hjelp av Access 2000

Denne artikkelen gjelder for en Microsoft Access-database (.mdb) og for et Microsoft Access-prosjekt (ADP).

Sammendrag

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

Microsoft gir programmeringseksempler kun for illustrasjon, uten garanti hverken uttrykt eller antydet. Dette inkluderer, men er ikke begrenset til, de underforståtte garantiene for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som blir demonstrert og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtte-teknikere kan hjelpe til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å dekke dine spesifikke behov.

Merk

Følgende kode fungerer kanskje ikke som den skal hvis du har installert sikkerhetsoppdateringen for e-post i Outlook.

Du kan bruke SendObject metoden til å sende en MAPI-e-postmelding programmatisk i Microsoft Access. Metoden gir deg imidlertid SendObject ikke tilgang til fullstendig e-postfunksjonalitet, for eksempel muligheten til å legge ved en ekstern fil eller angi viktighet for meldinger. Eksemplet nedenfor bruker automatisering til å opprette og sende en e-postmelding som du kan bruke til å dra nytte av mange funksjoner i Microsoft Outlook som ikke er tilgjengelige med SendObject metoden.

Det er seks hovedtrinn for å sende en Microsoft Outlook-e-postmelding ved hjelp av automatisering, som følger:

1. Initialiser Outlook-økten.
2. Opprett en ny melding.
3. Legg til mottakerne (Til, KOPI og Blindkopi), og løs navnene.
4. Angi gyldige egenskaper, for eksempel emne, brødtekst og viktighet.
5. Legg til vedlegg (hvis aktuelt).
6. Vis/send meldingen.

Sende en e-postmelding i Microsoft Outlook programmatisk

1. Opprett en eksempeltekstfil med navnet Customers.txt i mappen C:\Mine dokumenter.

2. Start Microsoft Access, og åpne eksempeldatabasen Northwind.mdb.

3. Opprett en modul, og skriv inn følgende linje i deklarasjonsdelen hvis den ikke allerede er der:

   Option Explicit

4. Velg Referanser på Verktøy-menyen.

5. Velg Objektbiblioteket for Microsoft Outlook 9.0 i Referanser-boksen, og velg deretter OK.

   Merk

   Hvis objektbiblioteket for Microsoft Outlook 9.0 ikke vises i boksen Tilgjengelige referanser , kan du bla gjennom harddisken etter filen, Msoutl9.olb. Hvis du ikke finner denne filen, må du kjøre installasjonsprogrammet for Microsoft Outlook for å installere den før du fortsetter med dette eksemplet.

6. Skriv inn følgende fremgangsmåte 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 prosedyren, skriver du inn følgende linje i øyeblikksvinduet , og deretter trykker du ENTER:

   SendMessage "C:\My Documents\Customers.txt"

   Hvis du vil sende meldingen uten å angi et vedlegg, utelater du argumentet når du kaller prosedyren, som følger:

   SendMessage