Kako automatski popuniti naslov e-pošte imenom priloga u Outlooku

Da li često koristite ime priloga kao temu e-pošte u Outlooku? Ako je tako, morate se nadati da će Outlook to automatski dovršiti. Ovaj članak će predstaviti zgodnu metodu za realizaciju pomoću Outlook VBA.

Mnogi korisnici su navikli da ručno upisuju ime priloga u predmetu e-pošte. U takvom scenariju, ako Outlook to može automatski postići, to će biti daleko praktičnije. Takođe, neki korisnici često zaborave da popune temu. Dakle, kada pritisnete dugme "Pošalji", dobiće poruku upozorenja "bez predmeta". U tom slučaju, ako Outlook može automatski popuniti temu imenom priloga, moći će izbjeći dosadno upozorenje „bez predmeta“. Ukratko, vjeruje se da mnogi korisnici Outlooka žude za takvom metodom da dopusti Outlooku da automatski popuni red predmeta pošte imenom priloga. Srećom, uz pomoć Outlook VBA to možemo postići sa utmost lakoća. Evo detaljnih VBA kodova i koraka.

Automatsko popunjavanje predmeta e-pošte imenom priloga

1. Na prvom mjestu, možete start Outlook i prebacite se na karticu „Programer“.
2. Zatim, ispod ove kartice, treba da kliknete na dugme „Visual Basic“, koje će otvoriti VBA editor.
3. U sljedećem prozoru, prvo biste trebali locirati projekt “ThisOutlookSession” na listi projekata na desnoj strani.
4. Zatim dvaput kliknite da otvorite ovaj projekat. I zatim kopirajte sljedeće kodove u njega.

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, morate nastaviti sa dodjeljivanjem digitalnog certifikata trenutnom VBA projektu kao i obično.

• Prvo, koristite ugrađeni uslužni program “Digitalni certifikati za VBA projekte” za generiranje digitalnog certifikata.
• Nakon toga, možete potpisati trenutni makro.

6. Kasnije izađite iz VBA editora i promijenite postavke makroa u “Obaveštenja za digitalno potpisane makroe, svi ostali makroi onemogućeni”.
7. Konačno možete probati.

• Kreirajte novu e-poštu.
• Ako niste popunili temu i namjeravate priložiti datoteku, dobit ćete poruku, poput sljedeće slike:
• Kada odaberete “Da”, predmet će se odjednom popuniti imenom priloga.

Nosite se s čestim problemima s Outlookom

Pod uslovom da ste Outlook koristili decenijama, sigurno ste naišli na mnogo problema sa Outlookom. Zatim, koje radnje obično preduzimate kada ih upoznate? Predlaže se da se otkriju i iskorijene što je prije moguće. To je zato što nagomilavanje problema može oštetiti vaše Outlook podatke u bilo kojem trenutku. Stoga, čak i ako Outlook može raditi normalno, bolje je primijeniti ili alat za popravku prijemnog sandučeta ili vanjski Outlook PST uslužni program za popravku grešaka, kao DataNumen Outlook Repair, za skeniranje vaših PST datoteka kako biste otkrili i riješili greške.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećeno SQL Server baza podataka i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com