• Articles
• admin

sammanfattning

den här artikeln visar hur du använder Automation för att skapa och skicka ett Microsoft Outlook-meddelande i Microsoft Access 2000.
Microsoft tillhandahåller programmeringsexempel endast för illustration, utan garanti, varken uttrycklig eller underförstådd. Detta inkluderar, men är inte begränsat till, underförstådda garantier för säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med verktygen som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionaliteten för en viss procedur, men de kommer inte att ändra dessa exempel för att ge extra funktionalitet eller konstruera procedurer för att uppfylla dina specifika krav.
Obs! följande kod kanske inte fungerar korrekt om du har installerat säkerhetsuppdateringen för Outlook-E-post. Mer information om den här uppdateringen finns i någon av följande artiklar i Microsoft Knowledge Base, beroende på vilken version av Outlook Du har:

262631 OL2000: Information om säkerhetsuppdateringen för Outlook-E-post

262617 OL98: Information om Outlook e-post säkerhetsuppdatering
du kan använda metoden SendObject för att skicka ett MAPI-e-postmeddelande programmässigt i Microsoft Access. Sendobject-metoden ger dig dock inte tillgång till fullständig e-postfunktionalitet, till exempel möjligheten att bifoga en extern fil eller ange meddelandevikt. Exemplet som följer använder automatisering för att skapa och skicka ett e-postmeddelande som du kan använda för att dra nytta av många funktioner i Microsoft Outlook som inte är tillgängliga med SendObject-metoden.
det finns sex huvudsteg för att skicka ett Microsoft Outlook – e-postmeddelande med hjälp av Automation, enligt följande:

1. initiera Outlook-sessionen.

2. skapa ett nytt meddelande.

3. Lägg till mottagarna (till, kopia och Hemlig kopia) och lösa deras namn.

4. ange giltiga egenskaper, till exempel ämne, kropp och betydelse.

5. Lägg till bilagor (om några).

6. visa / skicka meddelandet.

skicka ett Microsoft Outlook – e-postmeddelande programmatiskt

1. skapa en exempeltextfil med namnet kunder.txt i C:\My dokument mapp.

2. starta Microsoft Access och öppna exempeldatabasen Northwind.mdb.

3. skapa en modul och skriv följande rad i avsnittet deklarationer om den inte redan finns där:

   Option Explicit
   

4. klicka på referenser på Verktyg-menyn.

5. markera objektbiblioteket Microsoft Outlook 9.0 i rutan referenser och klicka sedan på OK.
   OBS!: Om objektbiblioteket Microsoft Outlook 9.0 inte visas i rutan Tillgängliga referenser bläddrar du i hårddisken efter filen Msoutl9.olb. Om du inte kan hitta den här filen måste du köra Microsoft Outlook-installationsprogrammet för att installera det innan du fortsätter med det här exemplet.

6. Skriv följande procedur i den nya 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. för att testa den här proceduren skriver du följande rad i fönstret omedelbart och trycker sedan på RETUR:

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

   för att skicka meddelandet utan att ange en bilaga, utelämna argumentet när du anropar proceduren enligt följande:

   SendMessage