Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Answer = MsgBox("Create a new Outlook folder ?", vbYesNoCancel) If Answer = vbYes Then OutlookFolderName = teOrderNo & " " & coClientName & " - " & coHeading Set ol = CreateObject("Outlook.Application") Set ns = ol.GetNamespace("MAPI") ParentFolder = "Personal Folders" MainFolder = "_Toco Orders" Set fl = ns.Folders.Item(ParentFolder).Folders.Item(MainFolder) fn = OutlookFolderName If Len(fn) > 0 Then Set mf = fl.Folders.Add(fn) Set mf = Nothing Set fl = Nothing Set ns = Nothing Set ol = Nothing MsgBox "A new Outlook folder has been created successfully", vbInformation End If End If
|Recover deleted email through Exchange 201o server||8||50|
|EXCEL FORMULA - first three characters in a cell||2||27|
|VBA working with shapes||6||11|
|which is the correct address book to build||4||10|