2 Kaedah Membuat Janji Temu yang Terletak di Alamat Kenalan di Outlook

Sekiranya anda ingin membuat janji temu dari kenalan tertentu dan menggunakan alamat hubungan secara langsung sebagai lokasi janji temu. Dalam kes ini, anda boleh menggunakan 2 cara yang diperkenalkan dalam artikel ini.

Kadangkala, anda mungkin perlu menjadualkan temu janji dengan seseorang yang merupakan kenalan dalam Outlook anda, dan menggunakan alamat kenalan tersebut sebagai lokasi temu janji secara langsung, alamat perniagaan atau alamat rumah. Bagi kebanyakan orang, kaedah yang paling biasa adalah dengan membuat temu janji secara manual dan menyalin alamat kenalan ke medan lokasi. Walau bagaimanapun, sebenarnya, melalui Outlook VBA, anda boleh mendapatkannya dengan cepat hanya dengan satu klik. Sekarang kami akan memperkenalkan dua cara tersebut masing-masing.

Kaedah 1: Salin Alamat Kenalan ke Temujanji Baru Secara Manual

1. Pertama, lancarkan aplikasi Outlook anda.
2. Kemudian beralih ke panel Kenalan.
3. Klik dua kali seterusnya pada kenalan sumber untuk membukanya di tetingkapnya sendiri.
4. Selepas itu, anda harus mencari bahagian "Alamat" dan menyalin alamatnya.
5. Selepas itu, anda boleh mengklik butang "Mesyuarat" di kumpulan "Berkomunikasi" di bawah tab "Hubungi".
6. Kemudian, perjumpaan akan muncul. Sekarang anda dapat mengklik ke bidang "Lokasi" dan tekan "Ctrl + V" untuk menampal alamat yang disalin sebelumnya.
7. Akhirnya, untuk mengubah mesyuarat menjadi janji temu biasa, anda hanya boleh menekan butang "Batalkan Jemputan".

Kaedah 2: Gunakan Outlook VBA untuk Mencapainya dalam Masa Pantas

1. Pada awalnya, tekan pintasan kekunci "Alt + F11".
2. Kemudian di tetingkap editor VBA yang dibuka, anda boleh membuka modul yang tidak digunakan.
3. Selanjutnya salin dan tampal kod VBA berikut ke dalamnya.

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. Selepas itu, tambahkan makro ke Bar Alat Akses Pantas seperti biasa.
5. Akhirnya, anda boleh mencuba.

• Pertama, pilih kenalan.
• Kemudian klik pada butang makro di Bar Alat Akses Pantas.
• Sekaligus, janji temu baru akan muncul dengan alamat hubungan sebagai lokasi, seperti tangkapan skrin berikut:

Menyelesaikan Masalah Outlook dengan berkesan

Untuk menyingkirkan masalah Outlook dengan cekap, disarankan untuk menyiapkan yang mantap Pembaikan Outlook alat di muka, seperti DataNumen Outlook Repair. Jika tidak, jika anda hanya membalas alat pembaikan peti masuk, Scanpst.exe, anda akhirnya akan merasa tidak berguna sekiranya berlaku kerosakan Outlook yang teruk. Lebih-lebih lagi, adalah lebih baik jika anda mempunyai kebiasaan baik untuk membuat sandaran data biasa.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com