VBA Outlook. Форвард письма другим ящиком

VBA Outlook Есть два почтовых ящика. На первый ящик приходит письмо нужно взять всю информацию из письма и собрать новое письмо на другом ящике и отправить. Второй ящик работает только внутри сети. 1.Создается письмо с картинкой но получаю ошибку вместо картинки. “The linked image cannot be displayed. The file may have been moved, renamed or deleted. Verify that the link points to the correct file and location” 2. Если в пришедшем письме есть вложения

Public Sub outMailfrombody(itm As Outlook.MailItem)
    itmTo = itm.SenderEmailAddress
    itmSub = Trim(itm.Subject)
    outBody = itm.HTMLBody
    outEmail = Left(itmSub, 17)
    outSub = Mid(itmSub, 18)

'Запись в файл
    Call SaveLog.openFileLog("D:\mail\log\", Date & ".log")
    Print #1, vbCrLf & Format(itm.ReceivedTime, "hh:mm:ss dd.mm.yyyy") & vbTab & "Пришло новое сообщение crypto@ : " & itm.SenderEmailAddress & vbCrLf

'Формирование нового письма 
    On Error GoTo ErrorEmail
    If outEmail Like "rj####@ioc.gov.ua" Then
        Dim objOL As Outlook.Application
        Dim objMail As MailItem
        Set objOL = Outlook.Application
        Set objMail = objOL.CreateItem(olMailItem)
            With objMail
                .SendUsingAccount = objOL.Session.Accounts.Item(1)
                .To = outEmail
                .Subject = outSub
                .HTMLBody = outBody
                .Send
            End With
        Set objMail = Nothing
        Set objOL = Nothing
        Set objAtt = Nothing
    Print #1, "текст " & outEmail
    Else
        Call SendMail.SendMail(CStr(itmTo), " ", "Íå â³ðíî âêàçàíà Òåìà ëèñòà", "Ïðèêëàä â³ðîíî¿ Òåìè: " & vbCrLf & "rj####@ioc.gov.ua Ïðèêëàä Òåìè" & vbCrLf & "Öåé ëèñò íå áóâ â³äïðàâëåííèé " & vbCrLf & outBody)
        Print #1, "Ëèñò íàïðàâëåíî íà àäðåñó " & itmTo
    End If
        Print #1, "Óñï³øî"
    GoTo Ends

    ErrorEmail:
    Print #1, "Âèíèêëà íåïåðåäáà÷åíà Ïîìèëêà Error" & outEmail
    Call SendMail.SendMail(" ", " ", "Âèíèêëà íåïåðåäáà÷åíà Ïîìèëêà(Error)", "Âèíèêëà íåïåðåäáà÷åíà Ïîìèëêà(Error): " & vbCrLf & "Ïîìèëêà â³äïðàâêè â VBA.ScriptFile - OutMail")
    Ends:
    Call SaveLog.closeFileLog
    End Sub