Χρήση αυτοματοποίησης για την αποστολή ενός μηνύματος του Microsoft Outlook

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 161088 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Για προχωρημένους: Απαιτεί εμπειρογνωμόνων κωδικοποίησης, διαλειτουργικότητας και δεξιότητες πολλών χρηστών.

Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Αυτό το άρθρο παρουσιάζει τον τρόπο χρήσης της αυτοματοποίησης για την αποστολή της Microsoft Μήνυμα του Outlook στη Microsoft Access 97.

Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη Visual Basic για Εφαρμογές και με τη δημιουργία εφαρμογών Microsoft Access χρησιμοποιώντας το εργαλεία προγραμματισμού που παρέχονται με το Microsoft Access. Για περισσότερες πληροφορίες σχετικά με τη Visual Basic for Applications, ανατρέξτε στο κτίριο" Εφαρμογές με Microsoft Access 97 "εγχειρίδιο.

Για περισσότερες πληροφορίες σχετικά με τη χρήση αυτοματοποίησης για την αποστολή του Microsoft Exchange το μήνυμα, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
153311Χρήση αυτοματοποίησης για την αποστολή ενός μηνύματος του Microsoft Exchange

Περισσότερες πληροφορίες

ΣΗΜΕΊΩΣΗ: Ο παρακάτω κώδικας ενδέχεται να μην λειτουργεί σωστά εάν έχετε εγκατάσταση της ενημερωμένης έκδοσης ασφαλείας για το ηλεκτρονικό ταχυδρομείο του Outlook. Για πρόσθετες πληροφορίες σχετικά με αυτήν την ενημερωμένη έκδοση, ανατρέξτε στο ένα από τα παρακάτω άρθρα Γνωσιακής Microsoft Βάση, ανάλογα με την έκδοση του Outlook που έχετε:
262631 OL2000: Πληροφορίες σχετικά με την ενημερωμένη έκδοση ασφαλείας για το ηλεκτρονικό ταχυδρομείο του Outlook
262617 OL98: Πληροφορίες σχετικά με την ενημερωμένη έκδοση ασφαλείας για το ηλεκτρονικό ταχυδρομείο του Outlook
Μέθοδος SendObject παρέχει έναν τρόπο για να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου MAPI μέσω προγραμματισμού της Microsoft Access. Ωστόσο, η μέθοδος SendObject παρέχει πρόσβαση για την ολοκλήρωση της αλληλογραφίας λειτουργικότητα, όπως η δυνατότητα Επισυνάψτε ένα εξωτερικό αρχείο ή σπουδαιότητα μηνύματος. Το παράδειγμα που ακολουθεί χρησιμοποιεί αυτοματισμό για να δημιουργήσετε και να στείλετε ένα μήνυμα αλληλογραφίας που μπορείτε να χρησιμοποιήσετε για να Επωφεληθείτε από πολλές δυνατότητες του Microsoft Outlook που δεν είναι διαθέσιμες με η μέθοδος SendObject.

Υπάρχουν έξι κύρια βήματα κατά τη χρήση αυτοματοποίησης για την αποστολή της Microsoft Μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook:

  • Η προετοιμασία της περιόδου λειτουργίας του Outlook
  • Δημιουργήστε ένα νέο μήνυμα
  • Προσθήκη παραληπτών (προς, Κοιν. και Ιδιαίτ. Κοιν.) και να επιλύσετε τα ονόματά τους
  • Ορίστε έγκυρο ιδιότητες, όπως το θέμα, σώμα και σημασία
  • Η προσθήκη συνημμένων (εάν υπάρχουν)
  • Εμφάνιση/αποστολής μηνύματος
