VBOffice

Standardkonto ermitteln

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

Zuletzt geändert: 09.11.2006 | Aufrufe: 41.320  | #34
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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