![]() |
Tipp 0388
|
Selektierte Mail(s) ermitteln
|
 |
|
Autor/Einsender: Datum: |
|
Angie 18.03.2004 |
|
Entwicklungsumgebung: |
|
Outlook 2000 |
|
|
Mit der folgenden Prozedur können die in Outlook selektierten Mails ermittelt werden, dabei wird unterschieden, ob ein
Explorer- oder ein Inspector-Objekt ausgewählt ist. Das Explorer-Objekt steht für das Fenster,
in dem der Inhalt des Ordners angezeigt wird (mit jedem Ordner ist ein Explorer-Objekt verknüpft), das Inspector-Objekt
ist jenes Fenster, in dem der Inhalt eines Ordnerelements angezeigt wird.
|
Aus dieser Prozedur heraus kann dann eine 2. Prozedur zum Bearbeiten der selektierten Mails aufgerufen werden, sei es um diese
beispielsweise an eine vorgegebene Adresse weiterzuleiten, oder aber auch um die Mails und/oder Anhänge zu speichern.
|
|
|
Option Explicit
Public Sub GetSelectedMailItems()
Dim objFolder As MAPIFolder
Dim objMailSel As MailItem
Dim objSelection As Selection
Select Case Application.ActiveWindow.Class
Case olExplorer
Set objFolder = Application.ActiveExplorer.CurrentFolder
If objFolder.DefaultMessageClass = "IPM.Note" Then
Set objSelection = Application.ActiveExplorer.Selection
Select Case objSelection.Count
Case 0
MsgBox "Es sind keine Mails ausgewählt !"
Case Else
For Each objMailSel In objSelection
DoSomething objMailSel
Next
End Select
Set objSelection = Nothing
Else
MsgBox "Im Ordner '" & objFolder.Name & _
"' sind keine Mails enthalten!"
End If
Set objFolder = Nothing
Case olInspector
With Application.ActiveInspector
If .CurrentItem.Class = olMail Then
Set objMailSel = .CurrentItem
DoSomething objMailSel
Set objMailSel = Nothing
Else
MsgBox "Es ist keine Mail aktiv !"
End If
End With
Case Else
End Select
End Sub
Private Sub DoSomething(ByVal objMailItem As MailItem)
Debug.Print
Debug.Print "Absender: " & objMailItem.SenderName
Debug.Print "Betreff: " & objMailItem.Subject
Debug.Print "Anzahl Anhänge: " & objMailItem.Attachments.Count
End Sub
|
|
|
|
Im Download befindet sich eine *.bas-Datei, die in Outlook im VB-Editor importiert werden kann.
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
Outlook-Version |
95 |
 |
|
98 |
 |
|
2000 |
 |
|
2002
(XP) |
 |
|
2003 |
 |
|
2007 |
 |
|
2010 |
 |
|
|
|
Download (2,2 kB)
|
Downloads bisher: [ 997 ]
|
|
|