Access 2000 kullanarak Microsoft Outlook iletisi göndermek için Otomasyon'u kullanma
Bu makale, bir Microsoft Access veritabanı (.mdb) ve bir Microsoft Access projesi (.adp) için geçerlidir.
Özet
Bu makalede, Microsoft Access 2000'de Microsoft Outlook iletisi oluşturmak ve göndermek için Otomasyon'u nasıl kullanacağınız gösterilmektedir.
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
Not
Outlook E-posta Güvenlik Güncelleştirmesi'ni yüklediyseniz aşağıdaki kod düzgün çalışmayabilir.
Microsoft Access'te
SendObject program aracılığıyla MAPI posta iletisi göndermek için yöntemini kullanabilirsiniz. Ancak yöntemi,
SendObject dış dosya ekleme veya ileti önemini ayarlama gibi eksiksiz posta işlevselliğine erişmenizi sağlamaz. Aşağıdaki örnek, Microsoft Outlook'ta yöntemiyle
SendObject kullanılamayan birçok özelliknden yararlanmak için kullanabileceğiniz bir posta iletisi oluşturmak ve göndermek için Otomasyon'u kullanır.
Otomasyon kullanarak Microsoft Outlook posta iletisi göndermenin altı ana adımı vardır:
- Outlook oturumunu başlatın.
- Yeni bir ileti oluşturun.
- Alıcıları (Kime, BILGI ve Gizli) ekleyin ve adlarını çözün.
- Konu, Gövde ve Önem gibi geçerli özellikleri ayarlayın.
- Ek ekleyin (varsa).
- İletiyi görüntüleme/gönderme.
Program aracılığıyla Microsoft Outlook posta iletisi gönderme
C:\Belgelerim klasöründe Customers.txt adlı örnek bir metin dosyası oluşturun.
Microsoft Access'i başlatın ve Northwind.mdb örnek veritabanını açın.
Henüz orada değilse bir modül oluşturun ve Bildirimler bölümüne aşağıdaki satırı yazın:
Option Explicit
Araçlar menüsünde Başvurular'ı seçin.
Başvurular kutusunda Microsoft Outlook 9.0 Nesne Kitaplığı'nı ve ardından Tamam'ı seçin.
Not
Kullanılabilir Başvurular kutusunda Microsoft Outlook 9.0 Nesne Kitaplığı görünmüyorsa, sabit diskinize Msoutl9.olb dosyası için göz atın. Bu dosyayı bulamıyorsanız, bu örnekle devam etmeden önce yüklemek için Microsoft Outlook Kurulum programını çalıştırmanız gerekir.
Yeni modülde aşağıdaki yordamı yazın:
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
Bu yordamı test etmek için , Anlık penceresine aşağıdaki satırı yazın ve ENTER tuşuna basın:
SendMessage "C:\My Documents\Customers.txt"
Eki belirtmeden iletiyi göndermek için, yordamı çağırırken bağımsız değişkeni aşağıdaki gibi atlayın:
SendMessage