• Articles
• admin

összefoglaló

ez a cikk bemutatja, hogyan hozhat létre és küldhet Microsoft Outlook üzenetet az automatizálás használatával a Microsoft Access 2000 alkalmazásban.
a Microsoft csak illusztrációként kínál programozási példákat, kifejezett vagy hallgatólagos garancia nélkül. Ez magában foglalja, de nem kizárólagosan, az értékesíthetőségre vagy egy adott célra való alkalmasságra vonatkozó hallgatólagos garanciákat. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási mérnökei segíthetnek megmagyarázni egy adott eljárás működését, de nem módosítják ezeket a példákat, hogy hozzáadott funkciókat biztosítsanak, vagy eljárásokat hozzanak létre az Ön egyedi követelményeinek megfelelően.
megjegyzés: előfordulhat, hogy az alábbi kód nem működik megfelelően, ha telepítette az Outlook E-mail biztonsági frissítését. A frissítéssel kapcsolatos további információkért olvassa el a Microsoft Tudásbázis alábbi cikkeinek egyikét, attól függően, hogy az Outlook melyik verzióját használja:

262631 OL2000: információk Az Outlook E – mail biztonsági frissítéséről

262617 OL98: információk Az Outlook E-mail biztonsági frissítéséről
a Sendobject módszerrel MAPI e-mail üzenetet küldhet programozottan a Microsoft Accessben. A SendObject módszer azonban nem biztosít hozzáférést a teljes levelezési funkcióhoz, például külső fájl csatolásához vagy az üzenet fontosságának beállításához. A következő példa az Automation használatával hoz létre és küld e-mailt, amely segítségével kihasználhatja a Microsoft Outlook számos olyan szolgáltatását, amelyek nem érhetők el a SendObject módszerrel.
a Microsoft Outlook mail üzenet automatizálással történő küldésének hat fő lépése van, az alábbiak szerint:

1. inicializálja az Outlook munkamenetet.

2. hozzon létre egy új üzenetet.

3. adja hozzá a címzetteket (Címzett, Másolat és titkos másolat), és oldja fel a nevüket.

4. állítson be érvényes tulajdonságokat, például a témát, a törzset és a fontosságot.

5. adjon hozzá mellékleteket (ha vannak).

6. üzenet megjelenítése/küldése.

Microsoft Outlook Mail üzenet küldése programozottan

1. hozzon létre egy minta szöveges fájlt nevű ügyfelek.txt a C:\My Dokumentumok mappa.

2. indítsa el a Microsoft Access alkalmazást, és nyissa meg a Northwind mintaadatbázist.mdb.

3. hozzon létre egy modult, és írja be a következő sort a deklarációk szakaszba, ha még nincs ott:

   Option Explicit
   

4. kattintson az Eszközök menü hivatkozások parancsára.

5. a hivatkozások mezőben jelölje ki a Microsoft Outlook 9.0 Objektumtárat, majd kattintson az OK gombra.
   MEGJEGYZÉS: Ha a Microsoft Outlook 9.0 objektumkönyvtár nem jelenik meg az elérhető hivatkozások mezőben, keresse meg a merevlemezen az Msoutl9 fájlt.olb. Ha nem találja ezt a fájlt, a példa folytatása előtt futtatnia kell a Microsoft Outlook telepítőprogramját a telepítéshez.

6. írja be a következő eljárást az új modulba:

   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. az eljárás teszteléséhez írja be a következő sort a közvetlen ablakba, majd nyomja le az ENTER billentyűt:

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

   ha az üzenetet melléklet megadása nélkül szeretné elküldeni, hagyja ki az argumentumot az eljárás meghívásakor, az alábbiak szerint:

   SendMessage