Note: The other languages of the website are Google-translated. Back to English

Kako samodejno izpolniti zadevo e-pošte z imenom priloge v Outlooku?

Za tiste, ki so navajeni uporabljati ime priloge kot zadevo e-poštnega sporočila v Outlooku, bo vsakokratno ročno vnašanje imena priloge v zadevo zamudno. Kot je prikazano v spodnjem gifu, vam bo metoda VBA v tej vadnici pomagala, če želite vrstico z zadevo e-pošte samodejno zapolniti z imenom priloge, ko vstavite prilogo.


Samodejno izpolni zadevo e-pošte z imenom priloge s kodo VBA

Zaženite naslednjo kodo VBA, da samodejno izpolnite zadevo e-pošte z imenom vstavljene priloge v Outlooku.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Projekt1 (VbProject.OTM) > Predmeti Microsoft Outlook > Ta OutlookSession da odprete ThisOutlookSession (koda) urednik.

3. Nato kopirajte naslednjo kodo VBA v ThisOutlookSession (koda) urednik.

Koda VBA: samodejno izpolni zadevo e-pošte z imenom priloge

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Zdaj morate kodo shraniti in znova zagnati Outlook.

5. Ko od zdaj naprej vstavite prilogo v e-poštno sporočilo, ki še nima izpolnjene zadeve, Kutools za Outlook se prikaže pogovorno okno z vprašanjem, ali želite uporabiti ime priloge kot zadevo, kliknite Da gumb.

Nato bo vrstica z zadevo samodejno zapolnjena z imenom vstavljene priloge.

Opombe:

1) Če ste že vnesli zadevo, se pogovorno okno ne bo pojavilo, če vstavite prilogo.
2) Če odstranite obstoječo zadevo iz trenutnega e-poštnega sporočila, vendar je kazalec še vedno prikazan v vrstici z zadevo, vstavljanje priloge tudi ne bo odprlo pogovornega okna. Ko odstranite zadevo, morate klikniti proč od vrstice z zadevo, da osvežite sporočilo, da bo koda delovala.
3) Če vstavite več prilog hkrati, lahko kot zadevo e-pošte uporabite samo ime prve priloge.

Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Добрый день. Podajte, prosim, ali lahko naredite, da je bila tema oblikovana iz 2 in več datotek z razdelitvijo I? Ali lahko v tej kodi pišete ali sploh obstaja druga? Заранее спасибо
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Aleksandr,

Ali mislite na dodajanje več prilog, medtem ko zadevi hkrati dodate imena teh prilog in jih nato povežete z IN?
Ta komentar je moderator na spletnem mestu minimiziral
da. Na primer prestavil dve datoteki in jih je napisal čez I. To sta dve datoteki, več ne nado.
Ta komentar je moderator na spletnem mestu minimiziral
Da, prav. ТЕ при добавлении или перетягивании двух datotek tema pisma avtomatom pisalа через И
Ta komentar je moderator na spletnem mestu minimiziral
Добрый день. DA pri dodani 2 datoteka v temo je pisalo čez I.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Aleksandr,

Naslednja koda VBA vam lahko pomaga rešiti težavo. Prosim poskusite.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
  GFileName = ""
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then
    GFileName = ""
    Exit Sub
  End If
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Да получилось. Ogromno hvala za pomoč. In še eno vprašanje, ki je lahko na koncu vsega tega, je pri pritisku gumba "Odpraviti" izdal neko sporočilo, ki je v obliki "Ali res želite poslati to sporočilo"?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL