Хүлээн авсан / илгээсэн имэйлийг “Засах” горимд хэрхэн Outlook VBA програмаар автоматаар нээх вэ

Outlook дээр хүлээн авсан эсвэл илгээсэн имэйлийн үндсэн хэсгийг өөрчлөхийн тулд та үүнийг нээгээд дараа нь "Засварлах" горимд оруулах хэрэгтэй. Хэрэв та ийм имэйлд байнга өөрчлөлт оруулах шаардлагатай бол тэдгээрийг "Засварлах" горимд автоматаар нээхийг хүсэх болно. Энэ бичлэг танд үүнийг ойлгоход туслах болно.

Заримдаа та Outlook дээр хүлээн авсан эсвэл илгээсэн имэйлийн агуулгыг өөрчлөх шаардлагатай болж магадгүй. Энэ тохиолдолд өмнөх бичлэгт танилцуулсанчлан - "Хүлээн авсан имэйлийн сэдэв, үндсэн хэсгийг Outlook дээр хэрхэн өөрчлөх вэ“, Та имэйлийг нээгээд“ Үйлдэл ”товчийг дараад“ Засварлах мессеж ”-ийг сонгоод имэйлийг“ Засах ”горимд хөрвүүлэх хэрэгтэй. Гэсэн хэдий ч та үүнийг жаахан асуудалтай гэж бодож магадгүй юм. Тиймээс Outlook-д хүлээн авсан / илгээсэн имэйлийг “Засах” горимд үргэлж нээж байхыг хүсч байна. Цаашид бид энэхүү функцэд хүрэхийн тулд VBA кодыг хэрхэн ашиглах талаар танилцуулах болно. Одоо дэлгэрэнгүй алхмуудыг авахын тулд уншина уу.

Хүлээн авсан / илгээсэн имэйлийг “Засах” горимд автоматаар нээнэ үү

1. Хамгийн эхэнд “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ“, Outlook VBA засварлагч руу нэвтрэх.
2. Дараа нь дараахь VBA кодыг хуулж аваад “ThisOutlookSession” төсөлд оруулна уу.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

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

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Үүний дараа "Application_Startup" макро руу ороод "F5" товчийг дарна уу.
4. Одоогийн байдлаар VBA редакторыг хаа.
5. Эцэст нь та хичээгээд үзээрэй. Хүлээн авсан эсвэл илгээсэн захидлыг хоёр дарж нээнэ үү. Энэ нь "Засах" горимд байх нь дамжиггүй.

Outlook-ийн өгөгдлийн алдагдлаас дархлаа

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

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

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