How do I send the email object to a function?

Question

If have a function that loops through a selection of emails, an email is an object not a lose variable (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

based on - lets say - the subject I want to do something with that email. That means that I will have to move the mail object to a function. But if do like I did it now I get an error.

compiling error    
synstaxt error

Possible duplicate of [Passing variable from Form to Module in VBA](http://stackoverflow.com/questions/20214072/passing-variable-from-form-to-module-in-vba) — niton, Dec 10 '15 at 20:26

score -1 · Accepted Answer · answered Dec 03 '15 at 14:47

It is possible, you just need to be more careful declaring your variables.

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

How do I send the email object to a function?

1 Answers1