VBOffice
Startseite Produkte VBA Makros Tipps & Tricks Kontakt Impressum Switch language English

Standardkonto ermitteln

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

Zuletzt geändert: 09.11.2006 | Aufrufe: 51.687  | #34
◀ Vorheriges Beispiel Nächstes Beispiel ▶
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.

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
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.
email  Senden Sie eine Nachricht
◀ Vorheriges Beispiel ▲ Seitenanfang Nächstes Beispiel ▶

Alle genannten Namen, Produkte und Abbildungen unterliegen dem Copyright des jeweiligen Herstellers.

Microsoft und das Office-Logo sind entweder Marken oder eingetragene Marken

der Microsoft Corporation in den USA und/oder anderen Ländern.