Outlook - Kontrola přílohy

Také se vám stává, že napíšete e-mail. V obsahu e-mail napíšete, že zasíláte potřebné dokumenty v příloze a přílohu zapomenete vložit. Níže popisuji řešení, které vám napomůže těmto problémům předcházet.

Outlook 2013

je již tato volba v nastavení a stačí ji jen povolit a v případě zapomenutí vložení přílohy jste upozorněni.

Postup: Soubor -> Možnosti -> Záložka Pošta -> Sekce Odesílání zpráv -> Volba Upozorňovat mě při odesílání zprávy, že v ní možná chybí příloha (viz obrázek)

Nastavení Outlook 2013

Outlook 2003, 2007, 2010

bohužel tato volba není, ale při vložení níže uvedeného VBA kódu do Outlook budete mít úplně stejnou funkci.

Postup: zmáčknout kombinaci kláves ALT + F11 (Panel Vývojář -> ikona Editor). Spustí se editor VBA. Otevřít sekci Project1 -> Microsoft Outlook Objects -> ThisOutlookSession. A do editoru VBA vložit níže uvedený kód. Při uzavření Outlook bude vyzvání k uložení VBA, potvrďte ANO.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 Dim i As Integer
 i = 0
 Dim slova(20) As String
 slova(0) = "příloha" 
 slova(1) = "přílohy" 
 slova(2) = "příloze"
 slova(3) = "přílohu"
 slova(4) = "příloho"
 slova(5) = "přílohou"
 slova(6) = "příloh"
 slova(7) = "přílohám"
 slova(8) = "přílohách"
 slova(9) = "přílohami"
 slova(10) = "priloha" 
 slova(11) = "prilohy" 
 slova(12) = "priloze"
 slova(13) = "prilohu"
 slova(14) = "priloho"
 slova(15) = "prilohou"
 slova(16) = "priloh"
 slova(17) = "priloham"
 slova(18) = "prilohach"
 slova(19) = "prilohami"
 
 Do While i < 20
  If InStr(1, Item.Body, slova(i), vbTextCompare) > 0 Then
   If Item.Attachments.Count = 0 Then
    answer = MsgBox("Ve zprávě jste napsali, že zasíláte přílohu, ale žádný soubor není příložen."& vbCrLf  &"Chcete zprávu přesto odeslat ?", vbYesNo)
    If answer = vbNo Then Cancel = True
    Exit Do
   End If
  End If
  i = i + 1
 Loop
End Sub

2 komentáře:

  1. Dobrý deň,

    dá sa nejak spraviť aby mi podľa prílohy vloženého do nového emailu vyplnilo odosielatela, príjemcu a predmet správy? každý deň posielam 5 emailov s prílohou, a podľa prílohy určiť komu to má byť?
    Ďakujem

    OdpovědětSmazat
    Odpovědi
    1. Outlook podporuje VBA takže je možné udělat v podstatě cokoliv. Musel by se napsat VBA script, který při bude kontrolovat zda je vložena příloha a pokud ano tak vloží odesílatele a příjemce. Druhá možnost je využit šablony v Outlook -> https://support.office.com/cs-cz/article/vytvo%C5%99en%C3%AD-%C5%A1ablony-e-mailov%C3%BDch-zpr%C3%A1v-43ec7142-4dd0-4351-8727-bd0977b6b2d1

      Smazat