Ö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.
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.
Gelişmiş: Uzman kodlama, birlikte çalışabilirlik ve çok kullanıcılı becerileri gerektirir.
Ö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:
C:\Belgelerim olarak Customers.txt adlı örnek bir metin dosyası oluşturma klasör.
Microsoft Access'i başlatın ve Northwind.mdb örnek veritabanını açın.
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
Araçlar menüsünde, başvurular'ı tıklatın.
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.
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
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: