Si të përgjigjeni automatikisht me emailin origjinal dhe një tekst të paracaktuar përmes Outlook VBA

Zgjidhjet e Outlook Shtator 29, 2025

Nëse po përdorni rregullin e Outlook për t'u përgjigjur automatikisht, do të zbuloni se përgjigjja automatike nuk mund të përfshijë mesazhin origjinal në trup. Ky artikull do të prezantojë një metodë të thjeshtë, e cila mund të futë emailin origjinal dhe tekstin e paracaktuar në trupin e përgjigjes automatike nëpërmjet Outlook VBA.

Në Outlook, llogaritë e Exchange lejojnë përdoruesit të vendosin përgjigjet automatike drejtpërdrejt përmes butonit "Përgjigje automatike" nën skedën "Info" në menunë "File", si pamja e mëposhtme e ekranit:

Përgjigjet automatike në llogarinë MS Excahnge

Por nëse jeni duke përdorur llogarinë e emailit në Internet, pavarësisht nga IMAP ose POP3, nuk ka butonin "Përgjigje automatike" të disponueshme. Mënyra e vetme për të aktivizuar një përgjigje automatike është krijimi i një rregulli të përgjigjes automatike, i paraqitur si imazhi i mëposhtëm:

Rregulli i përgjigjes automatike

Megjithatë, ky lloj përgjigjeje automatike nga rregulli i Outlook nuk mund ta përfshijë automatikisht mesazhin origjinal. Në realitet, shumica e njerëzve do të donin ta bashkëngjitnin emailin origjinal në trupin e mesazhit të përgjigjes automatike. Në raste të tilla, një rregull përgjigjeje automatike nuk mund ta realizojë këtë me siguri. Prandaj, duhet të përdorim kodet VBA të Outlook. Nëse jeni të interesuar, lexoni më tej për të marrë hapat e detajuar dhe kodet VBA.

Përgjigja automatike me emailin origjinal dhe një tekst të paracaktuar

  1. Në fillim, duhet të ktheheni te skeda "Zhvilluesi" dhe të klikoni në butonin "Visual Basic".
  2. Pastaj në dritaren e re "Microsoft Visual Basic për Aplikacione", duhet të klikoni dy herë në projektin "ThisOutlookSession" në anën e majtë.
  3. Pas kësaj, do të hapet projekti "ThisOutlookSession". Tani duhet të kopjoni dhe ngjisni kodet e mëposhtme VBA në të.
Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Kodet VBA të përgjigjes automatike

  1. Më pas, duhet ta nënshkruani këtë kod si zakonisht dhe të vazhdoni të ndryshoni cilësimet e makrove për të lejuar vetëm makro të nënshkruara dixhitale.
  2. Së fundi, pas përfundimit të hapave të mësipërm, Outlook do të dërgojë automatikisht një përgjigje me informacionin origjinal të mesazhit në trup. Do të duket si imazhi më poshtë:Përgjigja automatike me emailin origjinal dhe një tekst të paracaktuar

Shënim: Pa marrë parasysh përgjigjen automatike duke përdorur rregullin ose përgjigjen automatike duke përdorur kodet VBA, të dyja mund të bëjnë efekte vetëm kur Outlook është në punë.

Adresoni gabimet e të dhënave të Outlook

Pa asnjë dyshim, Outlook nuk mund të jetë imun ndaj gabimeve. Prandaj, është thelbësore që përdoruesit e rregullt të Outlook të marrin disa truke për t'i adresuar ato. Natyrisht, mënyra më e mirë për të përballuar Dëmtimi i të dhënave të Outlook po bën një kopje rezervë të rregullt. Për sa kohë që të keni një kopje rezervë efektive, do të jeni të qetë edhe nëse Outlook rrëzohet. Sigurisht, jashtë sigurimit, është më mirë të mbani në dispozicion edhe një mjet të fuqishëm riparimi.

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 korrupsionit të skedarit SQL mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.