Microsoft Outlook ileti göndermek için Otomasyon kullanma

Makale çevirileri Makale çevirileri
Makale numarası: 161088 - Bu makalenin geçerli olduğu ürünleri görün.
Gelişmiş: Uzman kodlama, birlikte çalışabilirlik ve çok kullanıcılı becerileri gerektirir.

Hepsini aç | Hepsini kapa

Özet

Bu makalede, otomasyon oluşturmak ve Microsoft Access 97'de bir Microsoft Outlook ileti göndermek için nasıl kullanılacağı gösterilmektedir.

Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sağlanan araçları kullanarak Microsoft Access uygulamaları oluşturma bildiğinizi varsayar. Daha fazla bilgi için Visual Basic for Applications, "Microsoft Access 97 ile Uygulamalar?n?n Kurulmas?" el kitabına başvurun.

Microsoft Exchange ileti göndermek için Otomasyon kullanma hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
153311Microsoft Exchange ileti göndermek için Otomasyon kullanma

Daha fazla bilgi

Not: Outlook e-posta güvenlik güncelleştirmesi yüklediyseniz, aşağıdaki kodu düzgün çalışmayabilir. Bu güncelleştirme hakkında ek bilgi için lütfen aşağıdaki Microsoft Knowledge kullandığınız Outlook sürümüne bağlı Base'de, makalelerinden birine bakın:
262631OL2000: Bilgileri Outlook e-posta güvenlik güncelleştirmesi hakkında
262617OL98: Outlook e-posta güvenlik güncelleştirmesiyle bilgi
SendObject</a1> yöntemini program aracılığıyla Microsoft Access'te bir <a0>MAPI</a0> posta iletisi göndermek için bir yol sağlar. Ancak, yöntem, vermek SendObject erişim harici bir dosya iliştirin veya iletinin önem ayarlama olanağı posta işlevini tamamlamak için. Aşağıdaki örnek, otomasyon oluşturmak ve SendObject yöntemiyle kullanılabilir olmayan birçok Microsoft Outlook'ta özelliklerinden yararlanmak için kullanabileceğiniz bir posta iletisi göndermek için kullanır.

Microsoft Outlook posta iletisi göndermek için Otomasyon kullandığınızda altı ana adım vardır:

  • Outlook oturumu başlatılamıyor.
  • Yeni ileti oluşturma
  • Alıcı (BILGI ve GIZLI için) ekleyin ve adları çözme
  • Geçerli özellikleri konu, gövde ve önem düzeyini ayarlama
  • Ekleri (varsa) ekleyin...
  • Görüntü/ileti gönderme
Programsal olarak, Microsoft Outlook posta iletisi göndermek için aşağıdaki adımları izleyin:

  1. C:\Belgelerim olarak Customers.txt adlı örnek bir metin dosyası oluşturma klasör.
  2. Microsoft Access'i başlatın ve Northwind.mdb örnek veritabanını açın.
  3. Bir modül oluşturun ve henüz yoksa Tanımlamalar bölümüne aşağıdaki satırı yazın:
    Seçenek Belirtik
  4. Araçlar menüsünde, başvurular'ı tıklatın.
  5. Başvurular) kutusunda, Microsoft Outlook 8.0 nesne modeli tıklatın ve sonra Tamam'ı tıklatın.

    Not: Microsoft Outlook'un 8.0 nesne modelinde kullanılabilir başvurular kutusunda görüntülenmezse, sabit diskinize dosya için Gözat Msoutl8.olb. Bu dosyayı bulamıyorsanız, bu örnekle devam etmeden önce yüklemek için Microsoft Outlook Kur programını çalıştırmalısınız.
  6. Yeni modüle aşağıdaki yordamı yazın:
          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. Bu yordam sınamak için <a0></a0>, hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın.
    SendMessage doğru "C:\My Documents\Customers.txt"
    Yeni bir ileti, ekli Microsoft Outlook'ta görüntülendiğini unutmayın.

    Microsoft Outlook'ta görüntülemeden, ileti göndermek için <a0></a0>, ilk bağımsız değişken için yanlış bir değer yordamını arayın:
    SendMessage false, "C:\My Documents\Customers.txt"
    Ek belirtmeden bir iletiyi göndermek için <a0></a0>, ikinci bağımsız değişken yordamı çağrılırken atlayın.
    SendMessage doğru

Referanslar

Microsoft Access'te Automation'ı kullanma hakkında daha fazla bilgi için Otomasyon için Yardım dizini aramak veya Microsoft Access 97 Office Yardımcısı'nı isteyin.

Otomasyon denetlemek için Microsoft Outlook'u kullanma hakkında daha fazla bilgi için lütfen aşağıdaki Microsoft Knowledge Base'deki makaleleri bakın:
160502ACC: Otomasyonu'nu kullanarak Microsoft Outlook'a randevu ekleme

161012VBA: nasıl Otomasyon ile Outlook'ta yeni bir ilgili kişi öğesi oluştur

Özellikler

Makale numarası: 161088 - Last Review: 19 Ocak 2007 Cuma - Gözden geçirme: 3.3
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 97 Standard Edition
Anahtar Kelimeler: 
kbmt kbhowto kbinterop KB161088 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:161088
Kullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.

Geri Bildirim Ver

 

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