Private Sub "button name_Click()End Sub Dim MyItem As Outlook.MailItem Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft") End Sub Sub C
Function SendMessage(strSubject, strRecip, strMsg, strAttachment) As BooleanDim mItem As Outlook.MailItemstrAttachment) As Boolean
Dim mNameSpace As ObjectSet mNameSp
为了使用AdvancedSearch,我在Outlook中编写了VBA代码。啊,真灵。主代码如下所示。Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Outlook.Search)
End If
Private Sub Application_Advance