כיצד להשתמש באוטומציה של שליחת הודעה, Microsoft Outlook באמצעות Access 2000

עבור גירסת Microsoft Access 97 של מאמר זה, ראה
161088.

מתקדם: דורשת קידוד מומחה, יכולת פעולה הדדית ומיומנויות עבודה מרובת משתמשים.

מאמר זה חל על מסד נתונים של Microsoft Access (. mdb) ועל פרוייקט Microsoft Access (. adp).

במשימה זו

סיכום

מאמר זה מראה לך כיצד להשתמש באוטומציה כדי ליצור ולשלוח הודעה ב- Microsoft Outlook ב- Microsoft Access 2000.


מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.
הערה: הקוד הבא לא יפעלו כראוי אם תתקין את עדכון אבטחת הדואר האלקטרוני של Outlook. לקבלת מידע נוסף אודות עדכון זה, נא עיין באחד המאמרים הבאים ב- Microsoft Knowledge Base, בהתאם לגירסת Outlook שברשותך:

262631 OL2000: מידע אודות עדכון אבטחת הדואר האלקטרוני של Outlook

262617 OL98: מידע אודות עדכון אבטחת הדואר האלקטרוני של Outlook
באפשרותך להתשמש בפעולת SendObject כדי לשלוח הודעת דואר אלקטרוני MAPI באופן תיכנותי ב- Microsoft Access. עם זאת, השיטה SendObject אינה מעניקה לך גישה להשלמת פונקציונליות דואר, כגון היכולת לצרף קובץ חיצוני או קבע חשיבות ההודעה. הדוגמה הבאה משתמשת אוטומציה כדי ליצור ולשלוח הודעת דואר, שבה באפשרותך להשתמש כדי להנות מהיתרון של תכונות רבות ב- Microsoft Outlook, שאינן זמינות בפעולת SendObject .

קיימים שישה שלבים ראשיים שליחת הודעת דואר אלקטרוני ב- Microsoft Outlook באמצעות אוטומציה, כדלקמן:

  1. אתחל הפעלת Outlook.

  2. יצירת הודעה חדשה.

  3. הוסף את הנמענים (אל, עותק, ועותק מוסתר) ולפתור את שמותיהם.

  4. הגדרת מאפייני חוקי, כגון הנושא, גוף חשיבות.

  5. הוספת קבצים מצורפים (אם בכלל).

  6. תצוגה/שלח ההודעה.

שליחת הודעת דואר אלקטרוני ב- Microsoft Outlook באופן תוכניתי

  1. צור קובץ טקסט לדוגמה בשם Customers.txt בתיקייה C:\My Documents.

  2. הפעל את Microsoft Access ולאחר מכן לפתוח את מסד הנתונים לדוגמה Northwind.mdb.

  3. ליצור מודול והקלד את השורה הבאה במקטע ההצהרות אם היא עדיין לא קיים:

    Option Explicit
  4. בתפריט כלים , לחץ על הפניות.

  5. בתיבה הפניות , לחץ כדי לבחור את ספריית אובייקטים 9.0 של Microsoft Outlookולאחר מכן לחץ על אישור.

    הערה: אם ספריית אובייקטים 9.0 של Microsoft Outlook אינו מופיע בתיבה הפניות זמינות , עיון בדיסק הקשיח עבור הקובץ, Msoutl9.olb. אם אין באפשרותך לאתר קובץ זה, עליך להפעיל את תוכנית ההתקנה של Microsoft Outlook כדי להתקין אותו לפני שתמשיך עם דוגמה זו.

  6. הקלד את ההליך הבא במודול חדש:

    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. אל מחשב הליך זה, הקלד את השורה הבאה בחלון מיידי ולאחר מכן הקש ENTER:

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

    כדי לשלוח את ההודעה מבלי לציין קובץ מצורף, השמט את הארגומנט בעת קריאה לפרוצדורה, כדלקמן:

    SendMessage




הפניות

לקבלת מידע נוסף אודות השימוש באוטומציה ב- Microsoft Access, ב- Visual Basic Editor, לחץ על עזרה של Microsoft Visual Basic בתפריט עזרה, הקלד "אוטומציה" המסייע של Office או באשף התשובות ולאחר מכן לחץ על חיפוש כדי להציג את הנושא.

209963 ACC2000: כיצד להשתמש באוטומציה כדי להוסיף פגישות ל- Microsoft Outlook

209955 ACC2000: כיצד להשתמש באוטומציה כדי ליצור פריט איש קשר חדש ב- Microsoft Outlook










זקוק לעזרה נוספת?

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Microsoft insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×