Тодорхой илгээгчээс ирсэн Outlook имэйлийн хавсралтыг хэрхэн автоматаар нээх вэ

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

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

Тодорхой илгээгчээс ирсэн имэйлийн хавсралтыг автоматаар нээх

1. Эхлэхийн тулд Outlook програмыг ажиллуулна уу.
2. Дараа нь VBA засварлагч руу "Alt + F11" товчлолоор хандана уу.
3. Дараа нь дараах VBA кодыг "ThisOutlookSession" төсөлд оруулна уу.

Private Declare Function GetShortPathName Lib "kernel32" _
 Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
 ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

'Occurs when new item arrives in Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objWsShell As Object
    Dim strTempFolder As String
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Attachment
    Dim strFileName As String
 
    If Item.Class = olMail Then
       Set objMail = Item
       'Change sender email address
       If objMail.SenderEmailAddress = "boss@datanumen.com" Then
          Set objWShell = CreateObject("WScript.Shell")
          strTempFolder = Environ("Temp") & "\"
 
          Set objWsShell = CreateObject("WScript.Shell")
          Set objAttachments = objMail.Attachments
          If objAttachments.Count > 0 Then
             For Each objAttachment In objAttachments
                 strFileName = objAttachment.DisplayName
                 On Error Resume Next
                 Kill strTempFolder & strFileName
                 On Error GoTo 0
 
                 'Save the attachment
                 objAttachment.SaveAsFile strTempFolder & strFileName
 
                 'Open the attachment
                 strFileName = GetShortFileName(strTempFolder & strFileName)
                 On Error Resume Next
                 objWsShell.Run strFileName
             Next
          End If
        End If
    End If
End Sub

Function GetShortFileName(ByVal FullPath As String) As String
    Dim lAns As Long
    Dim sAns As String
    Dim iLen As Integer
 
    On Error Resume Next

    If Dir(FullPath) <> "" Then
       sAns = Space(255)
       lAns = GetShortPathName(FullPath, sAns, 255)
       GetShortFileName = Left(sAns, lAns)
    End If
End Function

4. Дараа нь VBA редакторыг хаах хэрэгтэй.
5. Эцэст нь шинэ макрог идэвхжүүлэхийн тулд Outlook програмаа дахин эхлүүлнэ үү.
6. Одооноос эхлэн таны ирсэн имэйл хайрцагт тодорхой илгээгчээс шинэ захидал ирэх бүрт Outlook автоматаар энэ шуудангийн хавсралтыг нээх болно.

Ирсэн имэйлийг засах хэрэгслийг ашиглана уу

Таны Outlook өгөгдлийн файл эвдэрсэн үед та юу хийх вэ? Үнэн хэрэгтээ та эхлээд Outlook засах хэрэгслийг ашиглаж болно. Сканнердах. Энэ нь таны Outlook-тэй холбоотой жижиг асуудлуудыг шийдвэрлэх боломжтой. Хэрэв энэ хэрэгсэл амжилтгүй болсон бол илүү туршлагатай, найдвартай гадны хэрэгсэлд хандах цаг болжээ. DataNumen Outlook Repair.

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

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