VBA Outlook 2013 - Kontakte einer Verteilerliste hinzufügen oder entfernen

  • Outlook

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von All93rounder.

    VBA Outlook 2013 - Kontakte einer Verteilerliste hinzufügen oder entfernen

    Hallo,

    ich versuche verzweifelt seit einigen Wochen eine automatisierte Verteilerliste zu pflegen... Klingt komplexer als es eigentlich ist, aber leider scheitere ich in der letzten Instanz.
    Der folgende Ablauf funktioniert soweit:
    • Ich versende eine Einladung mit einem Mailto-Link in dem ich den Betreff auf [VeranstalltungA] setzte.
    • Ein interessierter Teilnehmer sendet mir die Mail mit dem passenden Betreff zurück.
    • Ich filtere nach dem Betreff und übergebe die Mail einem Makro.
    • Das Makro entnimmt den Absender (Name und Mail) und übergibt dies einem weiteren Sub (nachfolgender Code)
    Nun habe ich die letzten Wochen damit verbracht den zweiten Teil zu bauen. Ich möchte aus meiner Verteilerliste "Lasertag" alle Member durchsuchen und ...
    • falls der gesuchte Member enthalten ist, soll dieser entfernt werden oder
    • falls der gesuchte Member nicht enthalten ist, soll dieser hinzugefügt werden mit seiner Mailadresse.
    Soweit erhalte ich auch meine Member des Verteilers und kann nach ihnen suchen bzw. bestimmte Aktionen ausführen. Leider komm ich nun nicht weiter bei der Entfernung oder Eintragung des Absenders, da die Änderung nicht gespeichert wird... Hier mal mein bisheriger Code, kann mir jemadn dabei weiterhelfen?

    VB.NET-Quellcode

    1. Sub DisplayYourDLNames()
    2. Dim myNameSpace As Outlook.NameSpace
    3. Dim objRcpnt As Outlook.Recipient
    4. Dim myFolder As Outlook.Folder
    5. Dim myDistList As Outlook.DistListItem
    6. Dim myFolderItems As Outlook.Items
    8. Dim x As Integer
    9. Dim y As Integer
    10. Dim iCount As Integer
    12. Set user = "Mustermann, Max"
    13. Set myNameSpace = Application.GetNamespace("MAPI")
    14. Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
    15. Set myFolderItems = myFolder.Items
    17. iCount = myFolderItems.Count
    19. For x = 1 To iCount
    20. a = TypeName(myFolderItems.Item(x))
    22. If a = "DistListItem" Then
    23. Set myDistList = myFolderItems.Item(x)
    24. If myDistList = "LaserTag" Then
    25. Set UserFound = 0
    27. For y = 1 To myDistList.MemberCount
    28. CurrentUser = myDistList.GetMember(y)
    29. If user = CurrentUser Then
    30. Set UserFound = 1
    32. Set objMail = Application.CreateItem(olMailItem)
    33. Set objRcpnt = objMail.Recipients.Add(user)
    34. objRcpnt.Resolve
    35. myDistList.RemoveMember Recipient:=objRcpnt
    37. 'Senden einer Mail an den Ausgetragenen
    38. End If
    39. Next y
    41. If UserFound = 0 Then
    42. Set objRcpnt = Application.Session.CreateRecipient(user)
    43. myDistList.AddMember objRcpnt
    44. myDistList.Save
    46. 'Senden einer Mail an den Eingetragenen
    47. End If
    48. End If
    49. End If
    50. Next x
    51. End Sub


    Ich danke für eure Antworten und eventuelle Lösungsansetzte!

    Gruß Chris

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „All93rounder“ ()

    Hallo,

    wenn das RemoveMember richtig angewendet wird, dann fehlt nur noch das Speichern. Da ich kein Outlook zu Hause habe, kann ich das nicht testen. Ich würde nach dem RemoveMember und SAVE die Liste noch mal durchgehen, ob der tatsächlich entfernt wurde.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo,

    okay das löschen funktioniert mit kleiner Anpassung und mit wenn es nur einen Max, Mustermann gibt. Wie binde ich den beim eintragen und austragen die Mailadresse mit ein? Denn das eintragen funktioniert nur mit namen wohl nicht...

    VB.NET-Quellcode

    1. Sub DisplayYourDLNames()
    3. Dim myNameSpace As Outlook.NameSpace
    4. Dim objRcpnt As Outlook.Recipient
    5. Dim myFolder As Outlook.Folder
    6. Dim myDistList As Outlook.DistListItem
    7. Dim myFolderItems As Outlook.Items
    9. Dim x As Integer
    10. Dim y As Integer
    11. Dim iCount As Integer
    13. user = "Mustermann, Max"
    14. Set myNameSpace = Application.GetNamespace("MAPI")
    15. Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
    16. Set myFolderItems = myFolder.Items
    18. iCount = myFolderItems.Count
    20. For x = 1 To iCount
    21. a = TypeName(myFolderItems.Item(x))
    23. If a = "DistListItem" Then
    25. Set myDistList = myFolderItems.Item(x)
    27. If myDistList = "LaserTag" Then
    28. UserFound = 0
    29. UserCount = myDistList.MemberCount
    31. For y = 1 To UserCount
    33. CurrentUser = myDistList.GetMember(y)
    34. If user = CurrentUser Then
    35. UserFound = 1
    36. Set objMail = Application.CreateItem(olMailItem)
    37. Set objRcpnt = objMail.Recipients.Add(user)
    38. objRcpnt.Resolve
    39. myDistList.RemoveMember Recipient:=objRcpnt
    40. 'myDistList.Save
    41. UserCount = UserCount - 1
    42. y = y - 1
    43. End If
    45. If UserCount <= y Then Exit For
    46. Next y
    48. If UserFound = 0 Then
    49. Set objRcpnt = Application.Session.CreateRecipient(user)
    50. myDistList.AddMember objRcpnt
    51. End If
    52. End If
    53. End If
    54. Next x
    55. End Sub

    Es fehlt noch folgender Codeschnipsel

    VB.NET-Quellcode

    1. Set objMail = Application.CreateItem(olMailItem)

    Nun klappt auch das eintragen, aber leider nur per Namen.

    --
    Kann mir jemand sagen, wie ich ein "objRcpnt " mit Namen und Mail erzeuge? Damit ich beim eintragen in die Verteilerliste auch eine Email-Adresse hinterlege. Nicht nur einen Namen ;-)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „All93rounder“ ()

Facebook
Telefonspende