Ошибка компиляции Outlook - объявление процедуры не совпадает - PullRequest
Новая
       6

Ошибка компиляции Outlook - объявление процедуры не совпадает

0 голосов
/ 08 октября 2018

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

Ошибка, которую я получаю при компиляции кода: «объявление процедуры не соответствуетописание события или процедуры с таким же названием ".

Sub Application_NewMail(myMailToFW As Outlook.MailItem)

    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 ("email@email.com")
myMailToFW.Send
myemails(x).UnRead = False
End If
Next

End Sub

Я изменил email@email.com на письмо, которое я хочу переслать.

1 Ответ

0 голосов
/ 09 октября 2018

Ваш модуль класса имеет имя процедуры, которое конфликтует с именем события.

A Процедура имеет то же имя, что и событие, но не имеетимеют одинаковую подпись (то есть количество и типы параметров ).Это может произойти, если вы делаете что-то, например, добавляете новый параметр в процедуру события.

Если процедура не является процедурой события, соответствующей событию, измените ее имя.Если процедура соответствует событию, приведите список параметров в соответствие с тем, который требуется для события (если есть).

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

Объявление процедуры не соответствует описанию события или процедуры с тем же именем

...