Ինչպե՞ս պատասխանել բոլորը Outlook- ի բնօրինակ կցորդներով:
Սովորաբար, երբ կիրառեք «Պատասխանել բոլոր» գործառույթը ՝ Outlook- ի բոլոր հասցեատերերին հաղորդագրությունը պատասխանելու համար, բնօրինակ կցորդները կկորչեն ինքնաբերաբար: Հնարավո՞ր է Outlook- ում բոլորին պատասխանելիս կցել բնօրինակ կցորդներ:
Պատասխանեք բոլորը VBA կոդով բնօրինակ հավելվածներով
Պատասխանեք բոլորին բնօրինակ հավելվածներով Kutools- ի հետ Outlook- ի համար
Պատասխանեք բոլորը VBA կոդով բնօրինակ հավելվածներով
Outlook- ում այս առաջադրանքով զբաղվելու ուղղակի հնարավորություն չկա, բայց դրան հասնելու համար կարող եք կիրառել հետևյալ VBA կոդը: Խնդրում ենք անել ստորև նշված քայլերով.
1, Գործարկեք Outlook- ը և այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:
VBA կոդ. Պատասխանել բոլորին բնօրինակ աղտոտումներով.
Sub ReplyAllWithAttachments()
'Updateby Extendoffice
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
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
3. Եվ այնուհետեւ կտտացրեք Գործիքներ > Սայլակ է Microsoft Visual Basic հավելվածների համար պատուհանը դուրս եկավ Հղումներ-նախագիծ 1 երկխոսության տուփ, ստուգեք Microsoft Scripting Runtime տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
4. Այնուհետև պահպանեք և փակեք ծածկագրի պատուհանը, այնուհետև կարող եք ավելացնել մակրո կոճակը Արագ մուտք Գործիքադարակը.
5. Բացեք էլփոստը, որին ցանկանում եք բոլորին պատասխանել կցորդով հաղորդագրություն պատուհան, ապա ընտրեք Ավելի շատ հրամաններ - ից Անհատականացրեք Արագ մուտքի Գործիքադարակը բաց թողեք, տես նկարի նկարը.
6, Մեջ Outlook տարբերակները երկխոսության տուփ, կատարեք հետևյալ գործողությունները.
(1.) Ընտրեք Մակրո - ից Ընտրեք հրամաններ բացվող ցուցակ;
(2.) Սեղմեք մակրո անունը, որը դուք տեղադրել եք հենց հիմա;
(3.) Եվ ապա կտտացրեք Ավելացնել կոճակը մակրո մեջ ավելացնելու համար Անհատականացրեք Արագ մուտքի Գործիքադարակը.
7. Այնուհետեւ կտտացրեք OK երկխոսության տուփը փակելու համար այժմ մակրո կոճակը տեղադրվել է մեջ Արագ մուտք Գործիքադարակը, տես նկարի նկարը.
8. Այժմ սեղմեք մակրո կոճակը, և պատասխան հաղորդագրության պատուհանը բացվում է բնօրինակ հավելվածներով, այնուհետև կազմեք պատասխանող հաղորդագրությունը և սեղմեք ուղարկել կոճակը, տես նկարի նկարը.
Պատասխանեք բոլորին բնօրինակ հավելվածներով Kutools- ի հետ Outlook- ի համար
Եթե դուք ունեք Outlook- ի համար նախատեսված գործիքներԻր Պատասխանել բոլորը կցորդով հնարավորություն, դուք կարող եք բոլորին պատասխանել միայն մեկ սեղմումով հավելվածներով:
Outlook- ի համար նախատեսված գործիքներ : ավելի քան 100 հարմարավետ Outlook հավելումներով, 60 օրվա ընթացքում փորձեք առանց սահմանափակումների. |
Տեղադրելուց հետո Outlook- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1. Ընտրեք այն հաղորդագրությունը, որին ցանկանում եք բոլորին պատասխանել հավելվածներով, այնուհետև սեղմեք Կուտոլս > Պատասխանել կցորդով > Պատասխանել բոլորը կցորդով, տես նկարի նկարը.
2. Եվ պատասխան հաղորդագրության պատուհանը բացվում է բնօրինակ հավելվածներով, այնուհետև կազմեք ձեր հաղորդագրությունը և ուղարկեք այն, տես սքրինշոթը.
Կտտացրեք Kutools- ը Outlook- ի և անվճար փորձաշրջանի համար ներբեռնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: