如何将电子邮件对象发送给某个功能？

如果有，通过选择电子邮件的循环功能，电子邮件是一个对象不是输变电（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

来源

2015-12-02 user2815681

显示的moveMail（）函数[从表格传递变量在VBA到模块]的 – MatthewD

可能的复制（http://stackoverflow.com/questions/20214072/passing-variable-from-form-to-module -in-VBA） – niton

-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

来源

2015-12-03 14:47:50 user2815681

如何将电子邮件对象发送给某个功能？

回答

相关问题