Outlook, Visual Basic kullanarak otomatikleştirme

Office 2003 desteği sona erdi

Microsoft, Office 2003 desteğini 8 Nisan 2014'te sona erdirdi. Bu değişiklik yazılım güncelleştirmelerinizi ve güvenlik seçeneklerinizi etkiledi. Bunun sizin için ne anlama geldiğini ve korunmaya nasıl devam edebileceğinizi öğrenin.

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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:
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

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 220595 - Son İnceleme: 12/05/2015 13:09:04 - Düzeltme: 9.4

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

  • kbnosurvey kbarchive kbmt kbautomation kbhowto kboutlookobj KB220595 KbMttr
Geri bildirim