aysyxc

Vielen Dank Dirk, damit funktioniert das einwandfrei. Das es auch immer so kompliziert sein muss. Lieben Gruß aysyxc

Hallo, du könntest das Standardformular in diesem Kalender dementsprechend erweitern das automatisch eine Email generiert wird.

Hallo zusammen, Ich dachte bei VBS muss ich keine Variablen deklarieren? Wie kann ich die denn konvertieren? @cyquest Habe deinen Tip gerade ausprobiert, funktioniert leider nicht.

Hallo zusammen, ich möchte zwei Variablen miteinander vergleichen und wenn sie übereinstimmen soll das Item gelöscht werden. Soweit so gut, aber irgendwie führt er die Then Anweisung nicht aus. Gibt aber auch keine Fehlermeldung heraus. Kann mir da jemand weiterhelfen? Sub loeschen1_Click ID = Item.UserProperties.Find("ID").Value Set nms = Application.GetNameSpace("MAPI") Set myFolder = nms.Folders("Postfach - xxx, yyy") Set fld = myFolder.Folders("Kalender") Set itms = fld.Items For Each itm in itms MsgBox "Ursrüngliche ID: " & itm.body MsgBox "Eingegebene ID: " & ID If itm.Body = ID Then itm.Delete Next End Sub P.S.: Die MsgBox ist nur dazu da damit ich sehen kann welche Einträge die Variablen haben, sie sind gleichen Inhalts.

Der Tipp mit dem "Set" war Gold wert vielen Dank. Jetzt läuft es sauber durch!

Die Fehlermeldung lautet übrigens: Laufzeitfehler in Microsoft VBScript: Objekt erforderlich: 'itm.EMail1DisplayName'

Sorry ich meine die Zeile die Fett gedruckt ist: P.S.: Danke für den Hinweis

Ich kann jetzt darauf zugreifen aber bei folgender Zeile wirf er mich raus: Sub start_Click Dim itm Dim alias Set alias = "test@test.de" Set nms = Application.GetNameSpace("MAPI") Set myFolder = nms.Folders("Postfach - xxx, xxx") Set fld = myFolder.Folders("Kontakte") Set itms = fld.Items MsgBox myFolder For Each itm in itms MsgBox "Alias aktuell:" & itm.EMail1DisplayName [b] Set alias = itm.Email1Address[/b] Set itm.EMail1DisaplayName = alias MsgBox "Geändert in:" & itm.EMail1DisplayName Next End Sub Kann mir jemand sagen was ich falsch gemacht habe?

Hallo zusammen, ich möchte den email alias bei allen Kontakten mit der emailadresse gleichsetzen. Theoretisch könnte ich das mit der Funktion "itm." tun. Aber wie heisst das Feld für den Alias??? In etwa würde das dann so aussehen itm.??? = itm.Email1Adress Kennt jemand die Bezeichnung? Wisst ihr wo ich eine Auflistung aller Elemente finden kann. Lieben Gruß

Vielen Dank hat sich erledigt

Hallo zusammen, ich möchte meinen Kalendar nach einer bestimmten Zahlenkombination durchsuchen lassen und dieses objekt dann löschen. Kann ich das mit der "For Each ..." Funktion machen? Wie müsste so eine Schleife dan aussehen?

Du hast Recht, danke für den Hinweise werde das noch mal gründlicher durchdenken müssen Vielen Dank!

Um zu verhindern, dass sie Daten auf eine USB Stick oder ähnliches ziehen des sie ja unter dem Admin Account installieren könnten.

Ganz genau ihr habt mich schon richtig verstanden, viele Benutzer haben Zugriff auf das lokale Admin Konto da sie verschiedene Installationsroutinen testen müssen. Ich es ihnen daher nicht verbieten sich lokal anzumelden. Gibt es trotzdem eine Möglichkeit ihnen die sekundäre Anmeldung von diesem Admin Account aus zu verbieten? Ich habe gerade mal testweise den Dienst "Sekundäre Anmeldung" deaktiviert, allerdings kann ich mit einen "normalen" Domänenaccount trotzdem Netslaufwerke verknüpfen und darauf zugreifen. Hat jemand noch eine Idee?

Hallo zusammen, ich möchte den Netzwerkzugriff beschränken. Folgendes Szenario aus verschiedenen Gründen kann sich jeder Mitarbeiter mit einem seperaten lokalen Konto anmelden. Im möchte verhindern, dass sie sich lokal anmelden und dann über ihr Domänen Konto einen Zugriff auf Netzwerkfreigaben herstellen. Hat jemand eine Idee wie ich das realisieren kann? Lieben Gruß