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:

  1. Outlook oturumunu başlatın.
  2. Yeni bir ileti oluşturun.
  3. Alıcıları (Kime, BILGI ve Gizli) ekleyin ve adlarını çözün.
  4. Konu, Gövde ve Önem gibi geçerli özellikleri ayarlayın.
  5. Ek ekleyin (varsa).
  6. İletiyi görüntüleme/gönderme.

Program aracılığıyla Microsoft Outlook posta iletisi gönderme

  1. C:\Belgelerim klasöründe Customers.txt adlı örnek bir metin dosyası oluşturun.

  2. Microsoft Access'i başlatın ve örnek veritabanı Northwind.mdb açın.

  3. 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

  4. Araçlar menüsünde Başvurular'ı seçin.

  5. 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.

  6. 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
    
  7. 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