Kā izmantot automatizācijas nosūtīt ziņojumu Microsoft Outlook, izmantojot Access 2000

Microsoft Access 97 šī raksta versiju par produktu, skatiet
161088.

Papildu: Nepieciešams ekspertu kodēšana, sadarbspēja un paaugstinātas prasmes.

Šis raksts attiecas uz Microsoft Access datu bāzes (. mdb) un Microsoft Access projekta (. adp).

ŠAJĀ UZDEVUMĀ

Kopsavilkums

Rakstā izskaidrots, kā izveidot un nosūtīt ziņojumu Microsoft Outlook, Microsoft Access 2000 izmantot automatizāciju.


Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.
Piezīme: Šis kods var nedarboties pareizi, ja esat instalējis Outlook e-pasta drošības atjauninājums. Lai iegūtu papildinformāciju par šo atjauninājumu, skatiet šajos rakstos Microsoft zināšanu bāzē, atkarībā no tā, kuru Outlook versiju, jums ir:

262631 OL2000: informācija par drošības atjauninājumu Outlook e-pasta

262617 OL98: informācija par drošības atjauninājumu Outlook e-pasta
SendObject metodi var izmantot, lai nosūtītu e-pasta ziņojumu MAPI programmiski programmā Microsoft Access. Tomēr SendObject metode nesniedz piekļuvi pabeigt pasta funkcionalitāti, piemēram, pievienojiet ārēju failu vai ziņojumu nozīmi. Piemērs, kas seko automatizācijas izmanto, lai izveidotu un nosūtītu e-pasta ziņojumu, ko var izmantot, lai izmantotu daudzi līdzekļi programmā Microsoft Outlook, kas nav pieejami SendObject metodi.

Pastāv sešas galvenās darbības, lai Microsoft Outlook e-pasta ziņojumu sūtīšana, izmantojot automatizāciju, šādi:

  1. Inicializēt Outlook sesijā.

  2. Izveidojiet jaunu ziņojumu.

  3. Pievienojiet adresātu (kam, kopija un Diskrētā kopija) un savu vārdu.

  4. Iestatiet derīgu rekvizītus, piemēram, tēma, pamatteksts un svarīgi.

  5. Pievienot pielikumus (ja tādi ir).

  6. Parādīt/nosūtīt ziņojumu.

Microsoft Outlook e-pasta ziņojumu sūtīšana programmiski

  1. Izveidojiet parauga teksta failu ar nosaukumu Customers.txt C:\My dokumentu mapē.

  2. Startējiet programmu Microsoft Access un atveriet parauga datu bāzi Northwind.

  3. Izveidot moduli un ierakstiet šādu rindu definīciju sekcijā, ja tajā vēl nav šī teksta:

    Option Explicit
  4. Izvēlnē Rīki noklikšķiniet uz atsauces.

  5. Atsauces lodziņā atlasiet Microsoft Outlook 9.0 objektu bibliotēkaun pēc tam noklikšķiniet uz Labi.

    Piezīme: ja Microsoft Outlook 9.0 objektu bibliotēka Pieejama atsauces lodziņā nav redzama, atrodiet faila Msoutl9.olb cietā diska. Ja nevarat atrast šo failu, ir jāpalaiž Microsoft Outlook uzstādīšanas programmu, lai instalētu to, pirms turpināt šajā piemērā.

  6. Jaunajā modulī ievadiet šādas darbības:

    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. Lai pārbaudītu šo procedūru, tūlītējā logā ierakstiet šādu komandu un pēc tam nospiediet taustiņu ENTER:

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

    Lai nosūtītu ziņojumu nenorādot pielikums, izlaist arguments izsaucot procedūru, šādi:

    SendMessage




Atsauces

Lai iegūtu plašāku informāciju par automatizācijas programmā Microsoft Access Visual Basic redaktora izvēlnē Palīdzība noklikšķiniet uz Microsoft Visual Basic palīdzība, Office palīgā vai atbilžu vednī ierakstiet "Automatizācija" un pēc tam noklikšķiniet uz meklēšanu, lai skatītu tēmu.

209963 ACC2000: automatizācijas izmantošana tikšanās pievienošana programmai Microsoft Outlook

209955 ACC2000: automatizācijas izmantošana programmā Microsoft Outlook izveidotu jaunu kontaktpersonu vienumu










Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Insider

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×