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, 2901 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 ..
Ähnliche Inhalte
Administrator.de Feedback
RSS-Feed zeigt keine " 0 " an? (5)

Frage von Snowman25 zum Thema Administrator.de Feedback ...

Webentwicklung
RSS Feed Server welcher Emails empfangen und verarbeiten kann (1)

Frage von blackhawk17 zum Thema Webentwicklung ...

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

Frage von Corraggiouno zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook vba Email Anhang in Ordner speichern (3)

Frage von Daywalkercxp zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Internet
gelöst Jeden morgen Internet-Probleme (59)

Frage von pjrtvly zum Thema Internet ...

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

Frage von Seichobob zum Thema DSL, VDSL ...

Windows Server
Benutzer sperrt sich immer wieder im Active Directory Contoller (18)

Frage von Kirdy1301 zum Thema Windows Server ...