2015-12-02 65 views
1

如果有,通過選擇電子郵件的循環功能,電子郵件是一個對象不是輸變電(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 
+1

顯示的moveMail()函數[從表格傳遞變量在VBA到模塊]的 – MatthewD

+0

可能的複製(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 
相關問題