Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst Fragen zu VB Script für Outlook!

Mitglied: MTB4ever

MTB4ever (Level 1) - Jetzt verbinden

21.06.2007, aktualisiert 22.06.2007, 5911 Aufrufe, 2 Kommentare

Hallo,

ich habe mir folgendes Script für VBA besorgt:

01.
  
02.
Private Sub Application_NewMail() 
03.
 
04.
Dim Foldername As String 
05.
Dim objIn As MAPIFolder 
06.
Dim objNewMail As MailItem 
07.
 
08.
On Error Resume Next 
09.
Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
10.
For Each objNewMail In objIn.Items 
11.
With objNewMail 
12.
If .UnRead = True Then 
13.
NumberOfMails = .Attachments.Count 
14.
 
15.
If NumberOfMails > 0 Then 
16.
Foldername = "C:\temp\" 
17.
MkDir Foldername 
18.
 
19.
For I = 1 To NumberOfMails 
20.
.Attachments.Item(I).SaveAsFile (Foldername) & "" & .Attachments.Item(I).FileName 
21.
 
22.
Next I 
23.
End If 
24.
End If 
25.
End With 
26.
Next objNewMail 
27.
End Sub
Kann mir einer helfen das so umzuschreiben das es die Mails (nachdem es die Anlagen in den Ordner gepackt hat) als Gelesen markiert und am besten in ein Unterordner im Posteingang verschiebt ?

Und kann man dort noch einstellen das es nur von einen bestimmten Empfänger die Anhänge in den Ordner packt ?

Danke für die Hilfe!

MfG

MTB
Mitglied: miniversum
21.06.2007 um 14:50 Uhr
Also wenn ich Dich richtig verstanden habe dann versuchs mal damit (ungetestet!):
01.
Private Sub Application_NewMail() 
02.
 
03.
Dim Foldername As String 
04.
Dim objIn As MAPIFolder 
05.
Dim objNewMail As MailItem 
06.
Dim myDestFolder As Outlook.MAPIFolder 
07.
 
08.
On Error Resume Next 
09.
Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
10.
Set myDestFolder = objIn.Folders("Verschobener Ordner") 
11.
For Each objNewMail In objIn.Items 
12.
  With objNewMail 
13.
    If .UnRead = True Then 
14.
      .Move myDestFolder 
15.
      .UnRead = False 
16.
      If .SenderEmailAddress = "absender@jemand.de" Then 
17.
        NumberOfMails = .Attachments.Count 
18.
        If NumberOfMails > 0 Then 
19.
          Foldername = "C:\temp\" 
20.
          MkDir Foldername 
21.
          For I = 1 To NumberOfMails 
22.
            .Attachments.Item(I).SaveAsFile (Foldername) & "" & .Attachments.Item(I).FileName 
23.
          Next I 
24.
        End If 
25.
      End If 
26.
    End If 
27.
  End With 
28.
Next objNewMail 
29.
End Sub
Den Absender "absender@jemand.de" und den Ordner "Verschobener Ordner" mußt Du halt noch anpassen.

miniversum
Bitte warten ..
Mitglied: MTB4ever
22.06.2007 um 08:47 Uhr
danke klappt einwandfrei!

MfG MTB
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung

VB Script Drucker hinzufügen

Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 11 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 11 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server23 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Windows Server
Downgrade von Windows Server 2016 auf 2012 - Wie vorgehen?
Frage von EstefaniaWindows Server13 Kommentare

Guten Ich habe eine Frage an Erfahrene unter euch. Durch einen InPlace Upgrade wurde Windows Server 2012 auf die ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...