OL2000: Nasıl günlüğü, tüm kişiler için programatik olarak ayarlama

Makale çevirileri Makale çevirileri
Makale numarası: 252947 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, bir Outlook Visual Basic for Applications makrosu, günlüğe otomatik olarak ayarlanır, tüm kişileriniz programsal olarak değiştirmek için kullanabileceğiniz sağlar.

Daha fazla bilgi

Günlük kaydı kişi öğelerinin <a2>Varsayılan</a2> ayarını devre dışı bırakılır. Ilgili kişi oluşturmak ve bu kişiler için günlük kaydını etkinleştirme karar vermek, her kişi için <a1>Günlük</a1> seçeneğini ayarlayın:
  1. Araçlar menüsünden Seçenekler ' i tıklatın.
  2. Tercihler) sekmesinde, Günlük seçenekleri ' ni tıklatın.
  3. Bu kişiler iletişim kutusunda, günlük kaydını etkinleştirmek istediğiniz her bir kişiyi tıklatın.
Çok sayıda kişi varsa ve günlüğe kaydetme, bunların tümü için etkinleştirmek istediğiniz kişilerin tümü programsal olarak değiştirmek için daha verimli olabilir.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; satılabilirlik ve/veya belirli bir amaca uygunluk da dahil, ancak bununla sınırlı olmamak kaydıyla, örtülü veya açık garanti vermez. 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 uzmanları, 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.
Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı İş Ortağı'na veya Microsoft Danışmanlık Hizmetleri'ne başvurabilirsiniz. Daha fazla bilgi için şu Microsoft Web sitelerini ziyaret edin:

Microsoft Partner - https://partner.microsoft.com/global/30000104 Onaylandı

Microsoft danışma belgesi Hizmetleri - http://support.microsoft.com/gp/advisoryservice

Kullanılabilir destek seçenekleri ve Microsoft'a başvurma konusunda daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSMakro oluşturmak için <a0></a0>:
  1. Araçlar menüsünden, makro ' nun üzerine gelin ve makrolar ' ı tıklatın.
  2. Makro adı kutusunda, SetAllContactsToJournal yazın ve sonra Oluştur ' u tıklatın. Visual Basic Düzenleyicisi'ni başlatır ve bir alt yordam otomatik olarak oluşturur.
  3. Kod aşağıdaki satırları yazın:
    Sub SetAllContactsToJournal()
    
       Dim objContactsFolder As Outlook.MAPIFolder
       Dim objContacts As Outlook.Items
       Dim objContact As Object
       Dim iCount As Integer
    
       ' Specify which contact folder to work with
       Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
       Set objContacts = objContactsFolder.Items
    
       iCount = 0
    
       ' Process the changes
       For Each objContact In objContacts
          If TypeName(objContact) = "ContactItem" Then
             If objContact.Journal = False Then
                objContact.Journal = True
                objContact.Save
                iCount = iCount + 1
             End If
          End If
       Next
       
       MsgBox "Number of contacts updated:" & Str$(iCount)
    
       ' Clean up
       Set objContact = Nothing
       Set objContacts = Nothing
       Set objContactsFolder = Nothing
    
    End Sub
    					
  4. Dosya menüsünde Kapat ve Microsoft Outlook'a dön'ı tıklatın.
Makroyu kullanmak için <a0></a0>:
  1. Araçlar menüsünden, makro ' nun üzerine gelin ve makrolar ' ı tıklatın.
  2. SetAllContactsToJournal ' ı tıklatın ve sonra da <a2>Çalıştır</a2>'ı tıklatın.
Güncelleştirildi, ilgili kişilerin sayısını belirten BIR pencere görünür.

NOTLAR

  • Kişiler klasörünüzdeki öğeleri işlemek için biraz zaman alabilir.
  • Kişilerinizi güncelleştirildiğinde, işaretçinizi bir kum saati için değişmez.
  • Bu sık sık kullanıyorsanız, makro için bir düğme atayabilirsiniz.Bu makroyu bir araç çubuğu düğmesine atama hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
    252426OL2000: nasıl bir araç çubuğu düğmesine makro atama
  • Örnek kod, yalnızca varsayılan Kişiler klasörü ile çalışır. Herhangi bir Kişiler klasörü çalışmasını istiyorsanız, <a1>Kod</a1>
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    						
    ve değiştirmeniz:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
    					
  • Programlama ile bilgi sahibiyseniz ve farklı bir konumda bir belirli kişiler klasörünü kullanmak istiyorsanız, Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
208520OL2000: Başvuru öğeler ve klasörler programlama örnekleri

Referanslar

Kullanılabilen kaynaklar ve Microsoft Outlook çözümleri ile sık sorulan sorular answersto hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
146636OL2000: Özel formlar ve Outlook çözümleri sorular

Özellikler

Makale numarası: 252947 - Last Review: 13 Şubat 2014 Perşembe - Gözden geçirme: 3.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Outlook 2000
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbhowto KB252947 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:252947

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