A e përdorni shpesh emrin e bashkëngjitjes si subjekt i emailit në Outlook? Nëse po, duhet të shpresoni se Outlook mund ta përfundojë atë automatikisht. Ky artikull do të prezantojë një metodë të dobishme për ta realizuar atë me Outlook VBA.
Shumë përdorues janë mësuar të shkruajnë manualisht emrin e bashkëngjitjes në rreshtin e subjektit të email-it. Në një skenar të tillë, nëse Outlook mund ta kryejë automatikisht këtë, do të jetë shumë më e përshtatshme. Gjithashtu, disa përdorues shpesh harrojnë të plotësojnë rreshtin e subjektit. Pra, kur shtypin butonin "Dërgo", ata do të marrin një mesazh paralajmërues "pa subjekt". Në një rast të tillë, nëse Outlook mund ta plotësojë automatikisht subjektin me emrin e bashkëngjitjes, ata do të jenë në gjendje të shmangin paralajmërimin bezdisës "pa subjekt". Me pak fjalë, besohet se shumë përdorues të Outlook-ut dëshirojnë një metodë të tillë që të lejojë Outlook-un të plotësojë automatikisht rreshtin e subjektit të email-it me emrin e bashkëngjitjes. Për fat të mirë, me ndihmën e Outlook VBA, ne mund ta arrijmë këtë me lehtësinë më të madhe. Ja kodet dhe hapat e hollësishëm VBA.
Plotësoni automatikisht linjën e subjektit të emailit me emrin e bashkëngjitjes
- Së pari, mund të filloni Outlook dhe të kaloni te skeda "Zhvillues".
- Pastaj nën këtë skedë, duhet të klikoni në butonin "Visual Basic", i cili do të nxjerrë redaktorin VBA.
- Në dritaren pasuese, së pari duhet të gjeni projektin "ThisOutlookSession" në listën e projekteve në anën e djathtë.
- Klikoni dy herë tjetër për të hapur këtë projekt. Dhe pastaj kopjoni kodet e mëposhtme në të.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Pas kësaj, duhet të vazhdoni të caktoni një certifikatë dixhitale për projektin aktual VBA si zakonisht.
- Së pari, përdorni programin e integruar "Certifikatat dixhitale për projektet VBA" për të gjeneruar një certifikatë dixhitale.
- Më pas, ju mund të nënshkruani makro aktuale.
- Më vonë dilni nga redaktori VBA dhe ndryshoni cilësimet e makrove në "Njoftimet për makro të nënshkruara dixhitale, të gjitha makrot e tjera të çaktivizuara".
- Më në fund mund të provoni.
- Krijoni një email të ri.
- Nëse nuk e keni plotësuar temën dhe keni ndërmend të bashkëngjitni një skedar, do të merrni një mesazh, si imazhi i mëposhtëm:
- Kur zgjidhni "Po", subjekti do të plotësohet menjëherë me emrin e bashkëngjitjes.
Përballuni me çështjet e shpeshta të Outlook
Me kusht që të keni përdorur Outlook për dekada, duhet të keni hasur shumë probleme të Outlook. Atëherë, çfarë veprimesh bëni zakonisht kur i takon? Sugjerohet zbulimi dhe zhdukja e tyre sa më shpejt të jetë e mundur. Kjo është për shkak se problemet e grumbulluara mund të dëmtojnë të dhënat tuaja të Outlook në çdo kohë. Prandaj, edhe nëse Outlook mund të funksionojë normalisht, është më mirë të aplikoni ose mjetin e riparimit të kutisë hyrëse ose atë të jashtëm Shërbimi i riparimit të gabimeve të Outlook PST, Si DataNumen Outlook Repair, për të skanuar skedarët tuaj PST për të zbuluar dhe zgjidhur gabimet.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i dëmtuar SQL Server bazës së të dhënave dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com