能保持原分辨率插入到Outlook邮件中,支持PNG、JPEG、BMP、GIF等图片格式。此前你在Outlook邮件信息中插入一张图片,就会自动将图片转换为96ppi分辨率以减少邮件体积。Outlook特性调整:允许发送......
轻松学会Outlook添加答复所有人时带附件
0utlook添加答复所有人时带附件的操作方法
一、打开outlook,按快捷键ALT加F8输入宏名字,然后点击创建。
二、删除默认内容。
三、把以下代码拷贝到VB编辑窗口。
Sub 带附件答复()
Dim rpl As Outlook.MailItem
Dim itm As Object
Set itm = GetCurrentItem()If Not itm Is Nothing Then
Set rpl = itm.ReplyAllCopyAttachments itm, rplrpl.DisplayEnd IfSet rpl = NothingSet itm = NothingEnd SubFunction GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = ApplicationOn Error Resume NextSelect Case TypeName(objApp.ActiveWindow)
Case Explorer
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case Inspector
Set GetCurrentItem = objApp.ActiveInspector.CurrentItemEnd SelectSet objApp = NothingEnd FunctionSub CopyAttachments(objSourceItem, objTargetItem)Set fso = CreateObject(Scripting.FileSystemObject)Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
strPath = fldTemp.Path &
For Each objAtt In objSourceItem.Attachments
strFile = strPath & objAtt.FileName
objAtt.SaveAsFile strFile
objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
fso.DeleteFile strFile
Next
Set fldTemp = Nothing
Set fso = Nothing
End Sub
四、点击保存
五、关闭VB编辑窗口,打开outlook,在工具栏上面右击,点击自定义功能区。
六、选择命令里面选择宏,然后选中需要显示的宏,点击添加。
七、操作完成。
相关文章
- 详细阅读
- 详细阅读
-
如何获取网易VIP邮箱教师节特权详细阅读
电子邮箱作为大家日常工作的重要工具,相信大家想必都有那么几个吧?不过,免费邮箱的安全性与稳定性始终令人担忧,特别是超大附件过期问题一定困扰着大家吧。这次,网易vip邮箱的教......
2021-11-13 252 网易VIP邮箱
-
msg文件怎么打开详细阅读
msg文件的打开方法:1、使用outlook邮件客户端软件(outlook2003\2007\2010以及最新的outlook2013格式)首先需要安装下载一个outlook软件,直接双击msg文件即可打开查看邮件内容2、最新版本foxmail或其......
2021-11-13 86 MSG文件
- 详细阅读