Mund të jetë mjaft e rrezikshme dhe e pasigurt nëse dërgoni email-e që përmbajnë informacionin tuaj privat. Prandaj, ky postim do t'ju prezantojë një metodë që mund t'ju lejojë Outlook-un t'ju pyesë përpara se të dërgoni email-e të tilla.
Në ditët e sotme, kërcënimet e mundshme të sigurisë janë kudo. Kështu, ne duhet të bëjmë shumë përpjekje për të ruajtur informacionin tonë privat, si kartat e kreditit, fjalëkalimet e ndryshme të llogarive dhe informacione të tjera të ndjeshme, etj. Prandaj, duhet t'i kushtoni vëmendje sjelljeve tuaja të përditshme në internet, duke përfshirë komunikimet në MS Outlook.
Më konkretisht, duhet të jeni të kujdesshëm kur dërgoni email për të parandaluar që ndonjë nga informacioni juaj privat të rrjedhë përmes emaileve. Në këtë rast, ndoshta do të dëshironi që Outlook t'ju kërkojë automatikisht përpara se të dërgoni email që përmbajnë informacionin tuaj privat. Në vijim, ne do t'ju udhëzojmë se si ta realizoni atë nëpërmjet VBA.
Merrni një konfirmim përpara se të dërgoni email me informacionin tuaj privat
- Që në fillim, ju duhet të specifikoni informacionin tuaj privat. Meqenëse zakonisht ruaj të gjitha informacionet e mia private në një skedar Excel, do ta marr një shembull, si pamja e mëposhtme e ekranit:
- Nëse e keni ruajtur një skedar të tillë Excel, mund të nisni aplikacionin tuaj Outlook.
- Pastaj shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
- Më pas gjeni dhe hapni projektin "ThisOutlookSession" në redaktorin VBA të Outlook.
- Më pas, kopjoni kodet e mëposhtme VBA në këtë dritare të projektit.
Private Sub Application_ItemSend(ByVal objItem As Object, Cancel As Boolean)
Dim strItemBody As String
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nRow, nColumn As Integer
Dim strSensitiveInfo As String
Dim strMsg As String
Dim nResponse As Integer
strItemBody = objItem.Body
'Specify the source Excel file
strExcelFile = "E:\MyPrivacy.xlsx"
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Privacy")
nRow = 1
nColumn = 1
Do While objExcelWorksheet.Cells(nRow, nColumn) <> ""
strSensitiveInfo = objExcelWorksheet.Cells(nRow, nColumn)
'Check if the email body contains the private information
If InStr(strItemBody, strSensitiveInfo) > 0 Then
strMsg = "The current item contains sensitive information. Do you still want to send it?"
nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Check Sensitive Information")
If nResponse = vbYes Then
Cancel = False
Else
Cancel = True
End If
Exit Do
End If
nRow = nRow + 1
nColumn = nColumn + 1
Loop
End Sub
- Pas kësaj, nënshkruani këtë kod dhe ndryshoni cilësimet tuaja makro të Outlook.
- Që tani e tutje, çdo herë kur dërgoni email, Outlook do të kontrollojë automatikisht nëse trupi i tij përmban ndonjë informacion të skedarit Excel.
- Nëse përmban, do të merrni një konfirmim si imazhi më poshtë:
- Nëse zgjidhni "Po", emaili do të dërgohet si zakonisht. Përndryshe, dërgimi do të anulohet.
Ruani të dhënat tuaja të vlefshme PST
Për shkak të faktit se Outlook është i prekshëm, është një detyrë e mundimshme për të mbrojtur të dhënat tuaja PST. Së pari, duhet të vazhdoni të bëni kopje rezervë të rregullt për skedarin tuaj PST. Përveç kësaj, ju duhet të mbani një të fuqishëm dhe të provuar mirë Riparimi i PST mjet i dobishëm, si DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com