شاید یکی از مشکلات اساس شما در Reply all یا Reply کردن ایمیل در Outlook ازبین رفتن Attach های آن باشد. ولی با مطالعه این مطلب کار شما بسیار آسان خواهد شد.
برای پاسخ دادن ایمیل در اوتلوک به همراه ضمیمه ها مراحل زیر را به ترتیب انجام دهید:
1- اوتوک خود را باز کنید و سپس ALt + F11 را فشار دهید.
2- حال پنجره Microsoft Visual Basic for Applications باز میشود. بر روی ThisOutlookSession مطابق با عکس پایین دابل کلیک کرده تا پنجره جدید باز شود.
3- کد زیر را در پنجره جدید وارد کنید:
Sub ReplyAllWithAttachments()
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
4- سپس از قسمت Tools گزینه Reference را انتخاب کنید. گزینه Microsoft Scripting Runtime را تیک بزنید.
5- پس از ذخیره کردن پنجره را ببندید. حال باید آیکون Micro رو در دسترس قرار دهیم. مطابق تصویر زیر از نوار آبشاری بالا Quick Access Toolbar را انتخاب میکنیم و Micro را Add میکنیم.
6- همانطور که میبینید Micro در بالای نوار ابزار شما ظاهر شده است. زمانی که میخواهید ایمیلی را پاسخ دهید کافی است بر روی ایمیل مورد نظر قرار بگیرید و گزینه Mirco را بزنید.
موفق باشد.
