Kaip Outlook programoje sukurti UserForm su sąrašo lauku

Microsoft Outlook VBA leidžia į el. laišką įterpti formą, kuri gali rinkti duomenis iš gavėjo. Šiame gide parodyta, kaip įjungti kūrėjo įrankius, sukurti makrokomandą ir pridėti UserForm su ListBox kontroliu.

1. Įjunkite Kūrėjo skirtuką

Žingsnis 1: Paspauskite Failas → Parinktys → Pritaikyti juostą.

Žingsnis 2: Pažymėkite laukelį Kūrėjas pagrindinių skirtukų sekcijoje ir spustelėkite OK. Outlook grįš į pagrindinį langą.

2. Leiskite VBA makrokomandas

Žingsnis 3: Pasirinkite Failas → Parinktys → Pasitikėjimo centras → Pasitikėjimo centro nuostatos.

Žingsnis 4: Skiltyje Makrokomandų nuostatos pasirinkite Įgalinti visas makrokomandas ir patvirtinkite OK. Baigę darbą su formomis, rekomenduojama grįžti į Pranešimai apie visas makrokomandas dėl saugumo.

Žingsnis 5: Perkraukite Outlook, kad pakeitimai įsigaliotų.

3. Sukurkite makrokomandą ir UserForm

Žingsnis 6: Skirtuke Kūrėjas spustelėkite Makrokomandos, tada vėl Makrokomandos.

Žingsnis 7: Įveskite makrokomandos pavadinimą ir spustelėkite Sukurti. Atversi VBA redaktorius.

Žingsnis 8: Paspauskite Įterpti → UserForm, kad atsidarytų formų įrankių juosta.

Žingsnis 9: Įrankių juostoje pasirinkite ListBox, nuspauskite ir tempkite kontrolę ant UserForm.

Žingsnis 10: Panašiai pridėkite CommandButton – tai bus mygtukas, kuriuo paleisite makrokomandą.

Žingsnis 11: Dešiniuoju pelės klavišu spustelėkite CommandButton ir pasirinkite Rodyti kodą. Atsivers VBA kodų langas.

Žingsnis 12: Įrašykite elementus į ListBox naudojant AddItem metodą. Pavyzdžiui, norėdami parodyti tris pagrindines spalvas, kodas atrodys taip:

Private Sub CommandButton1_Click()
    ListBox1.AddItem "Raudona"
    ListBox1.AddItem "Žalia"
    ListBox1.AddItem "Mėlyna"
End Sub

ListBox1 – tai automatiškai sukurtas kontrolės pavadinimas. Įvykdžius šį kodą, mygtuką paspaudus, sąraše atsiras nurodytos spalvos.

Paspauskite Įrašyti, spauskite F5 ir patikrinkite, ar CommandButton veikia taip, kaip tikėtasi.

Įspėjimas

• Ši informacija taikoma Outlook 2013 versijai; kitose versijose veiksmai gali šiek tiek skirtis.