2 Metode untuk Membuat Janji Temu di Alamat Kontak di Outlook

Jika Anda ingin membuat janji temu dari kontak tertentu dan menggunakan alamat kontak secara langsung sebagai lokasi janji temu. Dalam hal ini, Anda dapat menerapkan 2 cara yang diperkenalkan dalam artikel ini.

Terkadang, Anda mungkin perlu menjadwalkan janji temu dengan seseorang yang merupakan kontak di Outlook Anda, dan menggunakan alamat kontak tersebut sebagai lokasi janji temu secara langsung, baik alamat bisnis maupun alamat rumah. Bagi kebanyakan orang, metode yang paling umum adalah membuat janji temu secara manual dan menyalin alamat kontak ke kolom lokasi. Namun, sebenarnya, dengan menggunakan Outlook VBA, Anda dapat dengan cepat mendapatkannya hanya dengan satu klik. Sekarang kita akan memperkenalkan kedua cara tersebut secara terpisah.

Metode 1: Salin Alamat Kontak ke Janji Baru Secara Manual

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian beralih ke panel Kontak.
3. Selanjutnya klik dua kali pada kontak sumber untuk membukanya di jendelanya sendiri.
4. Selanjutnya, Anda harus menemukan bagian "Alamat" dan salin alamatnya.
5. Setelah itu, Anda dapat mengklik tombol "Rapat" di grup "Berkomunikasi" di bawah tab "Kontak".
6. Nanti akan muncul rapat. Sekarang Anda dapat mengklik bidang "Lokasi" dan tekan "Ctrl + V" untuk menempelkan alamat yang disalin sebelumnya.
7. Terakhir, untuk mengubah rapat menjadi janji standar, Anda cukup menekan tombol “Batalkan Undangan”.

Metode 2: Gunakan Outlook VBA untuk Menyelesaikannya dalam Waktu Cepat

1. Pada awalnya, tekan pintasan tombol "Alt + F11".
2. Kemudian di jendela editor VBA yang terbuka, Anda dapat membuka modul yang tidak digunakan.
3. Selanjutnya salin dan tempel kode 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. Setelah itu, tambahkan makro ke Bilah Alat Akses Cepat seperti biasa.
5. Akhirnya, Anda bisa mencobanya.

• Pertama, pilih kontak.
• Kemudian klik tombol makro di Bilah Alat Akses Cepat.
• Sekaligus akan muncul janji baru dengan alamat kontak sebagai lokasinya, seperti screenshot berikut:

Mengatasi Masalah Outlook Secara Efektif

Untuk menghilangkan masalah Outlook secara efisien, disarankan untuk menyiapkan yang kuat Perbaikan Outlook alat sebelumnya, seperti DataNumen Outlook Repair. Jika tidak, jika Anda hanya membalas pada alat perbaikan kotak masuk, Scanpst.exe, Anda akhirnya akan merasa tidak berguna jika terjadi crash Outlook yang parah. Selain itu, jauh lebih baik jika Anda telah mengembangkan kebiasaan yang baik untuk membuat cadangan data secara teratur.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com