Question

如果有一个循环选择电子邮件的函数，则电子邮件是一个对象而不是一个丢失变量（Passing variable from Form to Module in VBA）：

(text,4,text,3)

基于 - 让我们说 - 这个主题我想用那封电子邮件做点什么。这意味着我必须将邮件对象移动到一个函数。但如果我现在这样做了，我就会收到错误。

Private Sub CommandButton5_Click()

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

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

如何将电子邮件对象发送到函数？

1 个答案: