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 danke für eure Antworten und eventuelle Lösungsansetzte!
Gruß Chris
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)
- 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.
VB.NET-Quellcode
- Sub DisplayYourDLNames()
- Dim myNameSpace As Outlook.NameSpace
- Dim objRcpnt As Outlook.Recipient
- Dim myFolder As Outlook.Folder
- Dim myDistList As Outlook.DistListItem
- Dim myFolderItems As Outlook.Items
- Dim x As Integer
- Dim y As Integer
- Dim iCount As Integer
- Set user = "Mustermann, Max"
- Set myNameSpace = Application.GetNamespace("MAPI")
- Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
- Set myFolderItems = myFolder.Items
- iCount = myFolderItems.Count
- For x = 1 To iCount
- a = TypeName(myFolderItems.Item(x))
- If a = "DistListItem" Then
- Set myDistList = myFolderItems.Item(x)
- If myDistList = "LaserTag" Then
- Set UserFound = 0
- For y = 1 To myDistList.MemberCount
- CurrentUser = myDistList.GetMember(y)
- If user = CurrentUser Then
- Set UserFound = 1
- Set objMail = Application.CreateItem(olMailItem)
- Set objRcpnt = objMail.Recipients.Add(user)
- objRcpnt.Resolve
- myDistList.RemoveMember Recipient:=objRcpnt
- 'Senden einer Mail an den Ausgetragenen
- End If
- Next y
- If UserFound = 0 Then
- Set objRcpnt = Application.Session.CreateRecipient(user)
- myDistList.AddMember objRcpnt
- myDistList.Save
- 'Senden einer Mail an den Eingetragenen
- End If
- End If
- End If
- Next x
- End Sub
Ich danke für eure Antworten und eventuelle Lösungsansetzte!
Gruß Chris
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „All93rounder“ ()