Outlook'ta Bir Kişinin Adresinde Bulunan Bir Randevu Oluşturmanın 2 Yöntemi

Belirli bir kişiden randevu oluşturmak ve iletişim adresini doğrudan randevu yeri olarak kullanmak istiyorsanız. Bu durumda, bu makalede açıklanan 2 yolu uygulayabilirsiniz.

Bazen, Outlook'unuzda bir kişi olan biriyle randevu almanız ve iletişim adresini doğrudan randevu yeri, iş adresi veya ev adresi olarak kullanmanız gerekebilir. Biçimost insanlar, most tanıdık yöntem, manuel olarak bir randevu oluşturmak ve iletişim adresini konum alanına kopyalamaktır. Ancak, aslında, Outlook VBA aracılığıyla, tek bir tıklamayla hızlı bir şekilde alabilirsiniz. Şimdi sırasıyla iki yolu tanıtacağız.

Yöntem 1: İletişim Adresini Manuel Olarak Yeni Bir Randevuya Kopyalayın

1. İlk etapta, Outlook uygulamanızı başlatın.
2. Ardından Kişiler bölmesine geçin.
3. Daha sonra kendi penceresinde açmak için kaynak kişiye çift tıklayın.
4. Daha sonra “Adres” bölümünü bulup adresi kopyalamalısınız.
5. Ardından “İletişim” sekmesi altındaki “Communicate” grubundan “Toplantı” butonuna tıklayabilirsiniz.
6. Daha sonra bir toplantı görünecektir. Artık “Konum” alanına tıklayabilir ve daha önce kopyalanan adresi yapıştırmak için “Ctrl + V” tuşlarına basabilirsiniz.
7. Son olarak, bir toplantıyı standart bir randevuya dönüştürmek için "Daveti İptal Et" düğmesine basmanız yeterlidir.

Yöntem 2: Hızlı Zamanda Tamamlamak için Outlook VBA'yı kullanın

1. En başta, “Alt + F11” tuş kısayoluna basın.
2. Ardından açılan VBA editör penceresinde kullanımda olmayan bir modülü açabilirsiniz.
3. Sonra aşağıdaki VBA kodlarını kopyalayıp yapıştırın.

Sub CreateAppointmentLocatedAtContactAddress()
    Dim objContact As Outlook.ContactItem
    Dim objAppointment As Outlook.AppointmentItem
    Dim nPrompt As Integer
 
    On Error Resume Next
    Set objContact = Application.ActiveExplorer.Selection.Item(1)
 
    If TypeOf objContact Is ContactItem Then
       Set objAppointment = Application.CreateItem(olAppointmentItem)
       objAppointment.Subject = "Appointment with " & objContact.FullName
 
       'Use the business address as the first choice
       If objContact.BusinessAddress <> "" Then
          With objAppointment
               .Location = objContact.BusinessAddress
               .Display
          End With
       'If no business address, then use the home address
       ElseIf objContact.HomeAddress <> "" Then
          With objAppointment
               .Location = objContact.HomeAddress
               .Display
          End With
       'If no address, then display a prompt
       Else
          nPrompt = MsgBox("You haven't filled in the contact's address!", vbExclamation, "Check Address")
       End If
    End If
End Sub

4. Bundan sonra, makroyu her zamanki gibi Hızlı Erişim Araç Çubuğuna ekleyin.
5. Sonunda, bir deneyebilirsin.

• Önce bir kişi seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayın.
• Hemen, aşağıdaki ekran görüntüsü gibi, konum olarak iletişim adresiyle yeni bir randevu görüntülenecektir:

Outlook Sorunlarını Etkili Bir Şekilde Çözün

Outlook sorunlarından verimli bir şekilde kurtulmak için sağlam bir dosya hazırlamanız önerilir. Outlook düzeltmesi araç gibi önceden DataNumen Outlook Repair. Aksi takdirde, yalnızca gelen kutusu onarım aracı Scanpst.exe'ye yanıt verirseniz, ciddi Outlook çökmeleri durumunda sonunda onu işe yaramaz bulacaksınız. Ayrıca, düzenli olarak veri yedekleme yapma konusunda iyi bir alışkanlık edinmiş olmanız çok daha iyidir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com