Kako samodejno izpolniti vrstico zadeve e -pošte z imenom priloge v Outlooku

Ali pogosto uporabljate ime priloge kot naslov e -pošte v Outlooku? Če je tako, upajte, da ga lahko Outlook samodejno dokonča. Ta članek bo predstavil priročen način za njegovo uresničitev z Outlookom VBA.

Mnogi uporabniki so navajeni ročno vnašati ime priloge v zadevo e-poštnega sporočila. V takem primeru bo veliko bolj priročno, če bo Outlook to lahko samodejno izpolnil. Poleg tega nekateri uporabniki pogosto pozabijo izpolniti zadevo. Ko bodo torej pritisnili gumb »Pošlji«, bodo prejeli opozorilo »brez zadeve«. V takem primeru, če bo Outlook lahko samodejno izpolnil zadevo z imenom priloge, se bodo lahko izognili nadležnemu opozorilu »brez zadeve«. Skratka, verjame se, da si veliko uporabnikov Outlooka želi takšne metode, ki bi Outlooku omogočila samodejno izpolnjevanje vrstice z zadevo e-poštnega sporočila z imenom priloge. Na srečo lahko s pomočjo Outlook VBA to dosežemo z največjo lahkoto. Tukaj so podrobne kode in koraki VBA.

Samodejno izpolni vrstico zadeve e -pošte z imenom priloge

1. Najprej lahko zaženete Outlook in preklopite na zavihek »Razvijalec«.
2. Nato na tem zavihku kliknite gumb »Visual Basic«, ki bo odprl urejevalnik VBA.
3. V naslednjem oknu bi morali najprej poiskati projekt »ThisOutlookSession« na seznamu projektov na desni strani.
4. Z naslednjim dvojnim klikom odprite ta projekt. Nato vanj kopirajte naslednje kode.

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. Po tem morate še naprej dodeljevati digitalno potrdilo trenutnemu projektu VBA kot običajno.

• Najprej uporabite vgrajen pripomoček »Digitalna potrdila za projekte VBA« za ustvarjanje digitalnega potrdila.
• Nato lahko podpišete trenutni makro.

6. Pozneje zapustite urejevalnik VBA in spremenite nastavitve makra na »Obvestila za digitalno podpisane makre, vsi drugi makri so onemogočeni«.
7. Končno lahko poskusite.

• Ustvarite novo e -poštno sporočilo.
• Če zadeve niste izpolnili in nameravate priložiti datoteko, boste prejeli sporočilo, na primer naslednjo sliko:
• Ko izberete »Da«, bo zadeva takoj napolnjena z imenom priloge.

Obvladovanje pogostih težav z Outlookom

Če ste Outlook uporabljali že desetletja, ste se morali srečati s številnimi Outlookovimi težavami. Kakšna dejanja potem običajno izvedete, ko jih spoznate? Priporočljivo je, da jih čim prej ugotovimo in odpravimo. Ker kopičenje težav lahko kadar koli poškoduje vaše Outlookove podatke. Torej, tudi če Outlook lahko deluje normalno, raje uporabite orodje za popravilo mape »Prejeto« ali zunanje Pripomoček za odpravljanje napak Outlook PSTkot DataNumen Outlook Repair, za skeniranje datotek PST za odkrivanje in odpravljanje napak.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo poškodovano SQL Server Baza podatkov in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com