Как встроить пару картинок в макрос электронной почты Outlook в Excel VBA - PullRequest
Новая
       6

Как встроить пару картинок в макрос электронной почты Outlook в Excel VBA

0 голосов
/ 20 сентября 2019

Мне нужно вставить 2 картинки в тело письма (не важно, прикреплю ли я их тоже, но мне нужно вставить их).Я исследовал и нашел то, что вы видите ниже, однако, я нашел только одну фотографию, и я пытался использовать здравый смысл, но это не сработало (кажется, это не так часто ...) Пожалуйста, дайтеЯ знаю, что я должен сделать, чтобы встроить.С этим кодом ниже он присоединяется, но не внедряется.«Attach (0)» означает полный путь к первой картинке. «Attach (1)» означает полный путь к второй картинке. Temp (0) означает «shortname1.jpg». «Temp (1)» означает «shortname2.jpg»

*.1002 *

1 Ответ

0 голосов
/ 20 сентября 2019

На основе комментариев @ChrisFNZ и @braX, двигаясь вверх и вниз, я удалил «.Body» и вставил текст «.Body» в «HTMLBody» (переменная «Msg»).

С другой стороны, я решил вставить двойные кавычки в переменные Temp ().и это сработало отлично. 

    Dim Temp(1) As String
    Temp(0) = Replace(Attach(0), ruta & "\", "") & """"
    Temp(1) = Replace(Attach(1), ruta & "\", "") & """"
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .To = Email
        .CC = CopyEmail
        .Subject = Localidad & " " & "- Pay Period " & Format(Semana, "DD-MMM-YYYY") & " " & "Report"
        .Attachments.Add lnvo
        .Attachments.Add Attach(0), 1
        .Attachments.Add Attach(1), 1
        .HTMLBody = "<html><p" & Msg & "</p>" & "<img src=""cid:" & Temp(0) & " height=150 width=750>" & "<img src=""cid:" & Temp(1) & " height=150 width=750>"
        '.Body = Msg
        .Send
    End With

Спасибо всем!

...