Как я могу исправить этот код VBA, чтобы помочь пересылать мои рабочие электронные письма?

Question

Я нашел / собрал некоторый код, чтобы в основном «щелкнуть» по кнопке пересылки в моей электронной почте Outlook (поскольку работа ограничивает параметр «правила». Но я продолжаю получать ошибку несоответствия времени выполнения 13. Любая идея, что не так с кодом «Я почти ничего не знаю о коде VBA. К вашему сведению, это приложение для настольных компьютеров, а не онлайн-версия.

Public Sub ShowMessage(Item As Outlook.MailItem)
End Sub

Sub Application_NewMail()

    Set myNamespace = Application.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myemails = myInbox.Items
    Set mynewemails = myemails.Restrict("[unread]=true")

    Dim x As Integer
    For x = 1 To myemails.Count Step 1
    If myemails(x).UnRead(True) Then
    Dim myMailToFW As Outlook.MailItem
Set myMailToFW = myemails(x)
Set myMailToFW = myMailToFW.Forward
myMailToFW.Recipients.Add ("youremail@gmail.com")
myMailToFW.Send
myemails(x).UnRead = False
End If
Next

End Sub

Редактирование: единственное предостережение для кода заключается в том, что я должен сохранить программу Outlook». открыть для запуска макроса. Может ли это быть причиной ошибки?