Как отправить объект электронной почты функции?

Question

Если есть функция, которая перебирает выбор электронной почты, электронная почта является объект не потерять переменное (Passing variable from Form to Module in VBA):

Private Sub CommandButton5_Click() 

For Each objItem In Application.ActiveExplorer.Selection 
    moveMail(TextBox1.Value, objItem) 
Next 
End Sub 

на основе - позволяет сказать - тема, которую я хочу сделать что-то с этой электронной почтой , Это означает, что мне придется переместить почтовый объект в функцию. Но если я делаю это сейчас, я получаю сообщение об ошибке.

compiling error  
synstaxt error 

Answer 1

Возможно, вам просто нужно быть более внимательным, объявляя свои переменные.

Sub schaap() 
For Each objItem In Application.ActiveExplorer.Selection 
    Dim mailbericht As Object 
    Set mailbericht = objItem 
    Call cavia(mailbericht) 
Next 
End Sub 

Function cavia(mailbericht As Object) 
    MsgBox mailbericht.Subject 
End Function