Jump to content

Sunny61

Expert Member
  • Gesamte Inhalte

    26.068
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von Sunny61

  1. Jepp, das sieht gut aus, Danke für den Link. ;) Zu 80% hab ich die Anwendung ja schon fertig, die restlichen 20% kommen dann am Montag dran. Der Vorteil daran ist, ich speichere den Inhalt gleich in der richtigen Datenbank ab und die Mails werden auch als gelesen markiert und passend verschoben. ;)
  2. Richtig, und bei XP waren sogar 'nur' 10 gleichzeitige Verbindungen zugelassen, AFAIK. Der Krug geht so lange zum Brunnen... ;) Und wenn es viele machen, wird es nicht richtiger. Das ist doch mal ein Wort. ;)
  3. Welche Voraussetzungen meinst Du denn? Das OS oder die Hardware?
  4. Freut mich für Dich und Danke für die Rückmeldung. ;)
  5. Du hast in No. 9 gelesen. *19* suchst Du. ;)
  6. Danke, die kenne ich noch nicht. Kommt auf die Liste der Tools, da anzuschauen sind. BTW: Da hab ich übrigens auch dieses Tool noch: http://www.kyoceradocumentsolutions.de/index/document_solutions/cost_control___security/kyocount.html
  7. Hey sieht einfach aus, das leg ich mir mal auf die Agenda, evtl. probier ich das mal aus. Falls ja, geb ich natürlich Rückmeldung mit Code. ;)
  8. Nein, das '--Fire ist auskommentiert, der Rest nicht mehr. Kopier den Code in ein neues Projekt, Verweis auf Microsoft.Exchange.WebServices, setzt voraus das man die APIs dazu installiert hat, Angaben zum Exchange etc. korrigieren, F5 drücken, ab gehts. BTW: Ich hab das soeben in einem anderen Postfach getestet, sieht auf der Konsole b***d aus wenn das HTML-Mails sind. ;) In meinem Fall sind das nur reine Textmails, deshalb reicht mir das auch aus. EDIT: Hier noch der Downloadlink zu Microsoft Exchange Web Services Managed API 2.1: http://www.microsoft.com/en-us/download/details.aspx?id=42022
  9. So, 'Problem' ist gelöst. ;) Ich komm auf die betroffene Mailbox und kann alle Mails incl. Body auslesen, die im Posteingang sind. Verschieben oder ähnliches kommt später. Quellen: http://edmguy.blogspot.co.uk/2009/08/managed-exchange-ews-api-vbnet-part-1.html Nimmt man nur den code vom ersten Link, bekommt man keine Verbindung, sondern eine Fehlermeldung. Abhilfe verschafft der Code von: http://adel-aboulhuda.blogspot.de/2011/04/fw-connecting-to-user-mailbox-using.html Allerdings kam auch mit dem Code von http://adel-aboulhuda.blogspot.de/2011/04/fw-connecting-to-user-mailbox-using.html kein Body zum Vorschein, auch nicht wenn man das einfach zusätzlich mit einfügt. Dabei hat dann dieser Thread geholfen: http://www.mycsharp.de/wbb2/thread.php?threadid=84020 Den Code voc mycsharp kann man mit Hilfe eines Konverters in VB.NET Code portieren. http://codeconverter.sharpdevelop.net/SnippetConverter.aspx Die Lösung war das .Load(). Und jetzt noch mein Code, der in einer Console den Inhalt der Mails ausliest, die im Posteingang liegen: 'Module1 Imports Microsoft.Exchange.WebServices Imports Microsoft.Exchange.WebServices.Autodiscover Imports Microsoft.Exchange.WebServices.Data Imports System Imports System.Net Module MainModule Sub Main() Dim oService As ExchangeService = New ExchangeService(ExchangeVersion.Exchange2010_SP2)'Es gibt auch noch andere hier auswählbare Exchangeversionen. Dim strServerURI As String = "https://MeinExchangeServer/EWS/Exchange.asmx" oService.Url = New Uri(strServerURI) Dim strDomainName As String = "dieDomain.TLD" oService.Credentials = New NetworkCredential("MeinAdmin", "dasgeheimepasswort", strDomainName)' Evtl. kann man hier auch andere Credentials verwenden, am besten einen Account der nur auf diese Mailbox zugreifen darf. Zusätzlich steht ja auch das PW im Klartext im Code, bisher hab ich noch keine andere Möglichkeit gefunden. Dim strMailboxUser As String = "druckcounter@SMTPMailadresse.TLD" oService.ImpersonatedUserId = New ImpersonatedUserId(ConnectingIdType.SmtpAddress, strMailboxUser) 'Hier wird die Function in der Klasse aufgerufen. TrustAllCertificatePolicy.OverrideCertificateValidation() Dim arrSearchFilter(1) As SearchFilter arrSearchFilter(0) = New SearchFilter.IsEqualTo(EmailMessageSchema.IsRead, True) arrSearchFilter(1) = New SearchFilter.IsEqualTo(EmailMessageSchema.IsRead, False) Dim oSearchFilter As SearchFilter = Nothing oSearchFilter = New SearchFilter.SearchFilterCollection(LogicalOperator.Or, arrSearchFilter) Dim oView As ItemView = New ItemView(20) Dim oResults As Object '---Fire the query for the unread items oResults = oService.FindItems(WellKnownFolderName.Inbox, oSearchFilter, oView) Dim oMessage As EmailMessage = Nothing Dim oMessageCollection = New DataTable Dim oColumn As New DataColumn oColumn.ColumnName = "ID" oColumn.AutoIncrement = True oMessageCollection.Columns.Add(oColumn) oColumn = New DataColumn oColumn.ColumnName = "Subject" oMessageCollection.Columns.Add(oColumn) oColumn = New DataColumn oColumn.ColumnName = "From" oMessageCollection.Columns.Add(oColumn) oColumn = New DataColumn oColumn.ColumnName = "Date Received" oMessageCollection.Columns.Add(oColumn) oColumn = New DataColumn oColumn.ColumnName = "Body" oMessageCollection.Columns.Add(oColumn) Dim oRow As DataRow For Each oMessage In oResults oMessage.Load() 'Das .Load() ist für das laden des Body zuständig, ohne gibt es keinen Body zu lesen. oRow = oMessageCollection.NewRow oRow("Subject") = oMessage.Subject oRow("From") = oMessage.From.Name oRow("Date Received") = oMessage.DateTimeReceived oRow("Body") = oMessage.Body oMessageCollection.Rows.Add(oRow) Console.WriteLine(oRow("Body")) 'Ausgabe der Body-Zeile auf eine Console. oRow = Nothing Next End Sub End Module Und noch der Code von der benötigten Klasse: Imports System.Net Imports System.Net.Security Imports System.Security Imports System.Security.Cryptography.X509Certificates Public Class TrustAllCertificatePolicy Public Shared Sub OverrideCertificateValidation() ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf RemoteCertValidate) End Sub Private Shared Function RemoteCertValidate(ByVal sender As Object, ByVal cert As X509Certificate, ByVal chain As X509Chain, ByVal [error] As System.Net.Security.SslPolicyErrors) As Boolean Return True End Function End Class Der o.g. Code funktioniert, es fehlt natürlich noch die Fehlerbehandlung und die Verarbeitung des Body. Den Rest darf jeder nach seinen eigenen Wünschen ergänzen. ;)
  10. Hat der Benutzer ein weiteres Device im Einsatz, in dem seine Benutzerdaten gespeichert sind?
  11. Steht in der No. 19 laut und deutlich: http://www.mcseboard.de/topic/191452-mcseboardde-regeln-nutzungsbedingungen/ EDIT: Danke Norbert, hab ich jetzt ergänzt. :)
  12. Ich hab das bisher nur einmal mit einem W8 getestet, neue Bibliothek anlegen und jetzt versuchen die HDD einzubinden.
  13. Danke für den Hinweis, werde ich berücksichtigen. ;)
  14. Schon klar, das mit dem selbst programmieren ist/war bei Lotus auch 'einfacher'. Deshalb der Hinweis. ;)
  15. Jaja, in Sachen Scripting ist/war der Domino Server mit dem Client Lotus Notes der Exchange Welt um Lichtjahre voraus! :)
  16. Das hier ist der Einstieg: http://edmguy.blogspot.co.uk/2009/08/managed-exchange-ews-api-vbnet-part-1.html Ja, die Daten liegen in einem bestimmten Postfach, sollen automatisiert ausgelesen und in eine Datenbank befördert werden. Deshalb war auch meine Idee das ganze mit einer Transportregel abfackeln zu können. BTW: Bei Lotus Notes gibt es dafür sog. Agenten, neue eingehende Mails konnte man mit Hilfe solcher Agenten in den jeweiligen Postfächern per Script bearbeiten. Anhänge automatisiert extrahieren und ins Dateisystem ablegen und so weiter und so fort. ;)
  17. Danke euch beiden, so was ähnliches dachte ich mir schon. Heute hab ich schon etwas in Richtung Webservices gefunden, Details kann ich morgen erst posten. ;)
  18. Wenn man es 'richtig' macht, dann ja. :) Und ja, man kann es 'falsch' machen. ;)
  19. In der Version *.17 waren die DLL, die in der daurf folgenden Version gefehlt hatten, noch vorhanden. In der aktuellen Version 1.3.1407.29 ist alles wieder enthalten. ;)
  20. Hallo zusammen, auf einem Exchange 2010 SP3 RU6 kommen Zählerstände in Mails von Multifunktionsgeräten an. Gibt es in den Transportregeln vom Exchange die Möglichkeit den Inhalt zu parsen und ins Dateisystem zu schreiben? In den fertigen Aktionen war nichts dabei oder ich hatte Tomaten auf den Augen. Gibt es mit der Powershell die Möglichkeit hier einzugreifen? Wenn ja, kann mich jemand in die richtige Richtung schubsen? Vielen Dank schon im Voraus.
  21. NTFS-Berechtigungen wurden nicht angepasst? Share-Berechtigungen? Das identische Script hat beim identischen Benutzer vorher funktioniert und jetzt nicht mehr? Gruppenzugehörigkeit gleich wie vorher? Neues TS-Profil getestet? Was wurde wo alles geändert? Nichts ist die falsche Antwort. Und wenn Du das Original Script sichtbar laufen lässt, was passiert?
  22. Was geht schneller? Jetzt noch ein oder zwei Stunden probieren und dann doch formatieren, oder jetzt gleich formatieren und neu anfangen? ;)
  23. OK. Admin sein hat mit dem MCITP nichts zu tun. Das identische Script? Beim identischen Benutzer? Dann frag ich erneut: Was wurde geändert? Nichts ist die falsche Antwort. Funktioniert es bei anderen Benutzern oder funktioniert es bei keinem? Geh Schritt für Schritt vor, alles auskommentieren und eine Zeile einbauen die eine Textdatei von dem Netzlaufwerk (UNC-Pfad verwenden) in das Benutzerprofil des Benutzers kopiert, funktioniert das?
  24. Du sollst nicht alle Dienste deaktivieren, sondern nur die NICHT-MS-Dienste! Die Hoffnung stirbt zuletzt, viel Erfolg und gib bitte Bescheid ob es mit einer Neuinstallation besser geworden ist. Danke.
  25. Dann hast Du wohl einen Fehler im Script. Kannst Du das Script auf dem TS als 'normaler' Benutzer ausführen? Wenn ja, wird dann das LW verbunden? Bitte nicht als Admin auf einem DC ausführen, es muss auf dem TS als Benutzer funktionieren. Lass die Scripte doch sichtbar ablaufen, siehst Du dann mehr? Welche Fehlermeldungen findest Du im Eventlog auf dem TS? Hat es auf diesem einen TS denn schon mal funktioniert? Wenn ja, was wurde geändert? Nichts ist die falsche Antwort. ;)
×
×
  • Neu erstellen...