Ako automaticky brať prvý riadok tela ako predmet pred odoslaním e-mailu programu Outlook bez predmetu

Niektorí používatelia si želajú, aby program Outlook automaticky odoslal prvý riadok tela e-mailu ako predmet pri odosielaní e-mailu, ktorý nemá žiadny predmet. Teraz v tomto článku predstavíme metódu jej realizácie prostredníctvom kódu VBA.

Viacerí používatelia pri vytváraní a odosielaní e-mailov často zabudnú zadať predmet. Zvyčajne teda dúfajú, že program Outlook môže automaticky vyplniť predmet prvým riadkom tela e-mailu, ak odchádzajúci e-mail nemá žiadny predmet. Ďalej s vami zdieľame ľahkú a praktickú metódu.

Automaticky Pred odoslaním e-mailu bez predmetu vezmite prvý riadok tela ako predmet

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom postupujte podľa krokov v časti „Ako spustiť kód VBA v programe Outlook„, Môžete sa dostať do editora VBA.
3. Ďalej v editore VBA pridajte odkaz na „MS Word Object Library “v súlade s„Ako pridať objekt Library Odkaz vo VBA".
4. Neskôr skopírujte nižšie uvedený kód do projektu „ThisOutlookSession“.

Private WithEvents objInspectors As Outlook.Inspectors

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

5. Potom umiestnite kurzor na „Application_Startup “a stlačte„ F5 “.
6. Nakoniec to môžete vyskúšať.

• Najskôr vytvorte a vytvorte e-mail s prázdnym iba predmetom.
• Potom kliknite na tlačidlo „Odoslať“.
• Neskôr dostanete správu s otázkou, či ako predmet brať prvý riadok tela.
• Pokiaľ vyberiete tlačidlo „Áno“, prvý riadok tela e-mailu sa extrahuje a použije ako predmet a e-mail sa odošle.

Chráňte svoje údaje programu Outlook

Vo vašom Outlooku je určite niekoľko významných e-mailov a ďalších položiek. Musíte byť teda neochotní naraziť na stratu údajov Outlooku. Potom budete musieť podniknúť určité kroky, napríklad pravidelné zálohovanie údajov vášho Outlooku, naučenie sa používať vstavaný nástroj na opravu opraviť Outlook chyby a príprava robustného externého nástroja na obnovenie. DataNumen Outlook Repair je dobrá voľba kvôli vysokej miere obnovy PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S