Leistungen
Leistungen
Überblick
Leistungsangebot
Kernkompetenzen
Schulungsthemen
In-House-Schulungen
Offene .NET-Seminare
Offene WPS-Seminare
Beratung
Coaching
Support
Softwareentwicklung
Entwickler-Vermittlung
.NET/Visual Studio
TFS/ALM/Scrum
Webprogrammierung
PowerShell
Konditionen
Anfrage/Kontakt
Beratung/Coaching
Beratung/Coaching
Beratungsthemen
Coaching
Unsere Berater
Referenzkunden
Konditionen
Angebotsanfrage
In-House-Schulungen
In-House-Schulungen
Überblick
Themen/Fachgebiete
Schulungskonfigurator
Konzepte
.NET/Visual Studio
C#
VB.NET
ASP.NET
Moderne Webanwendungen
TFS/ALM/Scrum
PowerShell
Konferenzvortraege
Referenzkunden
Unsere Trainer
Konditionen
Angebotsanfrage
Offene Schulungen
Offene Schulungen
Überblick .NET-Seminare
.NET/C#-Basisseminar
WPF (Desktop)
ASP.NET/AJAX (Web)
WCF/WF (SOA)
ADO.NET/EF (Data)
Windows PowerShell
.NET, C#, VB, Visual Studio
.NET, C#, VB, Visual Studio
Startseite
Beratung/Training
Offene .NET-Seminare
Einführung
Lexikon
Artikel
Bücher
Klassenreferenz
Programmiersprachen
Entwicklerwerkzeuge
Softwarekomponenten
World Wide Wings Demo
Codebeispiele
Scripting
ASP.NET
.NET 2.0
.NET 3.0/3.5
.NET 4.0/4.5
Community
Forum
Kommerzielle Leistungen
ASP.NET
ASP.NET
Startseite
Lexikon
Sicherheit
Konfiguration
Global.asax
Tracing
Technische Beiträge
Klassenreferenz
Programmiersprachen
Entwicklerwerkzeuge
Softwarekomponenten
PowerShell
PowerShell
Überblick
Beratung
In-House-Schulungen
Öffentliche Schulungen
Codebeispiele
Commandlet Extensions
Offene PowerShell-Seminare
Inhouse-Seminare
Windows
Windows
Startseite
Windows Runtime (WinRT)
Windows PowerShell
Windows Scripting
Windows-Schulungen
Windows-Lexikon
Windows-Forum
Windows Scripting
Windows Scripting
Startseite
Lexikon
FAQ
Buecher
Architektur
Skriptsprachen
Scripting-Hosts
Scripting-Komponenten
COM/DCOM/COM+
ADSI
WMI
Scripting-Tools
WSH-Editoren
Codebeispiele
ASP.NET
.NET-Scripting
Forum
Links
Kommerzielle Leistungen
Service
Service
Website-FAQ
Anmeldung/Login
Leser-Registrierung
Gast-Registrierung
Nachrichten/RSS
Newsletter
Foren
Weblog
Lexikon
Downloads
Support
Kontakt
Site Map
Suche
Literaturtipps
Publikationen
Publikationen
Redaktionsbüro
Bücher
Fachartikel
Leser-Portal
Autoren gesucht!
Rezensionen
Über uns
Über uns
Holger Schwichtenberg
Team
Referenzkunden
Kundenaussagen
Referenzprojekte
Partner
Site Map
Suche
Weitere Websites
Tag Cloud
Impressum
Rechtliches
Datenschutzerklärung

E-Mails von einem Microsoft Exchange Server abholen und Dateianhänge auspacken (im Dateisystem speichern)
Codebeispiel für Visual Basic .NET (VB.NET)

Liste aller Codebeispiele

E-Mails von einem Microsoft Exchange Server abholen und Dateianhänge auspacken (im Dateisystem speichern)

Autor: Dr. Holger Schwichtenberg 

Beschreibung


Der Code verwendet CDO (Collaboration Data Object), eine COM-Komponente. Die CDO-Komponente ist in Form eines Wrappers (Namensraum Interop.Mapi) einzubinden.

Programmcodebeispiele Visual Basic .NET (VB.NET)

' E-Mails von einem Microsoft Exchange Server abholen und Dateianhänge auspacken (im Dateisystem speichern)
' (C) Dr. Holger Schwichtenberg 2007

Imports Interop
Imports System

Module MainModule
Dim Ergebnis As String = ""
Dim Anzahl As Long = 0
Const PROFILNAME As String = "Agent"
Const ORDNERNAME As String = "Datenordner"
Const DATEISYSTEM As String = "d:\daten"

Sub Main()
  AttachmentsAuswerten()
  Console.ReadLine()
End Sub

Sub OutDebug(ByVal s As String)
  Dim sw As New System.IO.StreamWriter("C:\log.txt", True)
  sw.WriteLine(DateTime.Now + ": " + s)
  sw.Close()
  Console.WriteLine(s)
End Sub

Sub AttachmentsAuswerten()
  OutDebug("Starte Abholvorgang...")
  'Try
  Dim objSession As mapi.Session
  Dim objF1 As mapi.Folder
  Dim objF2 As mapi.Folder
  ' --- Instanziierung mit new !
  objSession = New mapi.Session()
  ' --- Anmelden
  OutDebug("Login")
  ' Statisches Profil
  objSession.Logon(PROFILNAME)
  ' Dynamicshes Profil
  Dim strProfileInfo As String = "192.168.1.191" & vbLf & "HS"
  'objSession.Logon("", "", False, True, 0, False, strProfileInfo)

  ' --- Zugriff auf Ordner
  objF1 = CType(objSession.Inbox, mapi.Folder)
  objF2 = recsearch_Folder(objF1, ORDNERNAME)
  ' --- Nachrichten auswerten
  For Each m As mapi.Message In objF2.Messages
   If m.Unread Then
   For Each a As mapi.Attachment In m.Attachments
   Ergebnis &= a.Name & ";"
   Anzahl += 1
   a.WriteToFile(DATEISYSTEM & a.Name)
   OutDebug("Anhang: " & a.Name)
   Next
   End If
  Next
  OutDebug("Fertig: Anzahl der Anhänge: " & Anzahl)
  OutDebug("Abholvorgang beendet!")
  'Catch ex As Exception
  ' OutDebug("Fehler: " & ex.GetType().FullName & ":" + ex.Message)
  ' 'End Try
End Sub


Public Function recsearch_Folder(ByVal objStartFO, ByVal OrdnerName)
  Dim objF As mapi.Folder
  If Not objStartFO Is Nothing Then
   ' --- Vergleich ausführen
   If objStartFO.Name = OrdnerName Then
   Return objStartFO
   Else
   ' --- Rekursion über alle Unterordner
   For Each objF In objStartFO.Folders
   Dim objF2 As mapi.Folder = recsearch_Folder(objF, OrdnerName)
   ' --- Abbruchbedigung der Rekursion
   If objF2 IsNot Nothing Then Return objF2
   Next
   Return Nothing
   End If
  End If
  Return Nothing
End Function
End Module

Programmcodebeispiele

Dieses Codebeispiel in anderen Sprachen (noch) nicht verfügbar.

Querverweise

Definition '.NET Framework Class Library'
Verfügbarkeit der Klasse 'System'
Übersicht über den FCL-Namensraum 'System'
Portal dotnetframework.de