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
