153.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 39 行

<p>给Outlook的所有用户发送信件</p>
<p></p>
<p>Public Function SendReceiveAll() As Boolean</p>
<p></p>
<p>    Dim oExplorer As Outlook.Explorer</p>
<p>    Dim olNS As Outlook.NameSpace</p>
<p>    Dim olFolder As Outlook.MAPIFolder</p>
<p>    Dim oCtl As Office.CommandBarControl</p>
<p>    Dim oPop As Office.CommandBarPopup</p>
<p>    Dim oNS As Outlook.NameSpace</p>
<p>    Dim oCB As Office.CommandBar</p>
<p>    Dim oOutlookApplication As Outlook.Application</p>
<p></p>
<p>    On Error Resume Next</p>
<p>    </p>
<p>    Set oOutlookApplication = GetObject(, "Outlook.Application")</p>
<p>    If oOutlookApplication Is Nothing Then</p>
<p>        Err.Clear</p>
<p>        On Error GoTo ErrorHandler</p>
<p>        Set oOutlookApplication = _ </p>
<p>              CreateObject("Outlook.Application")</p>
<p>        Set olNS = oOutlookApplication.GetNamespace("MAPI")</p>
<p>        Set olFolder = olNS.GetDefaultFolder(olFolderInbox)</p>
<p>        Set oExplorer = olFolder.GetExplorer</p>
<p>    End If</p>
<p>    </p>
<p>    On Error GoTo ErrorHandler</p>
<p>    Set oCB = _</p>
<p>       oOutlookApplication.ActiveExplorer.CommandBars("Standard")</p>
<p>    </p>
<p>    Set oCtl = oCB.Controls("Send/Receive")</p>
<p>    oCtl.Execute</p>
<p>    SendReceiveAll = True</p>
<p>    </p>
<p>ErrorHandler:</p>
<p>    </p>
<p>End Function </p>
<p> </p>