SaveAs на объекте вложения генерирует ошибку 438 - объект не поддерживает это свойство или метод

Question

Я использую измененный макрос для выполнения следующих задач по электронной почте в папке «Входящие».

1. Извлечение вложений из письма
2. Открытие нового письма для имитации именнопредыдущее тело письма новому получателю без добавления переадресации, подписи и т. д.
3. Вложение вложений из исходного письма в новое письмо
4. Отправка нового письма новому получателю

В действиях по выделению вложения я пытаюсь сохранить массив в качестве временного местоположения, а затем уничтожить вложение после завершения добавления к новому письму.

В строке, где вложение будет сохранено в массиве, я получаю

Ошибка времени выполнения '438': объект не поддерживает это свойство или метод

Для этого сегмента используйте следующий код:

Set myOriginal = olFolder.Items(itemNum)
Set myForward = Application.CreateItem(olMailItem)
Set myAttachments = myForward.Attachments

For Each olAttachment In myOriginal.Attachments

    If InStr(1, myOriginal.HTMLBody, olAttachment.FileName, vbTextCompare) < 1 Then

        ReDim attArray(0 To 0)
        attArray(0) = tempLoc & "Original Attachment" & olAttachment.FileName
        olAttachment.SaveAs attArray(0)

        With myForward

            'Make sure the attachments are in array format
            If Not IsMissing(attachmentArray) Then

                If IsArray(attachmentArray) Then
                    For i = 0 To UBound(attachmentArray)
                        .Attachments.Add attachmentArray(i)
                    Next i
                End If

            End If

        End With

        Kill attArray(0)

    End If

Next olAttachment

myForward.Subject = myOriginal.Subject

Ошибка в строке

olAttachment.SaveAs attArray(0)

Answer 1

Я могу подтвердить, что объект вложения не содержит метод SaveAs.

Вы можете попробовать использовать метод SaveAsFile.

Для получения дополнительной информации, пожалуйста, перейдите по следующей ссылке:

Attachment.SaveAsFile Method