LOCAL loOA,loAE,loMnuTools,loMnuItem loOA = CREATEOBJECT("Outlook.Application") loAE = loOA.ActiveExplorer IF NOT ISNULL(loAE) AND (TYPE("loAE") == "O") loMnuTools = loAE.CommandBars.Item("Tools") loMnuItem = loMnuTools.Controls("Senden/Empfangen").Controls("Alle senden und empfangen") loMnuItem.Execute() ENDIF loMnuItem = .NULL. loMnuTools = .NULL. loAE = .NULL. loOA = .NULL. RELEASE lo*You'll have to swap the german menu item captions with the english captions. Probably the menu structures are different in elder versions of Outlook. Would be interesting to hear about that...