Si të kontrolloni automatikisht për bashkëngjitjet në email-et specifike dalëse me Outlook VBA

Ndonjëherë, mund të harroni të shtoni bashkëngjitjet e kërkuara në email-e specifike, si p.sh. email për të raportuar punët tuaja javore. Ky artikull do t'ju mësojë të aktivizoni një paralajmërim kërcyes për t'ju parandaluar të dërgoni emaile specifike pa bashkëngjitje.

Ndryshe nga Outlook 2010 dhe versionet e mëparshme, Outlook 2013 ka një mbështetje origjinale për t'ju kujtuar kur nuk keni bashkangjitur asnjë skedar në emailet dalëse. Mund ta aktivizoni këtë veçori në Opsionet e Outlook si pamja e mëposhtme e ekranit:

Për sa kohë që aktivizoni paralajmërimin automatik për bashkëngjitjet që mungojnë, çdo herë që dërgoni një email, do të shfaqet një paralajmërim. Por shumicën e kohës, nuk keni nevojë të bashkëngjitni skedarë. Në raste të tilla, paralajmërimi do të jetë bezdisës. Këtu do t'ju tregojmë se si të aktivizoni një paralajmërim automatik kur nuk ka bashkëngjitje në email-e të caktuara dalëse me anë të Outlook VBA.

Kontrolloni automatikisht për bashkëngjitjet në email-et specifike dalëse

1. Që në fillim, hapni Outlook dhe kaloni në skedën "Zhvilluesi".
2. Klikoni në butonin "Visual Basic" në grupin "Kodi".
3. Pastaj në dritaren e re që shfaqet "Microsoft Visual Basic për Aplikacione", duhet të klikoni dy herë në projektin "ThisOutlookSession" për ta hapur atë.
4. Më pas, duhet të kopjoni kodet e mëposhtme në projektin "ThisOutlookSession".

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Më pas klikoni ikonën e ruajtjes në shiritin e veglave.
6. Pas kësaj, duhet të vazhdoni të nënshkruani këtë kod.

• Së pari, duhet të krijoni një certifikatë dixhitale. MS Office vjen i pajisur me një program të integruar - "Certifikatë Dixhitale për Projekte VBA". Mund ta gjeni duke kërkuar "vba" në "Menynë Start".
• Më pas, kthehuni te dritarja "visual basic" për të nënshkruar kodin.

7. Pas kësaj, dilni nga "Visual Basic" dhe klikoni butonin "Cilësimet makro" nën skedën "Zhvilluesi". Në dialogun "Trust Center", duhet të zgjidhni të aktivizoni vetëm makro të nënshkruara dixhitale. Mos harroni të klikoni "OK" së fundi.
8. Më në fund mund të provoni. Krijo një mesazh të ri me marrës dhe subjekt specifik, por pa bashkëngjitje. Kur klikoni në butonin "Dërgo", do të merrni një paralajmërim kërcyes, i paraqitur si fotografia e mëposhtme:

Mbani të mbrojtura të dhënat tuaja të Outlook

Meqenëse ai Outlook është i prirur ndaj korrupsionit, duhet të bëni përpjekje për të mbrojtur të dhënat tuaja të Outlook. Mënyra më e mirë është të bëni një kopje rezervë të qëndrueshme dhe të përditësuar. Prandaj, ju mund të lehtë rikuperoni të dhënat e korruptuara të Outlook nga kopjet rezervë edhe nëse pëson një përplasje të papritur të Outlook. Për më tepër, nëse kopja rezervë dështon për fat të keq, ju nuk keni zgjidhje tjetër veçse të merrni ndihmë nga një mjet riparimi me përvojë, si p.sh. 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ë riparimi i gabimit SQL db dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com