Živjo Amanda!
To je Ryan4 iz ExtendOffice. Hvala, ker ste poslali svoj e-poštni naslov za pomoč pri reševanju moje težave. Odkar sem odkril vašo fantastično skupnost, nameravam biti aktiven član, zato upam, da bom sčasoma rešil težave z nalaganjem datotek!
Zaenkrat si oglejte priloženo datoteko tukaj. Posodobil sem kodo tako, da se glasi »Exit Sub« namesto »End if«, vendar še vedno prejemam napako brez možnosti odpravljanja napak. Lahko svetujete? Morda je to moja struktura ali zamik.
Še enkrat hvala za vašo pomoč!
Ryan
Zdravo Ryan,
Prejeto e-poštno sporočilo. Ker imajo morda še drugi uporabniki enako težavo, bom odgovoril tukaj.
Poskusite s spodnjo metodo:
1. Odprite
Reference.
2. Preveri
Knjižnica predmetov Microsoft Outlook 16.0.
Opomba: Namesto 16.0 boste morda imeli 15.0, 14.0 itd.
3. Zamenjajte spodnjo kodo
Dim xOutApp As Object
Dim xOutMail As Object
do
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Poskusite zgornje 3 korake. Ker vaša vba na našem računalniku dobro deluje, je težko ponoviti težavo. Upajmo, da vam bo ta metoda pomagala!
Amanda