SharedWorkspaceMember. Email-Eigenschaft (Office)

Artikel
04/07/2023

Ruft den E-Mail-Namen des angegebenen SharedWorkspaceMember im Format user@domain.comab. Schreibgeschützt.

Hinweis

Ab Microsoft Office 2010 ist dieses Objekt oder Element veraltet und sollte nicht verwendet werden.

Syntax

Ausdruck. Email

Ausdruck Ein Ausdruck, der ein SharedWorkspaceMember-Objekt zurückgibt.

Beispiel

Im folgenden Beispiel wird der E-Mail-Domänenname aus der Email-Eigenschaft jedes freigegebenen Arbeitsbereichsmitglieds extrahiert und Mitglieder mit E-Mail-Adressen in der "example.com" Domäne aufgelistet.

Dim swsMember As Office.SharedWorkspaceMember 
    Dim strEmailDomain As String 
    Dim strMemberList As String 
    For Each swsMember In ActiveWorkbook.SharedWorkspace.Members 
        strEmailDomain = LCase(Right(swsMember.Email, _ 
            Len(swsMember.Email) - InStr(swsMember.Email, "@"))) 
        If strEmailDomain = "example.com" Then 
            strMemberList = strMemberList & swsMember.Email & vbCrLf 
        End If 
    Next 
    MsgBox strMemberList, vbInformation + vbOKOnly, _ 
        "Members with example.com email" 
    Set swsMember = Nothing

Siehe auch

Elemente des SharedWorkspaceMember-Objekts

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über