Kako automatski ispuniti redak predmeta e-pošte s nazivom privitka u programu Outlook

Koristite li često naziv privitka kao predmet e-pošte u programu Outlook? Ako je tako, morate se nadati da ga Outlook može automatski dovršiti. Ovaj će članak predstaviti praktičnu metodu za njegovu realizaciju s Outlook VBA.

Mnogi korisnici navikli su ručno upisivati ​​naziv privitka u naslov e-pošte. U takvom scenariju, ako Outlook to može automatski ispuniti, bit će puno praktičnije. Također, neki korisnici često zaborave ispuniti naslov. Dakle, kada pritisnu gumb "Pošalji", primit će poruku upozorenja "nema naslova". U takvom slučaju, ako Outlook može automatski ispuniti naslov nazivom privitka, moći će izbjeći dosadno upozorenje "nema naslova". Ukratko, vjeruje se da mnogi korisnici Outlooka žude za takvom metodom koja bi Outlooku omogućila da automatski ispuni redak naslova e-pošte nazivom privitka. Srećom, uz pomoć Outlook VBA-e, to možemo postići s najvećom lakoćom. Evo detaljnih VBA kodova i koraka.

Automatsko popunjavanje retka predmeta e-pošte s nazivom privitka

1. Prvo, možete pokrenuti Outlook i prebaciti se na karticu "Programer".
2. Zatim pod ovom karticom trebate kliknuti na gumb "Visual Basic", koji će prikazati VBA uređivač.
3. U sljedećem prozoru prvo biste trebali locirati projekt "ThisOutlookSession" na popisu projekata s desne strane.
4. Zatim dvaput kliknite da biste otvorili ovaj projekt. Zatim u njega kopirajte sljedeće kodove.

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

5. Nakon toga trebate nastaviti s dodjeljivanjem digitalnog certifikata trenutnom VBA projektu kao i obično.

• Prvo, upotrijebite ugrađeni pomoćni program "Digitalni certifikati za VBA projekte" za generiranje digitalnog certifikata.
• Nakon toga možete potpisati trenutnu makronaredbu.

6. Kasnije izađite iz uređivača VBA i promijenite postavke makronaredbe na "Obavijesti za digitalno potpisane makronaredbe, sve ostale makronaredbe onemogućene".
7. Konačno možete pokušati.

• Stvorite novu e-poštu.
• Ako niste ispunili predmet i namjeravate priložiti datoteku, dobit ćete poruku, poput sljedeće slike:
• Kada odaberete "Da", predmet će biti ispunjen nazivom privitka odjednom.

Nosite se s čestim problemima s Outlookom

Pod uvjetom da ste desetljećima koristili Outlook, sigurno ste naišli na mnogo problema s Outlookom. Zatim, koje radnje obično poduzimate kada ih sretnete? Predlaže se da ih otkrijete i iskorijenite što je prije moguće. To je zato što gomilanje problema može oštetiti vaše Outlook podatke u bilo kojem trenutku. Stoga, čak i ako Outlook može normalno raditi, bilo bi bolje da primijenite ili alat za popravak pristigle pošte ili vanjski Outlook PST uslužni program za popravak pogreške, Kao i DataNumen Outlook Repair, za skeniranje vaših PST datoteka radi otkrivanja i rješavanja pogrešaka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak oštećen SQL Server baza podataka i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com