Привіт Аманда!
Це Ryan4 з ExtendOffice. Дякую, що надіслали свою адресу електронної пошти, щоб допомогти вирішити мою проблему. Я маю намір бути активним учасником після того, як дізнався про вашу фантастичну спільноту, тому я сподіваюся, що проблеми із завантаженням файлів зрештою будуть вирішені!
Наразі, будь ласка, перегляньте вкладений файл тут. Я оновив код, щоб читати «Exit Sub» замість «End if», однак я все ще отримую помилку без параметра налагодження. Можете порадити? Можливо, це моя структура або відступ.
Ще раз спасибі за вашу допомогу!
Райан
Привіт Райан,
Електронне повідомлення отримано. Оскільки можуть бути інші користувачі, які мають таку ж проблему, я відповім тут.
Спробуйте наведений нижче метод.
1. Відкрити
Посилання.
2. перевірити
Бібліотека об’єктів Microsoft Outlook 16.0.
Примітка. Замість 16.0 у вас може бути 15.0, 14.0 тощо.
3. Замініть наведений нижче код
Dim xOutApp As Object
Dim xOutMail As Object
до
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Спробуйте виконати 3 вищезазначені кроки. Оскільки ваш vba добре працює на нашому комп’ютері, нам важко відтворити проблему. Сподіваємось, цей метод вам допоможе!
Аманда