Outlook, Visual Basic kullanarak otomatikleştirme

Makale çevirileri Makale çevirileri
Makale numarası: 220595 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Microsoft Outlook, gelen bir Visual Basic Automation'ı kullanarak program aracılığıyla denetlemesine gösterilmiştir. Örnek oluşturma kişileri, randevuları oluşturma ve Microsoft Outlook nesne modeli kullanarak iletileri gönderme gösterir.

Daha fazla bilgi

Örnek çalıştırmak için aşağıdaki adımları izleyin. Örneği çalıştırmak için <a0></a0>, Microsoft Outlook'un bir tür kitaplığı erken bağlama başvuru gerekir. Aşağıdaki tabloda, Microsoft Outlook'un farklı sürümleri için tür kitaplıklarının dosya adlarını listeler:
Bu tabloyu kapaBu tabloyu aç
Outlook sürümüTür kitaplığı, başvuruları listesinde nasıl görünürFilename
Outlook 97"Microsoft Outlook 8.0 Nesne Kitaplığı"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 Nesne Kitaplığı"msoutl85.olb
Outlook 2000"Microsoft Outlook 9.0 Nesne Kitaplığı"msoutl9.olb
Outlook 2002"Microsoft Outlook 10.0 Nesne Kitaplığı"Msoutl.olb
Office Outlook 2003"Microsoft Outlook 11.0 Nesne Kitaplığı"Msoutl.olb

Otomasyon örneği oluşturma

  1. Visual Basic'ı başlatın ve yeni bir standart exe DOSYASı oluşturma proje.
  2. Proje) menüsünde, Başvurular ' ı seçip Microsoft Outlook'u seçin.
  3. Düğme, forma ekleyin.
  4. Düğmeyi çift tıklatın ve sonra aşağıdaki kodu ekleyin:
     ' Start Outlook.
     ' If it is already running, you'll use the same instance...
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Logon. Doesn't hurt if you are already running and logged on...
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Create and Open a new contact.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Setup Contact information...
       With olItem
          .FullName = "James Smith"
          .Birthday = "9/15/1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "704-555-8888"
          .Email1Address = "someone@microsoft.com"
          .JobTitle = "Developer"
          .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
       End With
       
     ' Save Contact...
       olItem.Save
        
     ' Create a new appointment.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Set start time for 2-minutes from now...
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Setup other appointment information...
       With olAppt
          .Duration = 60
          .Subject = "Meeting to discuss plans..."
          .Body = "Meeting with " & olItem.FullName & " to discuss plans."
          .Location = "Home Office"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Save Appointment...
       olAppt.Save
        
     ' Send a message to your new contact.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Fill out & send message...
       olMail.To = olItem.Email1Address
       olMail.Subject = "About our meeting..."
       olMail.Body = _
            "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _
            "Btw: I've added you to my contact list."
       olMail.Send
        
     ' Clean up...
       MsgBox "All done...", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. Projeyi çalıştırın ve kod çalıştırmak için bu düğmeyi tıklatın.
Kod çalışır, sonra "Can Etikan," iki dakika ile bir dakika içinde görünür ve birisi@microsoft.com ileti göndermiş olduğunuz bir anımsatıcının zamanlanan bir randevu adlı yeni bir ilgili kişi olmalıdır. Ayrıca, çünkü bu bir doğum günü için kişinizin eklediğiniz (9/15), yinelenen bir olayın günü anımsatmak Outlook Takvim için eklenmiştir.

Outlook 2002'ye iki iletişim kutularını yenidir: tek bir program Outlook'ta depoladığınız e-posta adreslerine erişmeye çalışıyor, uyarı ve bu ve başka bir ileti için e-posta göndermeye çalışan bir programın etkisini izin vermek isteyip istemediğinizi soran. Bu özellik bilmeden sisteminizden e-posta gönderen bir virüs tarafından kullanılmasını korunmanızı sağlayacaktır.

Daha fazla bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
290500Outlook 2002'deki geliştirici ile ilişkili e-posta güvenliği özelliklerinin açıklaması (Bu bağlantı, bir kısmı veya tamamı İngilizce olan içeriğe işaret edebilir.)

Referanslar

Outlook programlama kaynakları hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
166368Özel formlar ve Outlook 97'de programlama kaynakları
180826Özel formlar ve programlama Outlook 98 için kaynaklar
271225Outlook 2000'de özel formlar ve programlama kaynakları
287531Özel formlar ve Outlook 2002 ile programlama kaynaklarının listesi
313802Visual Basic. NET'te Outlook nesne modeli kullanarak, kişileri almak için
313788Microsoft Visual Basic. NET'te Outlook nesne modeli kullanarak randevu oluşturma

Özellikler

Makale numarası: 220595 - Last Review: 15 Mart 2006 Çarşamba - Gözden geçirme: 9.4
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Outlook 2000
  • Microsoft Outlook 97 Standard Edition
  • Microsoft Outlook 98 Standard Edition
Anahtar Kelimeler: 
kbmt kbautomation kbhowto kboutlookobj KB220595 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:220595

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