• Articles
• admin

rezumat

acest articol vă arată cum să utilizați automatizarea pentru a crea și a trimite un mesaj Microsoft Outlook în Microsoft Access 2000.
Microsoft oferă exemple de programare numai cu titlu ilustrativ, fără garanție explicită sau implicită. Aceasta include, dar nu se limitează la, garanțiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare care este demonstrat și cu instrumentele utilizate pentru a crea și a depana procedurile. Inginerii de asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite proceduri, dar nu vor modifica aceste exemple pentru a furniza funcționalități suplimentare sau pentru a construi proceduri care să îndeplinească cerințele dvs. specifice.
notă: este posibil ca următorul cod să nu funcționeze corect dacă ați instalat actualizarea de securitate Outlook E-mail. 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 pe care o aveți:

262631 OL2000: informații despre actualizarea de securitate a poștei electronice Outlook

262617 OL98: informații despre actualizarea de securitate Outlook e-mail
puteți utiliza metoda SendObject pentru a trimite un mesaj MAPI mail programatic în Microsoft Access. Cu toate acestea, metoda SendObject nu vă oferă acces la funcționalitatea completă a e-mailului, cum ar fi posibilitatea de a atașa un fișier extern sau de a seta importanța mesajului. Exemplul care urmează utilizează automatizarea pentru a crea și a trimite un mesaj de poștă electronică pe care îl puteți utiliza pentru a profita de multe caracteristici din Microsoft Outlook care nu sunt disponibile cu metoda SendObject.
există șase pași principali pentru trimiterea unui mesaj de poștă Microsoft Outlook utilizând automatizarea, după cum urmează:

1. inițializați sesiunea Outlook.

2. creați un mesaj nou.

3. adăugați destinatarii (la, CC și BCC) și rezolvați numele acestora.

4. setați proprietăți valide, cum ar fi subiectul, corpul și importanța.

5. adăugați atașamente (dacă există).

6. afișează / trimite mesajul.

trimiterea unui mesaj de poștă electronică Microsoft Outlook programatic

1. creați un fișier text eșantion numit clienți.txt în C:\My dosar Documente.

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 Declarații dacă nu este deja acolo:

   Option Explicit
   

4. în meniul Instrumente, faceți clic pe referințe.

5. în caseta referințe, faceți clic pentru a selecta Biblioteca de obiecte Microsoft Outlook 9.0, apoi faceți clic pe OK.
   NOTĂ: Dacă Biblioteca de obiecte Microsoft Outlook 9.0 nu apare în caseta referințe disponibile, răsfoiți hard diskul pentru fișier, Msoutl9.olb. Dacă nu puteți localiza acest fișier, trebuie să rulați programul de instalare Microsoft Outlook pentru a-l instala înainte de a continua cu acest exemplu.

6. tastați următoarea procedură în noul modul:

   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ă, apoi apăsați ENTER:

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

   pentru a trimite mesajul fără a specifica un atașament, omiteți argumentul atunci când apelați procedura, după cum urmează:

   SendMessage