Sử dụng tự động hóa để gửi một tin nhắn Microsoft Outlook

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:161088
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
Nâng cao: Đòi hỏi chuyên gia mã hóa, khả năng tương tác, và multiuser kỹ năng.

TÓM TẮT
Bài viết này cho bạn thấy làm thế nào để sử dụng tự động hóa để tạo ra và gửi một MicrosoftOutlook tin nhắn trong Microsoft truy cập 97.

Bài viết này giả định rằng bạn đã quen thuộc với Visual Basic choCác ứng dụng và với việc tạo ra các ứng dụng Microsoft Access bằng cách sử dụng cáccông cụ lập trình được cung cấp với Microsoft Access. Để biết thêm thông tinvề Visual Basic cho các ứng dụng, hãy tham khảo "tòa nhàCác ứng dụng với Microsoft Access 97 "hướng dẫn sử dụng.

Cho biết thêm thông tin về việc sử dụng tự động hóa để gửi một Microsoft Exchangetin nhắn, hãy xem bài viết sau trong cơ sở kiến thức Microsoft:
153311Sử dụng tự động hóa để gửi một tin nhắn Microsoft Exchange
THÔNG TIN THÊM
CHÚ Ý: Mã sau đây có thể không hoạt động đúng nếu bạn cócài đặt bản cập nhật bảo mật Outlook E-mail.Để biết thêm chi tiết về bản cập nhật này, xin vui lòng xemmột trong những bài viết sau đây trong kiến thức MicrosoftBase, tùy thuộc vào phiên bản nào của Outlook bạn có:
262631 OL2000: Thông tin về Outlook E-mail Security Update
262617 OL98: Thông tin về Outlook E-mail Security Update
Phương pháp SendObject cung cấp một cách để gửi tin nhắn thư MAPIlập trình trong Microsoft Access. Tuy nhiên, phương pháp SendObject nàokhông cho bạn truy cập để hoàn thành chức năng thư, ví dụ như khả năngđính kèm tập tin bên ngoài, hoặc thiết lập thư tầm quan trọng. Ví dụ sausử dụng tự động hóa để tạo và gửi tin nhắn thư mà bạn có thể sử dụng để cólợi thế của nhiều tính năng trong Microsoft Outlook mà không phải là có sẵn vớiphương pháp SendObject.

Có sáu bước chính khi bạn sử dụng tự động hóa để gửi một MicrosoftOutlook thư:

  • Khởi tạo phiên làm việc Outlook
  • Tạo một thư mới
  • Thêm người nhận (đến, CC và BCC) và xử lý của họ tên
  • Đặt thuộc tính hợp lệ, chẳng hạn như chủ đề, cơ thể và tầm quan trọng
  • Thêm tập tin đính kèm (nếu có)
  • Hiển thị/gửi thư
Để gửi tin nhắn thư Microsoft Outlook lập trình, làm theo cácbước sau:

  1. Tạo ra một mẫu văn bản tập tin tên Customers.txt trong các tài liệu C:\My thư mục.
  2. Bắt đầu Microsoft Access và mở cơ sở dữ liệu mẫu Northwind.mdb.
  3. Tạo một mô-đun và gõ dòng sau trong các khai báo phần nếu nó không phải là đã có:
    Lựa chọn rõ ràng
  4. Trên menu công cụ, nhấp vào tài liệu tham khảo.
  5. Trong tài liệu tham khảo, nhấp vào Microsoft Outlook 8,0 Object Model và sau đó bấm OK.

    Lưu Ý: Nếu Microsoft Outlook 8,0 đối tượng mô hình không xuất hiện trong các Tài liệu tham khảo có sẵn hộp, trình duyệt của bạn ổ đĩa cứng cho các tập tin Msoutl8.olb. Nếu bạn không thể xác định vị trí tệp này, bạn phải chạy các Chương trình cài đặt Microsoft Outlook để cài đặt nó trước khi bạn tiến hành với ví dụ này.
  6. Gõ thủ tục sau đây trong các phân hệ mới:
          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. Để kiểm tra thủ tục này, gõ dòng sau trong cửa sổ Debug, và sau đó nhấn ENTER.
    SendMessage đúng, "C:\My Documents\Customers.txt"
    Lưu ý rằng một tin nhắn mới được hiển thị trong Microsoft Outlook với một tập tin đính kèm.

    Gửi tin nhắn mà không cần hiển thị nó trong Microsoft Outlook, gọi các thủ tục với một giá trị sai cho đối số đầu tiên:
    SendMessage sai, "C:\My Documents\Customers.txt"
    Để gửi thư mà không có chỉ định tập tin đính kèm, bỏ qua thứ hai đối số khi gọi thủ tục.
    SendMessage True
THAM KHẢO
Để biết thêm chi tiết về việc sử dụng tự động hóa trong Microsoft Access, tìm kiếmchỉ mục trợ giúp cho Tự động hóa, hoặc yêu cầu văn phòng 97 truy cập MicrosoftTrợ lý.

Cho biết thêm thông tin về việc sử dụng tự động hóa để điều khiển Microsoft Outlook,Xin vui lòng xem các bài viết sau trong cơ sở kiến thức Microsoft:
160502ACC: Bằng cách sử dụng tự động hóa để thêm cuộc hẹn vào Microsoft Outlook

161012VBA: Làm thế nào để tạo một mục số liên lạc mới trong Outlook với Tự động hóa
OutSol OutSol97 OutSol98

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 161088 - Xem lại Lần cuối: 12/04/2015 15:55:48 - Bản sửa đổi: 2.0

Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbinterop kbmt KB161088 KbMtvi
Phản hồi