Για να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Microsoft Outlook μέσω προγραμματισμού, ακολουθήστε αυτά τα βήματα:

  1. Δημιουργήσετε ένα δείγμα αρχείου κειμένου που ονομάζεται Customers.txt στο c:\Τα έγγραφά .
  2. Ξεκινήστε τη Microsoft Access και ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  3. Δημιουργήστε μια λειτουργική μονάδα και πληκτρολογήστε την ακόλουθη γραμμή στο δηλώσεων ενότητα εάν δεν υπάρχει ήδη εκεί:
    Επιλογή ρητή
  4. Στο μενού Εργαλεία, κάντε κλικ στην επιλογή αναφορές.
  5. Στο πλαίσιο αναφορές, κάντε κλικ στο μοντέλο αντικειμένου του Microsoft Outlook 8.0 και, στη συνέχεια, κάντε κλικ στο κουμπί OK.

    ΣΗΜΕΊΩΣΗ: Εάν το αντικείμενο του Microsoft Outlook 8.0 μοντέλο δεν εμφανίζεται στο του Διαθέσιμες αναφορές πλαίσιο, αναζητήστε τον σκληρό δίσκο για το αρχείο Msoutl8.olb. Εάν δεν εντοπίσετε αυτό το αρχείο, πρέπει να εκτελέσετε το Πρόγραμμα εγκατάστασης του Microsoft Outlook για να εγκαταστήσετε πριν να συνεχίσετε με αυτό το παράδειγμα.
  6. Πληκτρολογήστε την ακόλουθη διαδικασία στη νέα λειτουργική μονάδα:
          Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")
                  objOutlookRecip.Type = olCC
    
                 ' Add the BCC recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
                  objOutlookRecip.Type = olBCC
    
                 ' Set the Subject, Body, and Importance of the message.
                 .Subject = "This is an Automation test with Microsoft Outlook"
                 .Body = "This is the body of the message." &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
                 Next
    
                 ' Should we display the message before sending?
                 If DisplayMsg Then
                     .Display
                 Else
                     .Save
                     .Send
                 End If
              End With
              Set objOutlook = Nothing
          End Sub
    						
  7. Για να ελέγξετε αυτήν τη διαδικασία, πληκτρολογήστε την ακόλουθη γραμμή στο παράθυρο Εντοπισμός σφαλμάτων και, στη συνέχεια, πιέστε το πλήκτρο ENTER.
    SendMessage True, το "C:\My Documents\Customers.txt"
    Σημειώστε ότι εμφανίζεται ένα νέο μήνυμα στο Microsoft Outlook με ένα συνημμένο.

    Για να στείλετε το μήνυμα χωρίς την εμφάνιση του Microsoft Outlook, κλήση η διαδικασία με την τιμή False για το πρώτο όρισμα:
    SendMessage False, "C:\My Documents\Customers.txt"
    Για να στείλετε το μήνυμα χωρίς να καθορίσετε ένα συνημμένο, παραλείψτε το δεύτερο το όρισμα όταν καλείτε τη διαδικασία.
    SendMessage True

Αναφορές

Για περισσότερες πληροφορίες σχετικά με τη χρήση αυτοματισμού στη Microsoft Access, αναζήτηση το ευρετήριο της Βοήθειας Αυτοματοποίηση, ή ζητήστε από το Microsoft Office 97 πρόσβασης Βοηθός.

Για περισσότερες πληροφορίες σχετικά με τη χρήση αυτοματοποίησης για το στοιχείο ελέγχου Microsoft Outlook ανατρέξτε στα ακόλουθα άρθρα της Γνωσιακής Βάσης της Microsoft:
160502ACC: Χρήση αυτοματοποίησης για την προσθήκη συναντήσεων στο Microsoft Το Outlook

161012VBA: Τρόπος δημιουργίας νέου στοιχείου επαφής στο Outlook με Αυτοματοποίηση

Ιδιότητες

Αναγν. άρθρου: 161088 - Τελευταία αναθεώρηση: Πέμπτη, 26 Μαΐου 2011 - Αναθεώρηση: 4.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Access 97 Standard Edition
Λέξεις-κλειδιά: 
kbhowto kbinterop kbmt KB161088 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:161088
Αποποίηση ευθυνών για περιεχόμενο της Γνωσιακής Βάσης (KB) που έχει αποσυρθεί
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com