Outlook XP Senden/Empfangen

1 Antwort

1. Antwort 1 Rubischung_ch schrieb am 16. August 2005 um 18:30

   Ich arbeite mit Outlook 2002 und habe dazu folgende Lösung, die nach meinen Erfahrungen auch mit XP funtkioniert:
   Sub senden_empfangen()
   Dim olControl As CommandBarControl
   Dim olPopup As CommandBarPopup
   Dim olCommandBar As CommandBar
   Set olCommandBar = Application.ActiveExplorer.CommandBars(\“standard\“)
   Set olPopup = olCommandBar.Controls(\“Senden/Empfangen\“)
   \’Set olControl = olPopup.Controls(\“Alle senden und empfangen\“)
   \’So geht es leider nicht, deshalb wähle ich direkt eines meiner Konti an:
   Set olControl = olPopup.Controls(\“2 WR_Smile\“)
   olControl.Execute
   Set oControl = Nothing
   Set olPopup = Nothing
   Set olCommandBar = Nothing
   End Sub
   Die Anregung dazu stammt von:
   http://www.workstream.de/forum/forum.php?ID=10&page=40
   Thema senden / empfangen per VBA.
   Grüsse Walter Rubischung

   Rubischung, Zürich