Paano Itakda ang Default na Font para sa Katawan ng Pakikipag-ugnay, Appointment at Gawain sa pamamagitan ng VBA

Ipamahagi ngayon:

Ang Outlook ay walang katutubong tampok upang itakda ang default font para sa katawan ng contact, appointment at task item. Kaya, kung nais mong tukuyin ang font, maaari kang gumamit ng pamamaraang ipinakilala sa artikulong ito.

Tulad ng email, ang appointment ng Outlook, gawain at contact ay mayroon ding larangan ng katawan, kung saan maaari naming punan ang mga detalye ng item. Gayunpaman, pinapayagan lamang ng Outlook ang mga gumagamit na itakda ang default na font na ginamit sa katawan ng email. Kung nais mong tukuyin ang font sa katawan ng contact, appointment o gawain, kailangan mong maghanap ng iba pang mga paraan, tulad ng mga add-in na third party o Outlook VBA. Dito namin kayo detalyadong magtuturo sa iyo kung paano gamitin ang VBA upang makuha ito. Basahin pa upang malaman ang detalyadong mga hakbang at kaukulang VBA code.

Itakda ang Default na Font para sa Katawang ng Pakikipag-ugnay sa Appointment at Gawain

Itakda ang Default na Font para sa Katawan ng Appointment, Gawain at Makipag-ugnay

  1. Sa umpisa pa lang, start iyong programa sa Outlook.
  2. Pagkatapos ay pindutin ang "Alt + F11" na mga pindutan ng key upang ilunsad ang editor ng Outlook VBA.
  3. Sa popup window, kailangan mong buksan ang proyekto na "ThisOutlookSession".
  4. Kasunod, kopyahin ang mga sumusunod na VBA code sa window ng proyekto na ito.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector

Public Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

Mga Code ng VBA- Itakda ang Default na Font para sa Katawan ng Pakikipag-ugnay, appointment at Gawain

  1. Pagkatapos nito, kailangan mong pirmahan ang code na ito.
  • Una, lumikha ng isang digital na sertipiko ng Mga Digital na Sertipiko para sa Mga Proyekto ng VBA.
  • Pagkatapos italaga ang sertipiko na ito sa bagong macro.
  1. Sa paglaon, maaari mong baguhin ang iyong mga setting ng macro sa Outlook upang payagan ang mga digital na naka-sign na macros.
  2. Sa wakas ikaw aytart iyong Outlook upang buhayin ang bagong proyekto ng VBA. Mula ngayon, kapag lumikha ka ng isang bagong contact, appointment o gawain, gagamitin ng katawan ang default font nito, tulad ng sumusunod na screenshot:Default na Font para sa Katawan ng Pakikipag-ugnay, Appointment at Gawain

Protektahan ang Iyong Data ng PST laban sa Korapsyon

Dahil sa ang katunayan na ang file ng Outlook PST ay madaling kapitan ng error at katiwalian, kailangan mong bigyang pansin ang mga proteksyon ng PST. Halimbawa, dapat kang mag-ingat sa mga email mula sa hindi kilalang mga mapagkukunan na maaaring nakakahamak na mga email na may mga virus. Kapag ang iyong PST file ay nahawahan, kailangan mong umulit sa isang kagalang-galang at napatunayan na maayos na tool, tulad ng DataNumen Outlook Repair, Kung saan maaari ayusin ang PST mag-file tulad ng isang simoy.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin SQL Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.