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,

Moin,

 

haben sie auch den gleichen Typ? Konvertier sie doch mal für den Vergleich in denselben Typ, z.B. String.

 

Gruß, Nils

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:

Set alias = itm.Email1Address

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ß

Es scheint mir als wenn eine der beiden Softwaretypen die Eigenschaft itm.Body, also das Feld der Notizen zerstört. Beim Auslesen ist diese EIgenschaft leer. Da ist nicht einfach nur eine Null oder ein "" drin sondern nichts.

Deshalb wirft er mich dabei immer raus.

Kann eines der beiden Programme diesen Fehler verursachen?

Wir benutzen da zwei verschiedene Softwares für.

Eine Mitarbeiter benutzt Chapura und andere DataViz

Kennt sich jemand damit aus?

Vielen Dank für diesen Tip,

aber ich merke gerade das ich bei einigen Kontakten mit der Eigenschaft itm.Body nichts machen kann.

Jeder Befel mit dieser Eigenschaft (Len, MsgBox, etc.) führt dazu das er mich aus der Routine wirft.

Hat jemand da eine Idee?

Ihr würdet mir sehr weiterhelfen!

Hallo zusammen,

ich habe ein Skript mit dem ich versuche Outlook Kontakte in eine Access Datenbank zu exportieren.

Bei dieser Zeile wirft er mich immer raus:

If IsNull(itm.Body) = False Then rst.MemoKunde = itm.Body

Damit versuche ich das Feld der Bemerkungen auszulesen.

Kann mir da jemand weiterhelfen?

Heisst dieses Feld "itm.Body"?

Lieben Gruß

Hallo zusammen,

ich habe einen öffentlichen Kontakteordner.

Wenn einer der Mitarbeiter diesen mit seinem HTC synchronisiert kann ich die Kontakte nicht mehr mit meinem VB Skript exportieren.

Kann es sein das Windows Mobile 6 etwas an den Kontakten ändert?

Hat jemand von euch da Erfahrungen gemacht?

Irgendetwas gehört?

Schade um diese Microsoft Logik, dann muss ich halt von Hand ran.

Vielen Dank für eure Hilfe!!!

Das heisst ich muss aus meinen 1300 Updates jetzt von Hand alle raussuchen die bereits eine neuere Version haben, oder bereits in eine SP enthalten sind und dann ablehnen???

Überholte Updates werden doch automatisch abgelehnt oder?

Auch mit dieser Batch Datei habe ich das gleiche Phänomen.

Ich mache 3GB Platz, aber dann liest er die Datenbank neu ein und stockt sie wieder auf 13GB auf.

Wie kriege ich denn nicht benötigte Updates weg?

Ihr hattet Recht er lädt die ganzen Updates nicht von Microsoft auch wenn er das angibt.

Anscheinend wird nur die Datenbank neu eingelesen.

Allerdings hat mein Datenverzeichniss jetzt wieder 13GB, das ist ja nicht Sinn der Sache.

@Necron

Ich probiere mal deinen Ablauf aus mal sehen was passiert.

@DerSchwabe

Mit "nicht benötigt" meine ich zum Beispiel alle XP Updates vor SP2 da diese ja dort enthalten sind.