MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 17.09.2018, 08:58   #1
Harmogy
Neuer Benutzer
Neuer Benutzer
Standard OL 2010 - Email Anhang automatisch drucken

Guten Morgen liebes Forum,

ich habe mir ein Outlook skript zusammen gebastelt, was seinen job auch super macht. Es speichert die Email inclusive Anhang ab und löscht die Mail danach. Jedoch würde ich es gerne erweitern, sodass Emailanhänge automatisch gedruckt werden.

Hier das Skript:


Public Sub Rechnungsspeicherung(itm As Outlook.MailItem)


' wirkt nur auf Mails mit Anhang
If (itm.Attachments.Count >= 1) Then

Dim objAtt As Outlook.Attachment

' Datumsformat festsetzten
Dim dateFormat_target_folder
dateFormat_target_folder = Format(itm.ReceivedTime, "yyyy-mm-dd")

Dim Root_Folder As String
Root_Folder = "X:Elektronische RechnungenEingangsrechnungen"
domaene = Environ("userdomain")

'erstellt unterordner mit Sendername
Dim saveFolder_Root2 As String
strSenderName = domaene

sreplace = "_"


For Each mychar In Array("/", "", "^", "*", "%", "$", "#", "@", "~", "`", "{", "}", "[", "]", "|", ";", ":", ",", ".", "'", "+", "=", "?", "!", " ", Chr(34), "<", ">", "¦")
strSenderName = Replace(strSenderName, mychar, sreplace)
Next mychar

saveFolder_Root2 = Root_Folder & "" & strSenderName

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
' checkt ob ein Ordner bereits besteht, sonst wird einer erstellt
If Not objFSO.FolderExists(saveFolder_Root2) Then
objFSO.CreateFolder (saveFolder_Root2)

End If

''''''''''''''''''''''
'erstellt unterordner mit Name und Datum
Dim saveFolder_bySender_date As String
strSubject = itm.Subject

sreplace2 = "_"

For Each mychar2 In Array("/", "", "^", "*", "%", "$", "#", "@", "~", "`", "{", "}", "[", "]", "|", ";", ":", ",", ".", "'", "+", "=", "?", "!", " ", Chr(34), "<", ">", "¦")
strSubject = Replace(strSubject, mychar2, sreplace2)
Next mychar2

saveFolder_bySender_date = saveFolder_Root2 & "" & dateFormat_target_folder & "-" & strSubject 'für Betreff dem Ordnernamen hinzu

If Not objFSO.FolderExists(saveFolder_bySender_date) Then
objFSO.CreateFolder (saveFolder_bySender_date)
End If

''''''''''''''''''''''

Dim i As Integer
i = 0
For Each objAtt In itm.Attachments
i = i + 1
objAtt.SaveAsFile saveFolder_bySender_date & "" & "(" & i & ")-" & objAtt.DisplayName
' leert Object
Set objAtt = Nothing
Next 'geht zum Nächsten Anhang

' speichert ebenso den E-Mail Text im gleichen Ordner
'itm.SaveAs saveFolder_bySender_date & "" & "email.txt", olTXT
itm.SaveAs saveFolder_bySender_date & "" & Format(Now, "_DDMMYYYY_hh.mm.ss"".txt"), olTXT
'fertig


itm.Delete
End If

End Sub


kann mir einer helfen ? haben schon alles mögliche probiert jedoch schaffe ich es nicht den Anhang drucken zu lassen....


Freue mich über jeden Hilfreichen Beitrag

Gruß Kai
Harmogy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2018, 09:44   #2
markusxy
MOF Meister
MOF Meister
Standard

Im Prinzip ganz einfach.
Die Datei die du speicherst druckst du auch noch aus.
Hier findest du eine Anleitung für das Drucken (Abschnitt Dokument drucken): http://dbwiki.net/wiki/VBA_Tipp:_Anw...xecute_starten
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2018, 09:48   #3
Harmogy
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ich muss gestehen ich bin kein Profi in vba ..... kannst du mir da eventuell helfen ?
Harmogy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2018, 13:46   #4
markusxy
MOF Meister
MOF Meister
Standard

Wenn du sagst, was genau unklar ist, kann dir eventuell ein Teilnehmer helfen.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:55 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.