Kaip siųsti žinutę Microsoft Outlook naudojant Access 2000 naudoti automatizavimas

Microsoft Access 97 versiją šio straipsnio, žr.
161088.

Išplėstinė: Reikia ekspertų kodavimo, veikimo suderinamumas ir kelių vartotojų įgūdžius.

Šis straipsnis taikomas Microsoft Access duomenų bazės (.mdb) ir Microsoft Access projekte (.adp).

ŠIOJE UŽDUOTYJE

Santrauka

Šiame straipsnyje aprašoma, kaip naudoti automatizavimo kurti ir siųsti žinutę Microsoft Outlook, Microsoft Access 2000.


"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Pastaba: Šį kodą gali tinkamai neveikti, jei esate įdiegę "Outlook" el. pašto saugos naujinimas. Jei norite gauti papildomos informacijos apie šį naujinimą, žiūrėkite vieną iš šių sąrašų "Microsoft" žinių bazėje esantį, priklausomai nuo to, "Outlook" versiją naudojate:

262631 OL2000: informacija apie "Outlook" el. pašto saugos naujinimas

262617 OL98: "Outlook" el. pašto saugos naujinimo informacija
Siųsti el. laišką MAPI programiškai naudojant "Microsoft Access" galite atlikti veiksmą Siųstiobjektą būdas. Tačiau atlikti veiksmą Siųstiobjektą būdas nesuteikia jums prieigą prie užbaigti pašto funkcijos, pvz., galimybė prijungti išorinį failą arba nustatyti pranešimo svarbą. Pavyzdys, kad taip naudoja automatizavimo kurti ir siųsti el. laišką, kuriais galima pasinaudoti daug funkcijų programoje "Microsoft Outlook", kad nėra atlikti veiksmą Siųstiobjektą metodą.

Yra šeši pagrindiniai veiksmus, kad siunčiant el. laišką "Microsoft" Outlook naudodami automatizavimo, taip:

  1. Inicijuoti Outlook seanso metu.

  2. Sukurkite naują pranešimą.

  3. Įtraukti gavėjų (, kopija ir Nematoma kopija) ir nustatyti jų pavadinimus.

  4. Nustatykite tinkamas ypatybes, pvz., tema, tekstą ir svarbą.

  5. Pridėti priedai (jei yra).

  6. Rodyti/siųsti pranešimą.

Programiškai siųsti el. laišką "Microsoft Outlook"

  1. Sukurkite pavyzdys tekstinį failą, pavadintą Customers.txt C:\My dokumentų aplanke.

  2. Paleiskite "Microsoft Access" ir atidaryti duomenų bazės Northwind.mdb.

  3. Sukurkite modulį ir įrašykite šią eilutę sekcijoje aprašai, jei tai dar neįrašyta:

    Option Explicit
  4. Meniu Įrankiai spustelėkite nuorodos.

  5. Nuorodos lauke, spustelėdami pažymėkite Microsoft Outlook 9.0 objektų bibliotekos, ir spustelėkite gerai.

    Pastaba: Microsoft Outlook 9.0 objektų bibliotekos Galimų nuorodų lange nėra, naršydami suraskite failą, Msoutl9.olb standžiajame diske. Jei negalite rasti šio failo, turite vykdyti Microsoft Outlook sąrankos programą ir įdiekite jį prieš tęsdami su šiame pavyzdyje.

  6. Naujame modulyje įrašykite šią procedūrą:

    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. Norėdami išbandyti šią procedūrą, tiesioginiame lange įveskite toliau nurodytą eilutę ir paspauskite ENTER:

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

    Siųsti žinutę nenurodant priedą, praleisti argumentas skambinant procedūrą, kaip nurodyta toliau:

    SendMessage




Nuorodos

Daugiau informacijos, kaip naudoti automatizavimo Microsoft Access, Visual Basic rengyklės žinyno meniu spustelėkite Microsoft Visual Basic žinynas, įveskite "Automatizavimas" Office asistente arba atsakymų vedlyje, ir spustelėkite Ieškoti ir peržiūrėję temą.

209963 ACC2000: kaip naudoti automatizavimo susitikimai įtraukti į "Microsoft Outlook"

209955 ACC2000: kaip naudoti automatizavimo Microsoft Outlook sukurti naują kontakto elementas










Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×