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
GELÖST

Fragen zu VB Script für Outlook!

Frage Entwicklung VB for Applications

Mitglied: MTB4ever

MTB4ever (Level 1) - Jetzt verbinden

21.06.2007, aktualisiert 22.06.2007, 5881 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
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Visual Studio
gelöst VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld) (7)

Frage von PixL86 zum Thema Visual Studio ...

VB for Applications
gelöst VB Skript für mehrere Batch Befehle (37)

Frage von freshman2017 zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Internet
gelöst Jeden morgen Internet-Probleme (57)

Frage von pjrtvly zum Thema Internet ...

Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

LAN, WAN, Wireless
gelöst IP Adressen - Modem - Switch - Accesspoint (23)

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

DSL, VDSL
VDSL Signal via PowerLine an Fritzbox - Möglich? (19)

Frage von Seichobob zum Thema DSL, VDSL ...