title image


Smiley Re: Selection und Item-Typ
Private Sub tTypMarkierterElemente()

Dim objExplorer As Outlook.Explorer

Dim objSelection As Outlook.Selection

Dim objElement As Object

Dim sMsg As String

Dim I As Integer, iAnz As Integer



' Fehler gehört natürlich abgefangen

Set objExplorer = Application.ActiveExplorer

Set objSelection = objExplorer.Selection

iAnz = objSelection.Count

If iAnz > 0 Then

For I = 1 To iAnz

Set objElement = objSelection.Item(I)

sMsg = sMsg & I & ". markiertes Element ist "

Select Case TypeName(objElement)

Case "MailItem": sMsg = sMsg & "Nachricht" & Chr(13)

Case "ReportItem": sMsg = sMsg & "Nachrichtenübermittlungsbericht" & Chr(13)

Case "DistListItem": sMsg = sMsg & "Verteilerliste" & Chr(13)

' usw.

Case Else: sMsg = sMsg & "unbekannter Typ" & Chr(13)

End Select

Next I

MsgBox sMsg

End If

End Sub



Zu deinem "To"-Problem weiß ich zunächst nichts.

Ist's nur leer (was ja durchaus sein kann, etwa im Entwurf) oder gibt's einen Fehler (betrifft ja nicht alle Elemente)?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: