请问！outlook如何自动打印邮件的附件？

ylee

缺省的是局域网内的网络打印机

系统是xp＋outlook2007或者2003

如何做到outlook收到带附件(tif文件)的邮件后，自动将附件(tif)打印到打印机呢？

谢谢诸位指教～

aaaaabbbbb

工具，“规则和通知”中可以将所有收到的附件自动打印出来。

ylee

QUOTE:

以下是引用aaaaabbbbb在2007-6-2 3:28:45的发言：
工具，“规则和通知”中可以将所有收到的附件自动打印出来。

可是。。。我只能在规则和通知里面做到“自动打印所有的邮件”，而不能打印邮件的附件额。。。

怎么才能打印到附件呢?

thanks

aaaaabbbbb

打印时有个选项是“打印附件”，请把它勾上。参考帖子：
http://office.microsoft.com/en-us/outlook/HP052431731033.aspx

如果还不行，请参考以下帖子，下载加载宏。
http://outlook-attachments.safe-install.com/

[此贴子已经被作者于2007-6-3 16:56:35编辑过]

aaaaabbbbb

以下代码实现将未读邮件（包括附件）保存到C:\，然后打印附件。我想你应该可以用得上。


Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub SaveandPrint()
    Dim olApp As New Outlook.Application
    Dim nmsName As Outlook.NameSpace
    Dim fldFolder As Outlook.Folder
    Dim vItem As Object
    Set nmsName = olApp.GetNamespace("MAPI")
    Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
    If fldFolder.UnReadItemCount > 0 Then
        For Each vItem In fldFolder.Items
           If vItem.UnRead = True Then
           strname = vItem.Subject
           strname = Replace(strname, "*", "_")
           strname = Replace(strname, "\", "_")
           strname = Replace(strname, "/", "_")
           strname = Replace(strname, "$", "_")
           strname = Replace(strname, "%", "_")
           strname = Replace(strname, "!", "_")
           strname = Replace(strname, "~", "_")
           strname = Replace(strname, "(", "_")
           strname = Replace(strname, ")", "_")
           strname = Replace(strname, "+", "_")
           strname = Replace(strname, ":", "_")
           vItem.SaveAs "C:\" & strname & ".txt", olTXT
           '-----保存附件-------
           For Each att In vItem.Attachments
               att.SaveAsFile "C:\" & att.FileName
                '使用shell print打印文档
               strFile = "C:\" & att.DisplayName
                ' 下一个文档
                ReturnVal = ShellExecute(0&, "print", strFile, 0&, 0&, 0&)
           Next
           '------保存附件--------
           vItem.UnRead = False
           End If
        Next
    End If
    Set fldFolder = Nothing
    Set nmsName = Nothing
End Sub

ylee

多谢版主！！！明天去公司就试验～～谢谢！

hxhgxy

刚开始使用Outlook。

如何实现将打开邮件中的所有附件保存到指定文件夹（另存为对话框）？如何将该命令写到菜单栏或者右键菜单？

谢谢！

hxhgxy

绕了半天，发现Outlook本身就有批量保存附件的命令（打开邮件后在文件菜单中找保存附件）。

可是，微软太不厚道了，Outlook得学习Excel，OL中可发挥的东东太少了！！！！！！！！！！

stomach

QUOTE:

以下是引用hxhgxy在2007-6-8 13:33:04的发言：

绕了半天，发现Outlook本身就有批量保存附件的命令（打开邮件后在文件菜单中找保存附件）。

可是，微软太不厚道了，Outlook得学习Excel，OL中可发挥的东东太少了！！！！！！！！！！

学习了,谢谢!

aaaaabbbbb

hxhgxy版一旦你用上OUTLOOK，就会爱上它的。

保存附件其实还有一些小技巧：
1.选中附件，ctrl+C,转到文件夹，ctrl+V
2.直接拖动到目标文件夹

反之亦可