Inviare email contenenti informazioni private può essere piuttosto pericoloso e rischioso. Pertanto, questo articolo illustrerà un metodo che consente a Outlook di avvisarti prima dell'invio di tali email.
Al giorno d'oggi, le potenziali minacce alla sicurezza sono ovunque. Pertanto, dovremmo fare molti sforzi per salvaguardare le nostre informazioni private, come carte di credito, varie password di account e altre informazioni sensibili, ecc. Pertanto, dovresti prestare attenzione ai tuoi comportamenti online quotidiani, comprese le comunicazioni in MS Outlook.
Più specificamente, dovresti essere cauto quando invii e-mail per evitare che le tue informazioni private vengano trapelate tramite e-mail. In questo caso, forse desidererai che Outlook possa chiederti automaticamente prima di inviare messaggi che contengono le tue informazioni private. Di seguito, ti guideremo come realizzarlo tramite VBA.
Ottieni una conferma prima di inviare e-mail con le tue informazioni private
- All'inizio, devi specificare le tue informazioni private. Poiché di solito memorizzo tutte le mie informazioni private in un file Excel, ne prenderò un'istanza, come il seguente screenshot:
- Se hai conservato un file Excel di questo tipo, puoi avviare l'applicazione Outlook.
- Quindi premere i pulsanti "Alt + F11" nella finestra principale di Outlook.
- Quindi trova e apri il progetto "ThisOutlookSession" nell'editor VBA di Outlook.
- Successivamente, copia i seguenti codici VBA in questa finestra del progetto.
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
- Successivamente, firma questo codice e modifica le impostazioni della macro di Outlook.
- D'ora in poi, ogni volta che invii e-mail, Outlook controllerà automaticamente se il suo corpo contiene informazioni del file Excel.
- Se contiene, riceverai una conferma come l'immagine qui sotto:
- Selezionando "Sì", l'e-mail verrà inviata come di consueto. In caso contrario, l'invio verrà annullato.
Proteggi i tuoi preziosi dati PST
A causa del fatto che Outlook è vulnerabile, è un compito arduo difendere i tuoi dati PST. In primo luogo, devi persistere nell'effettuare backup regolari per il tuo file PST. Inoltre, è necessario mantenere un potente e ben collaudato Riparazione PST strumento a portata di mano, come DataNumen Outlook Repair.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com