Sto cercando di ottenere Outlook 2010 per stampare gli allegati automaticamente all'arrivo.
ho trovato Questo su internet. Il codice VBA è
Sub LSPrint(Item As Outlook.MailItem)
On Error GoTo OError
'detect Temp
Dim oFS As FileSystemObject
Dim sTempFolder As String
Set oFS = New FileSystemObject
'Temporary Folder Path
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)
'creates a special temp folder
cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
MkDir (cTmpFld)
'save & print
Dim oAtt As Attachment
For Each oAtt In Item.Attachments
FileName = oAtt.FileName
FullFile = cTmpFld & "\" & FileName
'save attachment
oAtt.SaveAsFile (FullFile)
'prints attachment
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")
Next oAtt
'Cleanup
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing
OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub
End Sub
Ho permesso l'esecuzione di macro. Ho incollato il codice in ThisOutlookSession nell'editor VBA e aggiunto un riferimento a Microsoft Scripting Runtime. Ho creato una regola per verificare se il nuovo messaggio proviene da me e in tal caso eseguire lo script. Ho inviato un messaggio con un allegato .doc a me stesso e ho ricevuto il messaggio di errore "424 - Oggetto richiesto" al momento del ricevimento.
Non ho una stampante a casa (ho bisogno del codice per un posto diverso), quindi ho impostato Microsoft XPS Writer come stampante predefinita per vedere se funziona. È questa la ragione dell'errore? In caso contrario, che cos'è e come posso risolverlo?
E, soprattutto, come faccio a portare a termine il lavoro? Ho bisogno di usare uno script VBA (non un componente aggiuntivo) e sono nuovo di VBA.
Sto usando Windows XP ora, ma ho bisogno che la cosa funzioni su Windows 7.