Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Outlook VBA - Alle Anhänge drucken!
#1
Hallo zusammen,


wieder mal benötige ich eure Hilfe zu einen anderen Problem.
Ich bekomme viele Mails mit sehr viele Anhägen (PDF, Word, Excel etc....). Manchmal sind es so viele dass ich nicht mehr weiss was ich ausgedruckt habe und was nicht!

Deswegen würde ich gern per VBA Code erreich, dass alle Anhänge egal welche Dateiformate per Knopfdruck ausgedruckt werden auf einmal!

Ist das möglich, wenn ja wie???


Vielen Dank
VG
Alexandra
Antworten Top
#2
Hi,

schau mal hier:  http://www.docoutlook.de/    MS-Outlook-2000/2 Anlagen automatisch speichern

und konkret hier: Anlagen automatisch speichern.

Das kann sicher statt zu speichern auch direkt gedruckt werden, aber ob das sinnvoll ist jeden Mist auszudrucken mußt du entscheiden. Mir wäre das zu viel Papierverschwendung, aber wenn die Anlagen separat gespeichert sind kann man ja selektiert ausdrucken.
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#3
Hallo Michael,


der zweite Link funktioniert nicht! Kannst du nochmals gucken?


Danke
Alexandra
Antworten Top
#4
Hi ist nur der 1. Link mit Funktion. Dort auf Outlook 2002 und in der Liste den passenden Eintrag anklicken.
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#5
Hallo, 


da ist nichts brauchbares dabei! Hat vielleicht noch jemand eine Idee?


Danke 
Alexandra
Antworten Top
#6
Hi, klingt etwas überheblich die Aussage. Dein Vorhaben war ja Anhänge automatisch per Knopfdruck auszudrucken. Wenn du die Anhänge erst speicherst, kann danach per Sript auch gedruckt werden.  Also wo ist dein Problem?
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#7
Hallo Michael,


Wenn ich den Link anklicke komme ich auf einer Homepage und dort konnte ich aber den Code garnicht finden der gemeint war, habe alles abgesucht! 

Evtl. würde der direkte Link zum Code Abhilfe schaffen!
Ich kann da einfach nichts finden!


VG
Alexandra
Antworten Top
#8
Hi ich kann keine Link dazu posten. In meiner 1. Antwort steht alles genau wie du die Lösung findest, Anhänge zu speichern.
1. den Link anklicken
2. MS Outlook 2002 anklicken
3. In der Liste den beschriebenen Eintrag suchen und anklocken.
4. Lösung ansehen
5. Lösung verstehen
6. Lösung ändern zu drucken oder
7. von Outlook unabhängige Lösung zum Drucken entwickeln
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#9
Hallo Michael,


jetzt habe ich verstanden! :)

Jetzt habe ich auch was gefunden, ich werde nun versuchen den Code zu ergänzen!


Danke und sorry weil es "mal wieder länger gedauert hat" :)


VG
Alexandra
Antworten Top
#10
Hallo Michael,


so nun habe ich das jetzt probiert mit dem Code:

Code:
Private Sub Application_NewMail()
Dim strNewFolder As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem

On Error Resume Next
strNewFolder = "C:\Eigene Dateien\OLAnlagen\" & Format(Date, "ddmmyy")
MkDir strNewFolder
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
.Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub
Der Code erstell mir einen Ordner mit dem Name 05032016 aber es werden keine Dateien gespeichert! Ich muss dazu sagen, ich nutze Outlook 2010, vielleicht deswegen?
Wie muss ich das änder damit es auch mit OL2010 funktioniert?
Danke
VG
Alexandra
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste