VBOffice

Standardkonto ermitteln

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

Zuletzt geändert: 09.11.2006 | Aufrufe: 43.584  | #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
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht