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

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: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 με Αυτοματοποίηση
OutSol98 OutSol OutSol97

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί αυτόματα

Ιδιότητες

Αναγνωριστικό άρθρου: 161088 - Τελευταία αναθεώρηση: 12/04/2015 15:55:39 - Αναθεώρηση: 4.0

Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbinterop kbmt KB161088 KbMtel
Σχόλια