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

Anhänge aller RSS-Feeds-Elemente von einem Outlook-Ordner in ein Verzeichnis auf dem Datenträger abspeichern.

Frage Entwicklung VB for Applications

Mitglied: evinben

evinben (Level 2) - Jetzt verbinden

17.07.2012, aktualisiert 12.01.2014, 2848 Aufrufe, 2 Kommentare

Hallo,

ich benutze ein VBA-Skript zum Speichern von E-Mail-Anhängen. Nun will ich die Anhänge von den ungelesenen RSS-Feeds-Elementen, die sich in einem Unterordner des als Standard gesetzten persönlichen Ordners befinden, auf ähnlicher Weise in ein angegebenes Verzeichnis auf dem Datenträger abspeichern. Es sind sehr viele Lektionen/Lehrmaterialien, die ich regelmäßig empfange.
Leider funktioniert der unten angepasste Code nicht mit RSS-Feeds-Elementen und ich finde leider keine Beispiele in der VBA-Hilfe dazu. Eine Eigenschaft wie objNewMail aber für RSS-Feeds Elemente (etwa wie objNewRSS oder objNewRSSFeeds), habe ich in der VBA-Hilfe leider nicht finden können. Wenn ich die RSS-Feeds-Elemente und paar E-Mail-Elemente als ungelesen markiere, werden leider nur die Anhänge ungelesener E-Mails in das angegebene Verzeichnis abgespeichert, jedoch nicht die Anhänge der RSS-Elemente.

Mit der Office-VBA-Hilfe bin ich leider nicht weitergekommen.

Besten Dank für paar Tipps

Gruß
evinben
Mitglied: evinben
11.06.2013 um 07:03 Uhr
Anbei ist das fast fertige Makro, das noch anpassungsbedürftig ist:
Quelle: http://www.office-loesung.de/ftopic102696_0_0_asc.php
01.
Private Sub Application_NewMail()  
02.
 
03.
    Dim Foldername As String  
04.
    Dim objIn As MAPIFolder  
05.
    Dim objNewMail As MailItem  
06.
    Dim find As AcFindMatch  
07.
     
08.
     
09.
   
10.
    On Error Resume Next  
11.
    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)  
12.
    For Each objNewMail In objIn.Items  
13.
        With objNewMail  
14.
        ' enter email adress to which the scanner sends the mail between the ""  
15.
        If objNewMail.SenderEmailAddress = "test@adresse.de" Then  
16.
               
17.
            If .UnRead = True Then  
18.
                NumberOfMails = .Attachments.Count  
19.
                 
20.
                If NumberOfMails > 0 Then  
21.
                 
22.
                            ' create the folder c:\temp and in this folder a folder with the name of the mail subject  
23.
                            ' Existing folders won't be over overwritten, objNewMail.Subject is not case sensitive  
24.
                    Foldername = "C:\temp\" & Replace(objNewMail.Subject, ":", "")  
25.
                    MkDir Foldername  
26.
     
27.
                    For i = 1 To NumberOfMails  
28.
                     
29.
                           ' save the attachment to the folder mentioned  
30.
                           ' above and replace the filname with the mail-body  
31.
                           ' the vbCrLf, "" function replaces vertical spacing  
32.
                           ' pdf is the filetype of the scanned paper  
33.
 
34.
                           objNewMail.BodyFormat = olFormatPlain  
35.
                            s = Len(.Body)  
36.
                             
37.
                             
38.
                             .Attachments.Item(i).SaveAsFile Foldername & "\" & Replace(Mid(.Body, InStr(.Body, ".com") + 4, s), vbCrLf, "") & ".pdf"  
39.
                         
40.
                             
41.
                           
42.
                    ' Optional: the mail can be deleted after saving  
43.
                    '.Delete  
44.
                    ' Optional: MsgBox for the user  
45.
                    'MsgBox ("Attachment saved successfully")  
46.
                         
47.
                    Next i  
48.
                End If  
49.
            End If  
50.
         End If  
51.
           
52.
        End With  
53.
             
54.
            Next objNewMail  
55.
            End Sub 
Vielen Dank für den Versuch die richtige Methode zu finden

Gruß
Evinben
Bitte warten ..
Mitglied: evinben
28.06.2013, aktualisiert um 11:29 Uhr
…die perfekte Lösung wäre unter dem folgenden Link zu finden:

http://gallery.technet.microsoft.com/scriptcenter/Save-attachments-from ...

Einfach die VBS-Datei abspeichern. Einen Ordner auf dem Datenträger irgendwo erstellen, in welchem die Anhänge der markierten Outlook-Elemente gespeichert werden sollen, und diesen auf das VBS-Skript ziehen und loslassen.

Exzellente Umsetzung!


Wer will, kann sich den Code anpassen. Für mich ist dies mehr als Perfekt umgesetzt.

Viel Erfolg

Gruß
Evinben
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

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

Frage von LindeUnimog zum Thema Outlook & Mail ...

Outlook & Mail
Outlook 2010 Suche - Anhänge sollen nicht mitgesucht werden (2)

Frage von staybb zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook 2016 - Gelöschte Objekte, Gelöschte Elemente (2)

Frage von Corraggiouno zum Thema Outlook & Mail ...

Mac OS X
Öffentliche Ordner in Outlook für Mac verschwinden

Frage von stefts zum Thema Mac OS X ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (24)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Erkennung und -Abwehr
Spam mit eigener Domain (12)

Frage von NoobOne zum Thema Erkennung und -Abwehr ...