როგორ ჩავსვათ ავტომატური მიმდინარე თარიღი ან დრო ელფოსტის საგანში ან ტექსტში Outlook VBA-ით

ბევრი მომხმარებელი მიჩვეულია ელ. ფოსტის სათაურში ან ტექსტში მიმდინარე თარიღის ან დროის ჩასმას ახალი ელფოსტის შედგენისას. ეს სტატია გასწავლით თუ როგორ მიაღწიოთ ამას სწრაფად.

წინა გვost - "როგორ ავტომატურად დავამატოთ მიმდინარე თარიღი თქვენი Outlook ელ.ფოსტის თემებზე”, შეგიძლიათ გაიგოთ, თუ როგორ ავტომატურად დაამატოთ მიმდინარე თარიღი ან დრო თემაში. მაგრამ მეთოდი იმ პost უბრალოდ შექმნათ შეტყობინების ფორმა. ამრიგად, ამ გზით, ყოველ ჯერზე, როდესაც გსურთ შექმნათ ახალი ელფოსტა მიმდინარე თარიღით ან დროით თემაში, თქვენ უნდა აირჩიოთ მორგებული ფორმა ახალი ელფოსტის შექმნის ნაცვლად, როგორც ყოველთვის. ცხადია, ეს საკმაოდ რთული იქნება.

სინამდვილეში, Outlook-მა უკვე შემოგვთავაზა მშობლიური ველი თარიღის ან დროის ჩასასმელად. ასევე, შეგიძლიათ გამოიყენოთ Outlook VBA, რათა ავტომატურად ჩადოთ მიმდინარე თარიღი ან დრო ახალი ელფოსტის ტექსტში ან თემაში. რაც შეეხება მეთოდს, რომელსაც აირჩევთ, ეს დამოკიდებულია იმაზე, თუ რამდენად ხშირად გჭირდებათ თარიღის ან დროის ჩასმა.

ხელით ჩასვით „თარიღი და დრო“ ველით

1. სtarერთად, გაუშვით Outlook.
2. შემდეგ შექმენით ახალი შეტყობინება ღილაკზე „ახალი ელფოსტა“ დაწკაპუნებით „ახალი“ ჯგუფში „მთავარი“ ჩანართში.
3. ამის შემდეგ, ახალი შეტყობინების ფანჯარაში, შეგიძლიათ დააწკაპუნოთ ელ.ფოსტის ტექსტში და გადახვიდეთ ჩანართზე „ჩასმა“.
4. შემდეგ შეგიძლიათ იპოვოთ და დააწკაპუნოთ ველზე „თარიღი და დრო“ „ტექსტი“ ჯგუფში.
5. ამის შემდეგ გამოჩნდება ახალი დიალოგური ფანჯარა. თქვენ შეგიძლიათ აირჩიოთ ხელმისაწვდომი ფორმატი და შემდეგ დააწკაპუნოთ ღილაკს "OK".
6. შეტყობინების ფანჯარაში დაბრუნების შემდეგ, შეგიძლიათ იხილოთ მიმდინარე თარიღი ან დრო ელფოსტის ტექსტში. ნაგულისხმევად, Outlook არ გაძლევთ უფლებას, გამოიყენოთ ველი „თარიღი და დრო“ თემაზე.
7. ამრიგად, დაბოლოს, თუ გსურთ ჩასვათ თარიღი ან დრო თემაში, თქვენ უნდა დააკოპიროთ ისინი სხეულისგან და ხელით ჩასვათ თემაში.

ეს მეთოდი უფრო რეკომენდებულია, თუ იშვიათად გჭირდებათ მიმდინარე თარიღის ან დროის ჩასმა. მაგრამ იმ პირობით, რომ ხშირად ან ყოველთვის გჭირდებათ ჩასმა, უმჯობესია გამოიყენოთ შემდეგი VBA კოდები, რომ მიაღწიოთ მას ავტომატურად.

ავტომატური ჩასმა Outlook VBA-ით

1. პირველ რიგში, დააჭირეთ "Alt + F11" ღილაკებს VBA რედაქტორზე წვდომისთვის.
2. შემდეგ ორჯერ დააწკაპუნეთ "ThisOutlookSession" პროექტზე მარცხენა მხარეს მის გასახსნელად.
3. შემდეგ დააკოპირეთ მასში შემდეგი კოდები.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

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

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

შენიშვნა: ზემოაღნიშნული კოდები იმუშავებს მიმდინარე დროის ავტომატური ჩასმა საგანსა და სხეულში. თუ გსურთ მიმდინარე თარიღის ჩასმა, შეცვალეთ "objMail_Open” sub შემდეგით:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. შემდეგ, როგორც ყოველთვის, მოაწერეთ ხელი ამ კოდს.
5. მოგვიანებით, რეზtart Outlook მაკროს გასააქტიურებლად.
6. საბოლოოდ შეგიძლიათ სცადოთ.

• პირდაპირ დააწკაპუნეთ ღილაკზე „ახალი ელფოსტა“ ახალი ელფოსტის გასახსნელად.
• თქვენ ნახავთ, რომ ახალი ელ.ფოსტის ავტომატიკა შეიცავს მიმდინარე თარიღს ან დროს თემასა და ტექსტში, როგორც ქვემოთ მოცემული სურათი:

ადვილად ნუ ენდობით უცნობ წერილებს

თქვენ ოდესმე უნდა მიგიღიათ უსარგებლო ელ.წერილი. ჩვეულებრივ როგორ უმკლავდებით მათ? არ არის მიზანშეწონილი დანართების ჩამოტვირთვა ან ბმულების გახსნა ამ ტიპის წერილებში, რადგან ისინი შეიძლება შეიცავდეს ვირუსებს. როგორც კი თქვენი Outlook მონაცემები დაინფიცირდება, შემოსულების შეკეთების ხელსაწყო Scanpst.exe არ მოახდენს ეფექტებს. ამ შემთხვევაში სხვა გზა არ გაქვს, უფრო გამოცდილს მიმართო PST შესწორება ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებულია SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად