VBOffice

Standardkonto ermitteln

So ermitteln Sie mit VBA, welches von mehreren eingerichteten Email-Konten das Standardkonto ist.

Zuletzt geändert: 09.11.2006 | Aufrufe: 46.365  | #34
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Dieses kleine Beispiel demonstriert, wie Sie mit Hilfe der Redemption das Standardkonto ermitteln können.


tip  So fügen Sie Makros in Outlook ein
Public Function GetDefaultMailAccount() As String
  Dim Session As Redemption.RDOSession
  Dim List As Redemption.RDOAccountOrderList

  Set Session = CreateObject("redemption.rdosession")
  Session.LogOn ""

  ' In der sortierten Liste ist Item(1) immer 
  ' das Standardkonto
  Set List = Session.Accounts.GetOrder(acMail)
  GetDefaultMailAccount = List.Item(1).Name
End Function
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht