Kā automātiski atvērt saņemtos / nosūtītos e-pastus režīmā “Rediģēt”, izmantojot programmu Outlook VBA

Lai programmā Outlook mainītu saņemtā vai nosūtītā e-pasta pamattekstu, tas ir jāatver un pēc tam jāpārslēdz “Rediģēšanas” režīmā. Ja šādos e-pastos bieži ir jāveic izmaiņas, ieteicams tos automātiski atvērt “Rediģēšanas” režīmā. Šis ieraksts jums palīdzēs to izdarīt.

Reizēm programmā Outlook var būt nepieciešams mainīt saņemtā vai nosūtītā e-pasta saturu. Šādā gadījumā, kā aprakstīts iepriekšējā ierakstā — “Kā modificēt Outlook saņemto e-pastu tēmu un pamattekstu“, Jums jāatver e-pasts un jānoklikšķina uz pogas“ Darbības ”un jāizvēlas“ Rediģēt ziņojumu ”, lai e-pastu pārveidotu režīmā“ Rediģēt ”. Tomēr jūs domājat, ka tas joprojām ir nedaudz traucējošs. Tādēļ vēlaties, lai programma Outlook vienmēr atvērtu saņemtos / nosūtītos e-pastus režīmā “Rediģēt”. Turpmāk mēs iepazīstināsim, kā izmantot VBA kodu, lai sasniegtu šo funkciju. Tagad lasiet tālāk, lai iegūtu detalizētas darbības.

Automātiski atveriet saņemtos / nosūtītos e-pastus režīmā “Rediģēt”

1. Jau pašā sākumā, atsaucoties uzKā palaist VBA kodu programmā Outlook“, Piekļūstiet Outlook VBA redaktoram.
2. Pēc tam nokopējiet un ielīmējiet šo VBA kodu projektā “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. Pēc tam noklikšķiniet uz makro “Application_Startup” un nospiediet taustiņu “F5”.
4. Pašlaik aizveriet VBA redaktoru.
5. Visbeidzot, jūs varat izmēģināt. Vienkārši veiciet dubultklikšķi uz saņemtā vai nosūtītā pasta, lai to atvērtu. Tas noteikti darbosies režīmā “Rediģēt”.

Imūnsistēma no Outlook datu zaudēšanas

Vai jūsu PST fails kādreiz ir kļuvis pieejams? Patiesībā Outlook PST fails var viegli sabojāties. Piemēram, e-pastā izplatītie vīrusi var viegli izraisīt Outlook avāriju un tādējādi izraisīt Outlook datu bojājumus. Šādos gadījumos pirmā izšķiršanās, kas notiek ar jūsu prātu, var būt iesūtnes labošanas rīks. Tomēr kopumā runājot, tā nespēj tikt galā ar šādām nopietnām situācijām. Tādējādi vienmēr tiek ieteikts regulāri dublēt PST failus, lai jūs varētu atjaunot PST datus no dublējumiem, piemēram, korķa. Pretējā gadījumā jums ir jāatgriežas pie specializēta ārēja rīka, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar