12 helmikuun, 2022

Kuinka käyttää automaatiota lähettää Microsoft Outlook-viestin Access 2000

Yhteenveto

tämä artikkeli näyttää, miten voit käyttää automaatiota Microsoft Outlook-viestin luomiseen ja lähettämiseen Microsoft Access 2000: ssa.
Microsoft tarjoaa ohjelmointiesimerkkejä vain havainnollistamista varten, ilman takuuta joko ilmaistuna tai epäsuorana. Tämä sisältää, mutta ei rajoitu, oletetut takuut kaupallisesta hyväksyttävyydestä tai soveltuvuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että olet perehtynyt ohjelmointikieleen, jota osoitetaan, ja työkaluihin, joita käytetään debug-menettelyjen luomiseen ja luomiseen. Microsoftin tuki-insinöörit voivat auttaa selittämään tietyn menettelyn toimivuuden, mutta he eivät muuta näitä esimerkkejä lisätoimintojen tarjoamiseksi tai menettelyjen muodostamiseksi vastaamaan erityisiä vaatimuksiasi.
huomautus: seuraava koodi ei välttämättä toimi oikein, jos olet asentanut Outlook-sähköpostin tietoturvapäivityksen. Lisätietoja tästä päivityksestä, katso jokin seuraavista artikkeleista Microsoft Knowledge Base, riippuen siitä, mikä versio Outlook sinulla on:

262631 OL2000: tietoa Outlook sähköpostin tietoturvapäivitys

262617 OL98: tietoa Outlook-sähköpostin tietoturvapäivityksestä
voit käyttää Sendobject-menetelmää MAPI-sähköpostiviestin lähettämiseen ohjelmallisesti Microsoft Accessissa. Sendobject-menetelmä ei kuitenkaan anna sinulle mahdollisuutta käyttää täydellistä sähköpostitoimintoa, kuten mahdollisuutta liittää ulkoinen tiedosto tai asettaa viestin tärkeys. Seuraavassa esimerkissä käytetään automaatiota luomaan ja lähettämään sähköpostiviesti, jonka avulla voit hyödyntää monia Microsoft Outlookin ominaisuuksia, jotka eivät ole käytettävissä Sendobject-menetelmällä.
Microsoft Outlook-sähköpostiviestin lähettämiseen automaation avulla on kuusi päävaihetta seuraavasti:

  1. alustaa Outlook-istunto.

  2. Luo uusi viesti.

  3. lisää vastaanottajat (To, CC, ja BCC) ja ratkaista niiden nimet.

  4. Aseta kelvollisia ominaisuuksia, kuten kohde, keho ja tärkeys.

  5. Lisää liitteitä (jos sellaisia on).

  6. Näytä / Lähetä viesti.

lähettäminen Microsoft Outlook sähköpostiviesti ohjelmallisesti

  1. luo näyte tekstitiedosto nimeltä asiakkaat.txt C:\My asiakirjat kansio.

  2. käynnistä Microsoft Access ja avaa esimerkkitietokanta Northwind.mdb.

  3. luo moduuli ja kirjoita seuraava rivi ilmoitukset-osioon, jos se ei ole jo olemassa:

    Option Explicit

  4. valitse Työkalut-valikosta viitteet.

  5. vuonna viittaukset ruutuun, valitse Microsoft Outlook 9.0 Object Library, ja valitse sitten OK.
    HUOMAUTUS: Jos Microsoft Outlook 9.0-objektikirjasto ei näy käytettävissä olevissa Lähdekentissä, Selaa kiintolevyäsi tiedoston osalta, Msoutl9.olb. Jos et löydä tätä tiedostoa,sinun on suoritettava Microsoft Outlookin asennusohjelma asentaa sen ennen kuin jatkat tämän esimerkin.

  6. kirjoita seuraava menettely uuteen moduuliin:

    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. voit testata tätä menettelyä kirjoittamalla seuraavan rivin välittömään ikkunaan ja painamalla sitten ENTER-näppäintä:

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

    jos haluat lähettää viestin määrittämättä liitettä, jätä argumentti pois kutsuessasi menettelyä seuraavasti:

    SendMessage

Vastaa

Sähköpostiosoitettasi ei julkaista.