StartDownloadsServiceBeispieleWorkshopsKontakt DeutschEnglish
 
Beispiele
Allgemein
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Besucher1392431
Aufrufe5100818
Links
Impressum
Datenschutz
Kontakt
Run-a-Script-Rule
Autor: Michael BauerHomepage
Datum: 11.12.2006Zugriffe: 21515
  
Beschreibung

Seit Outlook XP können Sie über den Regelassistenten Regeln erstellen, die z.B. bei Eintreffen einer E-Mail eine VBA-Funktion aufrufen. Wie so eine Funktion deklariert sein muss, sehen Sie im Beispiel.

Dass seit Outlook 2000 SP3 einige Eigenschaften, z.B. E-Mail-Adressen, blockiert sind, spricht sich immer weiter herum. Noch nicht ganz so bekannt ist, dass diese Blockade seit Outlook 2003 in VBA umgangen wird, wenn das angesprochene Objekt über das in VBA immer vorhandene Application-Objekt referenziert wird.

Wer nun ein einfaches Script für eine Regel erstellt und versucht, der übergebenen Objektvariablen z.B. die Absenderadresse zu entlocken, erhält wieder die Sicherheitsmeldung: "Ein Programm versucht, auf Ihre in Outlook gespeicherten E-Mail-Adressen zuzugreifen".

Mit einem einfachen Trick umgehen Sie das in Outlook 2003: Erstellen Sie einfach eine weitere MailItem-Variable und setzen Sie diese über GetItemFromID auf die gleiche E-Mail, die als Argument übergeben wurde.

Im Beispiel können Sie nun den Unterschied testen: Der Zugriff auf Item.SenderEmailAddress bringt die Sicherheitsmeldung, der Zugriff auf Mail.SenderEmailAddress dagegen nicht

Public Sub Sample(Item As Outlook.MailItem)
  Dim EntryID$, StoreID$
  Dim Mail As Outlook.MailItem

  With Item
    EntryID = .EntryID
    StoreID = .Parent.StoreID
  End With

  Set Mail = Application.Session _
    .GetItemFromID(EntryID, StoreID)

  Debug.Print Item.SenderEmailAddress
  Debug.Print Mail.SenderEmailAddress
End Sub
 
 

ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter]

 

Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter]

 

SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter]

 

OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter]

So entgeht Ihnen kein Auftrag mehr:
Telefonservice und Sekretariatsservice