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
Kommentar vom Moderator Biber am 02.07.2009 um 18:49:23 Uhr
Ich hab den Beitrag mal von "BASIC" nach "Outlook" verschoben.
Und auf gelöst gesetzt.

Frage Microsoft Outlook & Mail

GELÖST

Outlook mit VBA - Mailanhang in Ordner abspeichern, wobei der Betreff der Dateiname sein soll

Mitglied: mreske

mreske (Level 1) - Jetzt verbinden

02.07.2009, aktualisiert 18:49 Uhr, 12467 Aufrufe, 6 Kommentare

Hallo Forumexperten,
ich bin im Internet auf dieses Forum gestossen und habe zuerst nur BIBER direkt angemailt.
Auf Bibers Rat hin veröffentliche ich hier nun mein Anliegen, damit alle Forummitglieder etwas von der Lösung des Problems haben. Das ist mein erster Beitrag.

Ich bekomme täglich sehr viele emails von unserer Hauptgeschäftsstelle mit Rechnungsanhängen als PDF.

1. Ich möchte gerne die PDF Anhänge in einem dafür vorgesehenen Ordner ablegen, was bereits funktioniert.(siehe VBA-Makro unten)
Dazu hatte mir folgender Beitrag schon sehr weitergeholfen: https://www.administrator.de/index.php?content=48253

PROBLEM:
Leider ist der Name der jeweiligen PDF Datei NICHT die Rechnungnummer, sondern eine fortlaufende Nummer, die vom System unserer Geschaftsstelle automatisch vergeben wird.

Ich muss die PDF Datei aber als Rechnungsnummer abspeichern. Diese Rechnungsnummer finde ich im Betreff der jeweiligen Mail.
Z.B.: VAUDE-Factura 61854816

FRAGE:
Wie kann ich nun die PDF Datei mit dem Betreff der Mail als Dateinamen abspeichern.
Oder noch komplizierter: Wie kann ich NUR die Rechnungsnummer (ohne "Vaude-Factura") also nur 61854816.pdf als Dateinamen abspeichern?

Hier einmal mein bereits vorhandener VBA CODE:

Sub Application_NewMail()
Dim strNewFolder As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
Dim oAttachment As Attachment

strNewFolder = "W:\VBA_TEST\"
On Error GoTo check_error
MkDir strNewFolder
Back1:
Set objPosteingang =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each Item In objPosteingang.Items
If Item.Class = olMail Then
Set objNewMail = Item
With objNewMail

If .UnRead = True Then

intanlagen = .Attachments.Count
Debug.Print objNewMail & ": "; intanlagen If intanlagen > 0 Then For i = 1 To intanlagen Set oAttachment = .Attachments.Item(i) oAttachment.SaveAsFile strNewFolder & "\" & oAttachment.FileName

Next i
End If
End If
End With
End If
Next Item

check_error:
Debug.Print Err.Number; Err.Description
If Err.Number = 75 Then ' Fehler beim Zugriff auf Pfad -- ignorieren wir mal Err.Clear

GoTo Back1:
Else
'Err.Raise Err.Number, Err.Description

End If
Err.Clear
Resume Next

End Sub


Ich hoffe, Ihr könnt mir bei der Lösung behilflich sein.

Viele Grüsse aus Spanien
Manfred
Mitglied: 49097
02.07.2009 um 10:44 Uhr
Hallo Manfred,

sieht denn die Betreff-Zeile immer so aus, oder kann sich die Rechnungsnummer irgendwo verstecken?
Könntest Du ein paar mehr von diesen Betreffzeilen posten, damit man eventuell Gemeinsamkeiten sehen könnte?

Gruss

dsmg500
Bitte warten ..
Mitglied: mreske
02.07.2009 um 16:24 Uhr
Hallo dsmg500,
die Betreffzeile sieht IMMER so aus, nur die Rechnungsnummer ändert sich selbstverständlich:

Hier ein paar Beispiele:

VAUDE-Factura 61854816
VAUDE-Factura 61854817
VAUDE-Factura 61854815
VAUDE-Factura 61854814
VAUDE-Factura 61854812

usw......

Mir würde es natürlich auch reichen, wenn die PDF Datei mit dem kompletten Betreff (also z.B.: VAUDE-Factura 61854812.pdf) gespeichert wird, aber dennoch würde mich interessieren, wie man das "VAUDE-Factura " rausfiltert.

Bin überrascht dass so schnell auf meinen Beitrag geantwortet wird. Ich glaube ich stelle hier öfter mal was rein.

Beste Grüsse
Manfred
Bitte warten ..
Mitglied: 49097
02.07.2009 um 16:57 Uhr
Hallo Manfred,

wenn die Zeile immer so aussieht, dann könnte es so klappen:

