Ahoj Amando!
Toto je Ryan4 od ExtendOffice. Děkuji za zaslání vaší e-mailové adresy na pomoc při řešení mého problému. Od objevení vaší fantastické komunity hodlám být aktivním členem, takže doufám, že se mi problémy s nahráváním souborů nakonec vyřeší!
Prozatím se podívejte na přiložený soubor zde. Aktualizoval jsem kód tak, aby četl „Exit Sub“ místo „End if“, ale stále se mi zobrazuje chyba bez možnosti ladění. můžete poradit? Možná je to moje struktura nebo odsazení.
Ještě jednou děkujeme za vaši pomoc!
Ryan
Hi Ryan,
E-mailová zpráva přijata. Protože mohou existovat další uživatelé, kteří mají stejný problém, odpovím zde.
Zkuste prosím níže uvedený postup:
1. Otevřít
Odkaz.
2. Kontrola
Objektová knihovna Microsoft Outlook 16.0.
Poznámka: Místo 16.0 můžete mít 15.0, 14.0 atd.
3. Nahraďte níže uvedený kód
Dim xOutApp As Object
Dim xOutMail As Object
na
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Zkuste prosím výše uvedené 3 kroky. Protože vaše vba na našem počítači funguje dobře, je pro nás obtížné problém zopakovat. Snad vám tato metoda pomůže!
Amanda