Nefunkční Visual Basic pod Outlookem
Dobrý den.
Prosím o radu. Zhruba polovinu e-mailů, které posílám, musím šifrovat. Abych na to nezapomínal, používal jsem tento kód ve VB, který vždy při odeslání e-mailu vyhodil okno s připomenutím kontroly.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Odeslat mail? Je všechno OK?", vbOKCancel) <> vbOK Then
Cancel = True
End If
End Sub
Byl mi vyměněn počítač, opět s Windows 7 a Outlook 2010, a po překopírování kódu do VB mi to nefunguje. Rozdíl je v tom, že předchozí počítač měl 64 bitové Windows a současný má 32 bitové. Jinak nastavení a aplikace jsou stejné. Hláška se teď při odeslání nezobrazí. Zkusil jsem povolit makra a bez úspěchu.
Přitom si nejsem vědom, že bych u minulého počítače něco nějak zvlášť nastavoval.
Nevíte někdo proč to teď nefunguje?
Byl mi vrácen počítač se 64bit Windows a skript 2 dny fungoval a pak opět přestalo okno vyskakovat.
Jediné, čeho jsem si vědom je, že jsem zadal "Už se neptej" pro odeslání mailu přes CTRL+Enter. A pak to (asi) přestalo fungovat. Jestli to ale spolu souvisí, tak tím si jistý nejsem.
Jak to odkliknutí "Už se neptej" vzít zpět jsem nenašel. Po smazání profilu včetně smazání příslušných řádků v HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook, smazání ost souboru v c:\Users\uživatel\AppData\Local\Microsoft\Outlook\ a vytvořením nového profilu, se otázka "Už se neptej" znovu neobjeví.
Odpovím si částečně sám.
Pro obnovení funkčnosti VBA jsem smazal c:\Users\uživatel\AppData\Roaming\Microsoft\Outlook\VbaProject.OTM, znovu zadal uvedený kód a tím se VbaProject.OTM znovu vytvořil a funguje to.
Proč to ale fungovat přestalo, stále netuším.