01.
Dim strNewFolder As String 
02.
Dim objPosteingang As MAPIFolder 
03.
Dim objNewMail As MailItem 
04.
Dim oAttachment As Attachment 
05.
Dim ts() as String 
06.
 
07.
strNewFolder = "W:\VBA_TEST\" 
08.
On Error GoTo check_error 
09.
MkDir strNewFolder 
10.
Back1: 
11.
Set objPosteingang = 
12.
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
13.
For Each Item In objPosteingang.Items 
14.
If Item.Class = olMail Then 
15.
Set objNewMail = Item 
16.
With objNewMail 
17.
 
18.
If .UnRead = True Then 
19.
 
20.
intanlagen = .Attachments.Count 
21.
 
22.
'Hier die Betreffzeile der Mail lesen und dann nach Factura trennen 
23.
ts=split(objnewmail.subject ,"Factura") 
24.
'dann sollte in ts(1) die Rechnungsnummer mit einem Leerzeichen stehen 
25.
 
26.
Debug.Print objNewMail & ": "; intanlagen If intanlagen > 0 Then For i = 1 To intanlagen Set oAttachment = .Attachments.Item(i) oAttachment.SaveAsFile strNewFolder & "\" & trim(ts(1)) & ".pdf" 
27.
 
28.
Next i 
29.
End If 
30.
End If 
31.
End With 
32.
End If 
33.
Next Item 
34.
 
35.
check_error: 
36.
Debug.Print Err.Number; Err.Description 
37.
If Err.Number = 75 Then ' Fehler beim Zugriff auf Pfad -- ignorieren wir mal Err.Clear 
38.
 
39.
GoTo Back1: 
40.
Else 
41.
'Err.Raise Err.Number, Err.Description 
42.
 
43.
End If 
44.
Err.Clear 
45.
Resume Next 
46.
 
47.
End Sub
Ich hoffe, das klappt so unter VBA!

Gruss

dsmg500
Bitte warten ..
Mitglied: mreske
02.07.2009 um 18:32 Uhr
Hallo dsmg500,
tausend dank - es funktioniert - und das beim ersten Versuch.

Super Forum - besten Dank (auch an Frank (Bieber)

Hier in Barcelona kann´ste Spiegeleier auf der Strasse braten. Da bleibe ich lieber im kühlen Büro und lass mir noch mal Euer Marko durch den Kopf gehen.

Macht´s gut
Saludos
Manfred
Bitte warten ..
Mitglied: 49097
02.07.2009 um 18:43 Uhr
Dann viel Spaß und Danke für die Rückmeldung
Bitte warten ..
Mitglied: crashzero2000
03.07.2009 um 09:45 Uhr
Hy,

ja, ging mir genauso, heute ein Problem mit VBS gehabt , Minuten später eine Lösung die auch sofort funktionierte.
Ist wirklich genial hier ....

Auch Bastla ist echt super
Dank auch an dsmg500
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Vba Outlook Betreff Datum - Absender - Empfänger
Frage von Romy0907VB for Applications7 Kommentare

Hallo liebe Community, ich bin noch sehr neu im Gebiet vba und benötige daher eure Hilfe - es ist ...

Outlook & Mail
Outlook 2010 - Betreff-Zeile der emails ergänzen mit dem DateiNAMEN der Anlagen
gelöst Frage von sk1412Outlook & Mail5 Kommentare

Hallo Admin's ;) , folgendes Prob: Wir versenden viele email an verschiedene Kollegen und hängen eine oder mehrere ! ...

VB for Applications
Geschützte Datei ohne Kennwortschutz abspeichern in VBA (Passwort bekannt)
gelöst Frage von jaydotkayVB for Applications2 Kommentare

Hallo werte Kollegen, ich hänge seit längerem an einem Problem, zu dem ich bisher leider keine Lösung gefunden habe. ...

Exchange Server
Outlook findet keine Mails mit Bindestrich im Betreff
Frage von Coolhand0Exchange Server

Guten Tag allerseits, Umgebung: Windows 7 bzw. Windows 8, Outlook 2013, Exchange 2010, Mailbox im OnLine Betrieb (ohne Cache) ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 TagTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 TagSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 1 TagSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Sicherheit
Meltdown und Spectre: Die machen uns alle was vor
Information von FrankSicherheit29 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

SAN, NAS, DAS
Hilfe beim Einrichten eines Storages (SAN)
gelöst Frage von Vader666SAN, NAS, DAS15 Kommentare

Hallo Admins! Ich bin in einer kleineren Firma und hatte bisher mit dem Thema SAN nur in meiner Ausbildung ...

Monitoring
VPN Performance Zyxel-Fritte
gelöst Frage von HenereMonitoring13 Kommentare

Servus, nachdem ihr mir ja schon so gut helfen konntet, was das VPN zwischen Zyxel USG60W und Fritte 7490 ...

Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...