VBOffice

Standardkonto ermitteln

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

Zuletzt geändert: 09.11.2006 | Aufrufe: 42.666  | #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
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.
email  Senden Sie eine Nachricht