Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

emails per vbs von exchange server abrufen

Frage Microsoft Exchange Server

Mitglied: saihttam

saihttam (Level 1) - Jetzt verbinden

15.02.2008, aktualisiert 18.02.2008, 5351 Aufrufe, 2 Kommentare

Hallo Leute,

zur Messung von Laufzeiten möchte ich von einem Client e-mail senden und empfangen,
einen Timestamp im Subject setzten und mit Hilfe der Empfangzeit die Laufzeit ermitteln.

Eine weitere Anforderung ist die Verwendung verschiedener Outlook-Profile bei
geschlossenem Outlook.

Ist das eventuell mit vbs möglich?

Vielen Dank für Eure Tipps.

Saihttam
Mitglied: stbewo
15.02.2008 um 14:49 Uhr
Hallo Saihttam,

versuche es mal hiermit.

Option Explicit

Const olMailItem = 0 ' Konstanten für neue Einträge
Const olAppointmentItem = 1
Const olContactItem = 2
Const olTaskItem = 3
Const olJournalItem = 4
Const olNoteItem = 5
Const olPostItem = 6

Const olCC = 2 ' Typ Empfänger
Const olByValue = 1 ' Typ Anhang
Const olByReference = 4

Const olImportanceHigh = 2 ' Mail-Priorität
Const olImportanceLow = 0
Const olImportanceNormal = 1

Dim objOutl, objNameSpace, objMailItem
Dim recipient, message, subject, myRecipient
Dim myAttachments

Dim BodyLen, AttachmentFile

' Definiere Eigenschaften der E-Mail
recipient = "Deine.Adresse@sca.com"
subject = "Test Mail gestartet um: " & time
message = "BlaBlaBla" & vbCrLf

' Erzeuge Outlook-Objektreferenz
Set objOutl = WScript.CreateObject("Outlook.Application")

' Objektreferenz auf "Mapi"-Namespace holen
Set objNameSpace = objOutl.GetNameSpace("MAPI")

' Neuen Mail-Eintrag als Objekt erzeugen
Set objMailItem = objOutl.CreateItem(olMailItem)
objMailItem.Importance = olImportanceNormal ' Normale Priorität

' Mail-Objekt Eigenschaften setzen
objMailItem.Recipients.Add recipient ' E-Mail-Adresse
Set myRecipient = objMailItem.Recipients.Add ("Deine.Adresse@sca.com")
myRecipient.Type = olCC

' Andere Eigenschaften setzen
objMailItem.Subject = subject ' Betreff (subject)
objMailItem.Body = message ' Body-Text

' Anhang (Attachement) vorbereiten
AttachmentFile = "c:\daten\files.txt" ' Datei an ...
BodyLen = Len (objMailItem.Body) + 2 ' ... das Ende anhängen

Set myAttachments = objMailItem.Attachments
' olByReference wird im Internet-Modus nicht unterstützt
myAttachments.Add AttachmentFile, olByValue, BodyLen, "Nielsen Files FTP Server"

' Fertig zum "logon" an Outlook (nutze Logon-Methode)
'objNameSpace.Logon "profile", "password"

objMailItem.Send ' Senden

objNameSpace.Logoff ' Abmelden

WScript.Echo "E-Mail für '" & recipient & " und " & myRecipient & "' erzeugt" ' Fertigmeldung

WScript.Quit
Gruß
Stefan
Bitte warten ..
Mitglied: saihttam
18.02.2008 um 16:04 Uhr
Hallo Stefan,

vielen Dank für Deine Antwort, so komme ich erst einmal weiter

Eine Frage habe ich allergings noch:

Scheinbar hat die Zeile

objNameSpace.Logon "profile", "password"

keine Auswirkung auf das Profil. Ich habe lokal drei verschiedene Profile
angelegt, es wird immer je nach eingestellter Profiloption (zu verwendendes Profil
bestätigen bzw. immer dieses Profil verwenden) "gehandelt".

Entweder ich muß manuell das Profil auswählen oder es wird immer das Standardprofil
verwendet.

Hast Du da eventuell noch eine Idee ?

Gruß
Saihttam
Bitte warten ..
Ähnliche Inhalte
Exchange Server
gelöst Exchange Server 2010 Emails aufbewahren? Brauche einen Rat (5)

Frage von phantasist zum Thema Exchange Server ...

Exchange Server
Exchange Server: Neue Updates März 2017 (2)

Link von transocean zum Thema Exchange Server ...

Exchange Server
gelöst 2. Exchange Server (unabhängig) in einer Domäne (5)

Frage von Hellgore zum Thema Exchange Server ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(2)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

LAN, WAN, Wireless
gelöst Statische Routen mit ISC-DHCP Server für Android Devices (22)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

Exchange Server
gelöst Migration Exchange 2007 zu 2013 - Public Folder teilweise weg (16)

Frage von Andy1987 zum Thema Exchange Server ...