| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} {\colortbl ;\red0\green0\blue255;} \viewkind4\uc1\pard\f0\fs17 If your Outlook uses a dial up network to send emails then you will need to use the following function if you wish to send any emails in your Outbox. \par \par 'Purpose : Performs a "Send and Receive" in Outlook \par 'Outputs : Returns True on success \par 'Notes : The "Send and Receive" is performed asychronously. Code designed to be run in Outlook VBA \par \par \cf1 Function SendReceiveAll() As Boolean\cf0 \par Dim bCreatedOutlook As Boolean \par Dim oCtl As Office.CommandBarControl \par Dim oCB As Office.CommandBar \par \par On Error GoTo ErrorHandler \par Set oCB = Application.ActiveExplorer.CommandBars("Standard") \par Set oCtl = oCB.Controls("Send/Receive") \par oCtl.Execute \par SendReceiveAll = True \par \par ErrorHandler: \par Debug.Print Err.Description \par SendReceiveAll = False \par \cf1 End Function\cf0 \par } |
Performing a "Send and Receive" in Outlook |
India web developer web development India | India web development company India ecommerce web developer