Salt la conținutul principal
Asistență
Conectare

Cum se utilizează automatizare să trimiteți un mesaj de Microsoft Outlook utilizând Access 2000

Pentru o versiune de Microsoft Access 97 a acestui articol, consultați
161088.

Advanced: Necesită codificare expert, interoperabilitate și multiutilizator detaliate.

Acest articol se aplică la o bază de date Microsoft Access (.mdb) și un proiect Microsoft Access (.adp).

ÎN ACEASTĂ ACTIVITATE

Rezumat

Acest articol vă arată cum să utilizați automatizare se creează și se trimite un mesaj de Microsoft Outlook în Microsoft Access 2000.


Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri, dar nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară sau pentru a construi proceduri pentru a răspunde cerințelor dvs. specifice.
Notă: Următorul cod să nu funcționeze corect dacă ați instalat actualizarea de securitate de poștă electronică Outlook. Pentru informații suplimentare despre această actualizare, consultați unul dintre următoarele articole din baza de cunoștințe Microsoft, în funcție de versiunea de Outlook trebuie:

262631 OL2000: informații despre actualizarea de securitate de poștă electronică Outlook

262617 OL98: informații despre actualizarea de securitate de poștă electronică Outlook
Utilizați metoda SendObject pentru a trimite un mesaj de poștă electronică MAPI prin programare în Microsoft Access. Cu toate acestea, metoda SendObject vă oferă acces pentru a termina funcționalitatea de corespondență, cum ar fi capacitatea de a atașa un fişier extern sau set de mesaj importanța. Exemplul care urmează după utilizează automatizare se creează și se trimite un mesaj de poștă electronică care se pot utiliza pentru a profita de multe caracteristici în Microsoft Outlook care nu sunt disponibile cu metoda SendObject .

Există șase pași principali pentru a trimite un mesaj de poștă electronică Microsoft Outlook utilizând automatizare, după cum urmează:

  1. Inițializează sesiunea Outlook.

  2. Creați un nou mesaj.

  3. Adăugați destinatarii (, CC și CCI) și rezolva numele lor.

  4. Setați proprietăți validă, cum ar fi subiectul, corpul și importanța.

  5. Adăugaţi ataşări (dacă există).

  6. Afișare/trimite mesajul.

Trimiterea unui mesaj de poștă electronică Microsoft Outlook prin programare

  1. Creați un fișier eșantion de text numit Customers.txt în folderul C:\My documents.

  2. Porniți Microsoft Access și deschideți baza de date eşantion Northwind.mdb.

  3. Creaţi un modul și tastați următoarea linie în secțiunea de declarații dacă nu este deja acolo:

    Option Explicit
  4. În meniul Instrumente , faceți clic pe referințe.

  5. În caseta de referințe , faceți clic pentru a selecta Microsoft Outlook 9.0 biblioteca de obiecteși apoi faceți clic pe OK.

    Notă: dacă biblioteca de obiecte Microsoft Outlook 9.0 nu apare în caseta Referinţe disponibile , navigați hard disk pentru fișierul Msoutl9.olb. Dacă nu găsiți acest fișier, trebuie să executați programul de instalare Microsoft Outlook pentru a o instala înainte de a continua cu acest exemplu.

  6. Tastați următoarea procedură în modulul nou:

    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. Pentru a testa această procedură, tastați următoarea linie în fereastra imediată și apoi apăsați pe ENTER:

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

    Pentru a trimite mesajul fără a specifica o atașare, omite argumentul când apelați procedura, după cum urmează:

    SendMessage




Referințe

Pentru mai multe informații despre utilizarea automatizare în Microsoft Access, în Visual Basic Editor, faceți clic pe Ajutor Microsoft Visual Basic, în meniul Ajutor, tastați "Automatizare" în Asistentul Office sau în expert răspuns, și apoi faceți clic pe căutare pentru a vizualiza subiectul.

209963 ACC2000: cum se utilizează automatizare pentru a adăuga rezervările Microsoft Outlook

209955 ACC2000: cum se utilizează automatizare pentru a crea un element persoană de Contact nouă în Microsoft Outlook










Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă la Microsoft Insider

V-a fost de ajutor această informație?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×