2 Metodai, kaip sukurti susitikimą, esantį „Outlook“ kontakto adresu

Jei norite sukurti susitikimą iš konkretaus kontakto ir naudoti kontaktinį adresą tiesiogiai kaip susitikimo vietą. Tokiu atveju galite taikyti 2 šiame straipsnyje pristatytus būdus.

Kartais gali tekti suplanuoti susitikimą su kuo nors, kuris yra jūsų Outlook kontaktas, ir naudoti kontaktinį adresą kaip susitikimo vietą, įmonės adresą arba namų adresą. Dėl most žmonių, most pažįstamas būdas yra rankiniu būdu sudaryti susitikimą ir nukopijuoti kontaktinį adresą į vietos lauką. Tačiau iš tikrųjų naudodami „Outlook VBA“ galite greitai jį gauti vienu spustelėjimu. Dabar mes atitinkamai pristatysime du būdus.

1 būdas: nukopijuokite kontaktinį adresą į naują susitikimą rankiniu būdu

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada perjunkite į kontaktų sritį.
3. Tada dukart spustelėkite šaltinio kontaktą, kad atidarytumėte jį atskirame lange.
4. Tada turėtumėte rasti skyrių „Adresas“ ir nukopijuoti adresą.
5. Po to galite spustelėti mygtuką „Susitikimas“ skirtuko „Kontaktai“ grupėje „Bendrauti“.
6. Vėliau pasirodys susitikimas. Dabar galite spustelėti lauką „Vieta“ ir paspausti „Ctrl + V“, kad įklijuotumėte anksčiau nukopijuotą adresą.
7. Galiausiai, norėdami paversti susitikimą įprastu susitikimu, galite tiesiog paspausti mygtuką „Atšaukti kvietimą“.

2 būdas: naudokite Outlook VBA, kad tai atliktumėte greitai

1. Pačioje pradžioje paspauskite spartųjį klavišą „Alt + F11“.
2. Tada atsidariusiame VBA redaktoriaus lange galite atidaryti nenaudojamą modulį.
3. Tada nukopijuokite ir įklijuokite į jį šiuos VBA kodus.

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. Po to, kaip įprasta, pridėkite makrokomandą prie greitosios prieigos įrankių juostos.
5. Galų gale galite pabandyti.

• Pirmiausia pasirinkite kontaktą.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto bus rodomas naujas susitikimas su kontaktiniu adresu kaip vieta, pvz., šioje ekrano kopijoje:

Efektyviai išspręskite „Outlook“ problemas

Norint efektyviai atsikratyti „Outlook“ problemų, siūloma parengti tvirtą Outlook taisymas priemonė iš anksto, pvz DataNumen Outlook Repair. Priešingu atveju, jei tiesiog atsakysite naudodami gautųjų taisymo įrankį Scanpst.exe, jis pagaliau taps nenaudingas rimtų „Outlook“ gedimų atveju. Be to, daug geriau, jei išsiugdėte gerą įprotį reguliariai daryti atsargines duomenų kopijas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com