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

Jak zabránit uživatelům v odesílání e-mailů bez zadaného předmětu v aplikaci Outlook?

Když odesíláte e-mail prostřednictvím aplikace Outlook, v některých případech můžete odesílat e-maily bez zadání předmětu, což možná není dobrý zvyk. Existuje nějaký způsob, jak přinutit uživatele k odesílání e-mailů s předmětem v Outlooku?

Zabraňte odesílání e-mailů bez zadaného předmětu pomocí VBA


Zabraňte odesílání e-mailů bez zadaného předmětu pomocí VBA

Tento problém nelze vyřešit kromě kódu VBA.

1. Povolte Outlook, stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. Dvojklik ThisOutlookSession v Project1 podokno, poté zkopírujte a vložte pod kód do prázdného skriptu.

VBA: Zabraňte odesílání e-mailů bez předmětu

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
    .Global = True: .Pattern = "^\x20*$"
    If .test(Item.Subject) = True Then
        MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
        Cancel = True
    End If
End With
End Sub

doc zabránit odesílání bez předmětu 1

3. Uložte kód, pokud nyní pošlete e-mail bez předmětu, zobrazí se dialogové okno, které vám připomene zadání předmětu.

Poznámka: Tento kód VBA funguje pro všechny účty v Outlooku


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL