Outlook дээр хариу бичихдээ имэйлийн эх хавсралтыг хадгалах 6 арга

Одоо хуваалцах:

Олон хэрэглэгчид имэйлд хариу бичихдээ анхны имэйлийн хавсралтыг хадгалахын тулд Outlook-аа тохируулах болно гэж найдаж байна. Энэ нийтлэл нь 5 тойрон гарах арга замыг мөн VBA ашиглан үүнийг автоматаар хэрэгжүүлэх ухаалаг аргыг илчлэх болно.

Outlook нь имэйлд хариу бичихдээ эх хавсралтыг хадгалах унаган шинж чанаргүй гэж гомдоллож буй олон хэрэглэгчдийг би сонссон. Тиймээс бид энд 6 аргыг хуваалцах болно. Үүний нэг нь VBA-г ашиглан Outlook програмыг анхны имэйлийг хариу мэйлд автоматаар хавсаргахад ашигладаг. Одоо тэдгээрийг нарийвчлан авахын тулд уншина уу.

Outlook дээр хариу бичихдээ эх имэйлийн хавсралтаа хадгалаарай

1. Эх имэйлийг хавсарган хариу бичнэ үү

Outlook нь имэйлд хариу бичихдээ анхны имэйлийн хавсралтыг хадгалах боломжийг олгодоггүй боловч хэрэглэгчдэд анхны имэйлийг хавсаргах боломжийг олгодог. Тиймээс энэ нь танд заавал хийх шийдэл юм. Хариултын тохиргоог өөрчлөхийн тулд та "Файл"> "Сонголтууд"> "Шуудан"> "Хариулт ба дамжуулалт" гэсэн хэсгийг сонгож болно. Илүү дэлгэрэнгүйг миний өмнөх нийтлэлээс үзэхийг зөвлөж байна - “Outlook дахь анхны хавсралтуудаар хариу бичих 5 алхам”. Гэхдээ, хэрэв та зөвхөн эх хавсралтаа хадгална гэж найдаж байгаа бол бусад арга хэрэгслийг сурч мэдээрэй.

2. Хавсралтуудыг гараар чирж, унагах

  1. Эхлээд ийм эх имэйлийг тусдаа цонхонд нээхийн тулд давхар товшино уу.
  2. Дараа нь хариу бичих имэйлийг гаргаж ирэх "Хариу" товчийг дарна уу.
  3. Дараа нь та мессежийн хоёр цонхыг хоёуланг нь ижил дэлгэц дээр харах хүртэл багасгах хэрэгтэй.
  4. Үүний дараа анхны имэйлийн бүх хавсралтыг сонгоно уу.
  5. Эцэст нь тэдгээрийг хариу имэйлийн "Хавсаргасан" мөр рүү чирээд хаяна уу.Хавсралтуудыг гараар чирж, унагах

3. Хавсралтуудыг гараар хуулж буулгах

  1. Эхний ээлжинд эх имэйлийг нээсний дараа бүх хавсралтыг сонгоно уу.
  2. Дараа нь "Хавсралт" табын доор байрлах "Хуулах" товчийг дарна уу.Бүх хавсралтыг хуулах
  3. Үүний дараа "Мессеж" табын доор байгаа "Хариулах" товчийг дарж хариу илгээх захидлыг нээнэ үү.
  4. Эцэст нь хариу захидал дээр "Хавсаргасан" мөрийг дарж "Ctrl + V" товчийг дарж өмнө нь хуулсан хавсралтыг буулгана уу.

4. Имэйлийг дамжуулж, хүлээн авагчийг бөглөнө үү

  1. Нэгдүгээрт, ийм имэйлийг сонгоод дараа нь туузан дээрх "Дамжуулах" товчийг дарна уу.
  2. Шинээр гарч ирсэн мессеж цонхонд эх хавсралтууд хадгалагдана. Одоо та анхны имэйлийг илгээгчид "To" гэсэн хэсгийг бөглөх хэрэгтэй.
  3. Сонголтоор та сэдвийг өөрийн хэрэгцээнд нийцүүлэн өөрчилж болно.

5. Энэ имэйлийг дахин илгээх, хүлээн авагчдыг өөрчлөх

  1. Эхлэхийн тулд эх имэйлийг нээнэ үү.
  2. Дараа нь "Move" бүлгийн "Үйлдэл" товчийг дарна уу.
  3. Дараа нь унах жагсаалтаас "Энэ мессежийг дахин илгээх" -ийг сонгоно уу.
  4. Магадгүй та анхны илгээгч биш гэдгээ мэдэгдэх болно. Үүнийг үл тоомсорлож, "Тийм" гэж дараарай.
  5. Дараагийн шинэ имэйлд та "Имэйл" талбарыг анхны имэйлийн илгээгч болгон өөрчлөх хэрэгтэй.
  6. Түүнчлэн, имэйлийн данс ашиглан илгээж буй хаягаа өөрийн данс болгон өөрчлөхийг санаарай.

6. VBA-ээр эх хавсралтуудыг автоматаар нэмэх

Дээр дурдсан бүх хандлага нь үнэнийг хэлэхэд, шийдвэрлэх арга зам юм. Хэрэв та хариу бичихдээ Outlook нь эх хавсралтыг автоматаар хадгалж чадна гэж найдаж байгаа бол энэ аргыг ашиглаж болно.

  1. Outlook-ийн үндсэн цонхонд “Alt + F11” товчийг дарна уу.
  2. Дараа нь "Програмд ​​зориулсан Microsoft Visual Basic" цонхонд доорхи VBA кодыг "ThisOutlookSession" төсөлд хуулж ав.
Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

VBA код - Хариулахдаа эх имэйлийн хавсралтаа хадгалаарай

  1. Дараа нь энэ макро дээр гарын үсэг зурж, гарын үсэг зурсан макроудыг зөвшөөрөхийн тулд Outlook макро тохиргоогоо өөрчилнө үү.
  2. Үүний дараа энэ VBA төслийг идэвхжүүлэхийн тулд Outlook програмаа дахин эхлүүлнэ үү.
  3. Одооноос эхлэн "Хариулах" товчийг дарах бүрдээ. Хариултын имэйлийг нэг дор эх хавсралттай харуулах болно.

Урьдчилан засах хэрэгслийг амрах

Outlook нь олон тооны онцлог шинж чанаруудаас шалтгаалан бусад имэйлийн үйлчлүүлэгчдийг хамарсан болно. Гэхдээ энэ нь авлигад өртөмтгий хэвээр байна. Тиймээс та түүний эрүүл мэндэд илүү их анхаарал хандуулах хэрэгтэй. Ерөнхийдөө, жижиг асуудлуудтай тулгарах үед та зүгээр л суулгасан засах хэрэгсэл дээр давтаж болно. Гэсэн хэдий ч, хэрэв та ноцтой бэрхшээлтэй тулгарвал илүү чадварлаг хэрэгсэл болох жишээ нь DataNumen Outlook RepairБайна. Ингэж чаддаг Outlook засах агшин зуур файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.