Обработка ошибок «Не удается найти проект или библиотеку»

Question

Я хочу, чтобы обработчик ошибок всякий раз, когда я получаю сообщение об ошибке «Не удается найти проект или библиотеку», вы деактивируете ссылку на «C: \ Program Files \ Microsoft Offfice \ Office15 \ MSOUTL.OLB».

Я не уверен, как это сделать, поэтому еще нет кода.

EDIT: я хочу, чтобы код работал на любом компьютере (с и без офиса Microsoft), так что без меня вручную снятие/установка флажка в Инструменты> Ссылки.

Answer 1

ОК, тогда вам нужно забыть о Outlook. (С или БЕЗ Microsoft Office означает, что ваш код не может зависеть от Outlook.) Я просто хочу дать вам еще одну ссылку, посмотрите на него: rondebruin.nl/win/s1/cdo.htm

CDO занимает несколько попыток, чтобы выяснить, и вам нужно знать специфику почтового ящика, который вы используете для отправки письма. (Как и в настройках SMTP и т.д.)

О коде:

Set deMail = deApp.createitem(deMailItem) 

deMailItem не имеет смысла, она должна быть постоянной, olMailItem. Но если вы используете позднюю привязку, вы не можете использовать константы из пространства имен Outlook. Вместо этого используйте 0, а olMailItem = 0.

Set deMail = deApp.createitem(0) 

Кроме того, видимое = истинное не существует ни для Outlook, ни для элементов почты. Если вы хотите отобразить почтовый адрес, используйте:

deMail.Display 

О, и еще одно. Вы должны проверить, работает ли Outlook, и если он уже есть, его не следует перезапускать, просто используйте существующую программу. См. here.

Надеюсь, это поможет!