Outlook VBA insert URL не работает

Я могу вставить вручную изображение в новое сообщение Outlook 2010 с помощью «Вставить изображение» и функцию «Вставить ссылку в файл». В поле «Файл» введите ссылку: http://www.example.com/image.php?s1=song1.net & c1 = composerOutlook VBA insert URL не работает

Ссылка возвращает изображение, и я могу видеть его в теле письма.

Мне нужно ввести этот URL-адрес с помощью VBA. Я написал код ниже, и он не работает. Когда я попытался запустить его, появилось следующее сообщение: Ошибка времени выполнения «4198»: сбой команды. Он выделяет линию, которая включает ссылку.

Мой код:

Sub insertHTMLFile() 
Dim Insp As Inspector 
Set Insp = ActiveInspector 
If Insp.IsWordMail Then 
Dim wordDoc As Word.Document 
Set wordDoc = Insp.WordEditor 
wordDoc.Application.Selection.InsertFile "http://www.example.com/image.php?s1=song1.net & c1=composer ", , False, False, False 
End If 
End Sub

Я был бы признателен, если вы можете показать мне, как я могу использовать VBA, чтобы вставить изображение, как я делал это вручную. К сожалению, в Outlook нет макрорекордера, который мог бы показать мне инструкции, как это сделать.

источник

2015-08-16 Menachem

Попробуйте использовать% 20 для замены/кодирования пробелов в строке URL.

Также я бы предложил записать макрос VBA в Word, чтобы увидеть точную строку кода, необходимую для выполнения задания с использованием объектной модели Word. Word предоставляет Macro-рекордер, который позволяет выполнять задание вручную и получать код, созданный для вас в фоновом режиме. См. Record or run a macro для получения дополнительной информации.

источник

2015-08-16 19:34:50

В моем исходном коде у меня не было места поэтому это не поможет. – Menachem

Я попробую слово предложение – Menachem

Это творческая идея, чтобы посмотреть записанные инструкции в Word. Я боюсь, что это не помогло мне в этом деле. Я записал инструкции в Word, и записанный макрос работал в Word отлично и не работал в Outlook. Однако, когда я попытался использовать его в Outlook, он обнаружил следующую ошибку: Ошибка времени выполнения '91': Объектная переменная или с переменной блока не установлена. Вот код генерируется Слово: Selection.InlineShapes.AddPicture FileName: = _ «? Http://www.example.com/image.php s1 = song1.net & c1 = композитор» _ , LinkToFile: = Правда, SaveWithDocument: = False Любые идеи, чтобы заставить его работать? – Menachem

Следующий сценарий работал отлично для меня в Outlook:

Set wordDoc = Application.ActiveInspector.WordEditor 
wordDoc.Application.Selection.InlineShapes.AddPicture "http://www.dimastr.com/redemption_logo.png", true, false

источник

2015-08-17 16:22:38

Outlook VBA insert URL не работает

ответ

Смежные вопросы