Forum: Visual Basic |
Thema:
Outlook Makro zum automatischen Drucken von TIF-Anhängen - help |
Von:
G. Guest (
21.01.2005 10:56) |
Mein Outlook-Makro soll folgendermaßen vorgehen:
die in einem bestimmten Outlook-Ordner (in ihm befinden sich ausschließlich Mails mit TIF-Anhängen) sollen für alle vom User selektieren Mails die Anhänge ausgedruckt werden. Anschließend werden diese Mails in einen anderen Ordner verschoben. Mein Code hierzu ist unten angefügt.
An für sich nicht weiter schwierig, aber beim Ausführen des Makros gibt es folgende Probleme:
- wenn ich die Zeile "image.OCR (miLANG_GERMAN)" nicht einsetze, dann wird nur die erste Seite des Anhangs richtig gedruckt, bei mehrseitigen Anhängen erscheinen die übrigen Seiten vielfach verkleinert oben links auf dem Papier, wenn man sie ausdruckt; ist diese Zeile aber drin, kommt bei mehrfacher Ausführuing des Skripts "Laufzeitfehler: OCR running error".
- außerdem (der gewichtigere Fehler) bricht das Programm ab einer bestimmten Anzahl Mails ab mit der Meldung "Laufzeitfehler: Die Anlage kann nicht gespeichert werden. Die Datei "TIF.tif" kann nicht erstellt werden. Klicken Sie mit der rechten Maustaste auf den Ordner, in dem Sie die Datei erstellen möchten, und klicken Sie dann auf "Eigenschaften", um Ihre Berechtigungen für den Ordner zu überprüfen.". Die Zahl der Mails, die das Makro noch verkraftet, ist abhängig vom angemeldeten Benutzer (ein User kann bis 19, der andere bis 93 Mails selektieren, bevor die Verarbeitung abbricht). Der Ordner, in dem mein Skript die Anhänge speichert (c:\windows\temp) ist beschreibbar (das Skript speichert dort auch die ersten paar Anhänge), es sind keine Kontingente konfiguriert und die Fehler kommen auch, wenn man als Administrator angemeldet ist.
Das Skript wurde an Rechnern mit und ohne Exchange-Anbindung getestet und das Verhalten ist das selbe, lediglich beim Standalone-Rechner kommt sofort der "OCR-Running error", wenn ich das Skript ausführe
Die Systeme laufen unter Windows XP Professional mit Office 2003
Ich bin auch für alternative Antworten dankbar:
- gibt es vielleicht ein Programm außer das hier verwendete "Microsoft Office Document Imaging", mit dem ich über VBA TIF-Anhänge ausdrucken könnte?
- oder existiert vielleicht schon eine fertige Softwarelösung für diese Aufgabe?
Sub test()
Dim src_folder, dst_folder As MAPIFolder
Dim file_name, tmp_dir As String
Dim i As MailItem
Dim j As Attachment
Dim k As Integer
Dim image As MODI.Document
Dim fso As FileSystemObject
Dim selection As selection
Set src_folder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set dst_folder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk)
tmp_dir = "c:\windows\temp"
Set image = New MODI.Document
Set fso = New FileSystemObject
Set selection = Outlook.ActiveExplorer.selection
For Each i In selection
For Each j In i.Attachments
file_name = tmp_dir & "\" & j.FileName
k = 0
Do While fso.FileExists(file_name)
file_name = tmp_dir & "\" & fso.GetBaseName(j.FileName) & k & "." & fso.GetExtensionName(file_name)
k = k + 1
Loop
j.SaveAsFile file_name
image.Create file_name
image.OCR (miLANG_GERMAN)
image.PrintOut
image.Close
fso.DeleteFile file_name
Next
i.Move dst_folder
Next
Set fso = Nothing
Set image = Nothing
End Sub
Betreff |
Von |
Datum |
|
|
Re: Outlook Makro zum automatischen Drucken von...
hi das was du vor hast hört sich interessant an .. biste damit schon weiter gekommen ? hätt auch gern sowas und hab deinen code mal bei mir eingefügt aber da erkennt er modi.document nich an <br>liegt... |
|
|
|
|
|
G.
Guest
|
25.05.2005 14:12 |
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!