ყოველ ჯერზე, როდესაც განაახლებთ კონკრეტულ Excel-ის სამუშაო ფურცელს, თუ ყოველთვის გჭირდებათ ელ.ფოსტის შეტყობინების გაგზავნა კონკრეტულ მიმღებებზე, შეგიძლიათ გამოიყენოთ ამ სტატიაში დანერგილი მეთოდი.
ზოგიერთი მომხმარებელი ითხოვს გამოსავალს, რათა MS Excel-ს ავტომატურად გაუგზავნოს Outlook ელფოსტის შეტყობინება კონკრეტულ პირებზე ყოველ ჯერზე, როდესაც ისინი განაახლებს კონკრეტულ სამუშაო ფურცელს, რადგან ხშირად ავიწყდებათ ასეთი ელ.ფოსტის გაგზავნა. ახლა, შემდეგში, ჩვენ გასწავლით, თუ როგორ მივაღწიოთ ამ ფუნქციას VBA კოდით.
ელ.ფოსტის ავტომატური გაგზავნა, როდესაც განახლდება კონკრეტული Excel სამუშაო ფურცელი
- პირველ რიგში, მიიღეთ წვდომა წყარო Excel სამუშაო წიგნზე, რომელიც შეიცავს კონკრეტულ სამუშაო ფურცელს.
- შემდეგ, MS Excel-ის ფანჯარაში გადადით "ფაილი" მენიუში და აირჩიეთ "ოფციები".
- შემდეგ, "Excel Options" ფანჯარაში გადადით "Trust Center" ჩანართზე და დააჭირეთ ღილაკს "Trust Center Settings".
- ამის შემდეგ, ახალ ფანჯარაში გადადით "მაკრო პარამეტრების" ჩანართზე, სადაც უნდა აირჩიოთ "ყველა მაკროსის ჩართვა".
- ამის შემდეგ გადადით „კონფიდენციალურობის პარამეტრები“ ჩანართზე და ჩართეთ ფუნქცია „შენახვისას ფაილის თვისებებიდან პირადი ინფორმაციის წაშლა“.
- შემდეგ დააწკაპუნეთ რამდენიმე "OK" ამ პარამეტრების შესანახად.
- Excel-ის სამუშაო წიგნში დაბრუნების შემდეგ, შედით კონკრეტულ სამუშაო ფურცელზე.
- დააწკაპუნეთ მარჯვენა ღილაკით სამუშაო ფურცლის სახელზე ქვედა გვერდითა ზოლში და აირჩიეთ "კოდის ნახვა".
- ამის შემდეგ დააკოპირეთ შემდეგი VBA კოდი კონკრეტული ფურცლის პროექტში.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- ამის შემდეგ, თქვენ უნდა შეინახოთ ეს სამუშაო წიგნი, როგორც Excel მაკრო ჩართული სამუშაო წიგნი.
- პირველი, დახურეთ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარა.
- შემდეგ დააჭირეთ ღილაკს "ფაილი" მარცხენა ზედა კუთხეში.
- შემდეგი, აირჩიეთ "შენახვა როგორც".
- დიალოგურ ფანჯარაში აირჩიეთ "Excel მაკრო ჩართული სამუშაო წიგნი" "შენახვა როგორც ტიპის" ველში.
- ბოლოს დააჭირეთ ღილაკს "შენახვა".
- საბოლოოდ, შეგიძლიათ დახუროთ ეს სამუშაო წიგნი.
- ახლა თქვენ შეგიძლიათ გახსნათ ადრე შენახული Excel მაკრო ჩართული სამუშაო წიგნი.
- როდესაც რაიმე ცვლილებას განახორციელებთ კონკრეტულ სამუშაო ფურცელში, მიიღებთ შეტყობინებას ელ.ფოსტის შეტყობინების გაგზავნის შესახებ.
- როდესაც დააჭირეთ "დიახ" ღილაკს, Outlook ელ.წერილი გაიგზავნება წინასწარ განსაზღვრულ მიმღებებზე.
- ეს ელფოსტა ქვემოთ მოცემულ ეკრანის სურათს ჰგავს:
შეაკეთეთ დაზიანებული Outlook მონაცემთა ფაილი
შესაძლოა, ოდესმე შეგხვედრიათ Excel ფაილის კორუფცია. სინამდვილეში, Outlook მონაცემთა ფაილი ისეთივე დაუცველია, როგორც Excel ფაილი. მაგალითად, Outlook-ის არასწორად დახურვამ შეიძლება გამოიწვიოს PST ფაილის ადვილად გაფუჭება. აქედან გამომდინარე, აუცილებელია ზომების მიღება Outlook ფაილის დასაცავად, მათ შორის მონაცემთა რეგულარული სარეზერვო ასლების გაკეთება, ასევე ძლიერი PST გამოსწორების ინსტრუმენტის მომზადება, როგორიცაა DataNumen Outlook Repair. ეს პროგრამა საკმარისად ძლიერია PST შეკეთება პრობლემები და აღადგინეთ PST მონაცემები.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად