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

Dateien in Mails mit Outlook automatisch bearbeiten lassen

Frage Microsoft Outlook & Mail

Mitglied: Cthluhu

Cthluhu (Level 2) - Jetzt verbinden

23.06.2008, aktualisiert 24.06.2008, 6655 Aufrufe, 5 Kommentare

Hallo zusammen

Beim Versenden von Mails mit angehängten Dateien über Outlook (ohne Exchange-Server) wird ja nicht nur der Mailtext, sondern auch der komplette Mailanhang in der pst-Datei gespeichert. Diese Anhänge blasen die pst-Datei aber nur unnötig auf. Als Abhilfe kann man die Anhänge aus den gesendeten Mails löschen (die originalen Files, sind ja eh am eigenen Rechner).
Das Problem ist aber: bei vielen Mails weiß man im nachhinein nicht mehr welche Files mit welchen Mails verschickt wurden.

Da man meines Wissens Outlook mit VBS-Skripten erweitern kann hier meine Frage:

Kann man mit VBS für Outlook ein Skript so schreiben, das nach dem Versenden der Mails die Anhänge löscht durch ein Anhängen einer Textzeile am Ende der Mail mit Dateipfad- und name kennzeichnet, welche Datei mitverschickt wurde?

Ich hoffe ihr habt verstanden was ich meine.

mfg

Cthluhu
Mitglied: manuel-r
23.06.2008 um 15:42 Uhr
Es ist vielleicht nicht ganz automatisch macht dafür aber ansonsten das was du willst. Ich sag dir aber gleich, dass ich nicht der VBA-Experte bin sondern mir das aus dem Internet zusammengeschnippslet hab...
01.
Private Sub Application_NewMail() 
02.
Dim Ordnername As String 
03.
Dim objPosteingang As MAPIFolder 
04.
Dim objNewMail As MailItem 
05.
On Error Resume Next 
06.
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
07.
For Each objNewMail In objPosteingang.Items 
08.
With objNewMail 
09.
If .UnRead = True Then 
10.
Anzahl = .Attachments.Count 
11.
If Anzahl > 0 Then 
12.
Ordnername = "D:\Mail\" & objNewMail.SenderName 
13.
MkDir Ordnername 
14.
For i = 1 To Anzahl 
15.
.Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName 
16.
Next i 
17.
End If 
18.
End If 
19.
End With 
20.
Next objNewMail 
21.
End Sub
Manuel
Bitte warten ..
Mitglied: Cthluhu
24.06.2008 um 07:53 Uhr
Derartige Skripts hab ich über google auch gefunden. Leider macht das Skript aber nicht das, was ich gerne hätte.

Der Knackpunkt ist das ich mit diesem Skript den Dateinamen ans Mail hinten dran schreiben möchten.

Aja und es ginge und gesendete, und nicht um empfange Mails, aber das ist dann nur mehr eine Frage der Ordnerauswahl in Zeile 6.

mfg

Cthluhu
Bitte warten ..
Mitglied: manuel-r
24.06.2008 um 08:26 Uhr
Upps.
Sorry - falsches Makro. Ich muss nachsehen ob ich das andere noch finde.

Manuel
Bitte warten ..
Mitglied: manuel-r
24.06.2008 um 08:33 Uhr
Hab's wieder gefunden: http://www.worldwidewruck.de/AttchIso.zip
Das ist die originale Version. Meine hatte ich für mich noch etwas angepasst.

Manuel
Bitte warten ..
Mitglied: Cthluhu
24.06.2008 um 10:30 Uhr
Herzlichen Dank, sowas hab ich gesucht.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
CSV Datei automatisch bearbeiten und abspeichern
gelöst Frage von klaus1985VB for Applications6 Kommentare

Hallo , Ich habe hier jeden Monat eine CSV Datei die in unserem ERP System generiert wird und von ...

Outlook & Mail
Mails lassen sich unter Outlook 2013 nicht löschen
Frage von achkleinOutlook & Mail2 Kommentare

Hallo, ich habe auf einem PC Windows 10 und Office 2013 neu installiert. Unter Outlook werden drei Konten genutzt. ...

Windows Userverwaltung
Einstellungen in GPO lassen sich nicht bearbeiten da nicht vorhanden
gelöst Frage von ahsendenWindows Userverwaltung4 Kommentare

Guten Tag, Wir haben einige Gruppenrichtlinienobjekte die auf einem Windows Server 2007 SBS erstellt wurden. Dieser SBS Server ist ...

Batch & Shell
Batch zum automatischen Bearbeiten eines Wertes
gelöst Frage von M-K-D-BBatch & Shell20 Kommentare

Hallo, ich versuche mich gerade daran, einen Wert in der Registry per Batch zu bearbeiten, komme aber nicht so ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell18 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Windows 10
Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App
Tipp von kgbornWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...