Kako automatski odgovoriti izvornom e-poštom i unaprijed definiranim tekstom putem programa Outlook VBA

Outlook rješenja 29. rujna 2025.

Ako koristite Outlookovo pravilo za automatski odgovor, otkrit ćete da automatski odgovor ne može uključivati izvornu poruku u tijelu. Ovaj članak predstavit će jednostavnu metodu koja može umetnuti izvornu e-poštu i unaprijed definirani tekst u tijelo automatskog odgovora putem programa Outlook VBA.

U programu Outlook, Exchange računi dopuštaju korisnicima postavljanje automatskih odgovora izravno putem gumba "Automatski odgovori" pod karticom "Informacije" u izborniku "Datoteka", kao na sljedećoj snimci zaslona:

Ali ako koristite račun internetske e-pošte, bez obzira na IMAP ili POP3, nije dostupan gumb "Automatski odgovori". Jedini način da omogućite automatski odgovor je stvoriti pravilo automatskog odgovora, prikazano na sljedećoj slici:

Međutim, ova vrsta automatskog odgovora putem pravila programa Outlook ne može automatski uključiti izvornu poruku. U stvarnosti, većina ljudi želi priložiti izvornu e-poštu u tijelo poruke automatskog odgovora. U takvim slučajevima, pravilo automatskog odgovora to sigurno ne može. Stoga bismo trebali koristiti Outlook VBA kodove. Ako ste zainteresirani, pročitajte dalje kako biste dobili detaljne korake i VBA kodove.

Automatski odgovor s izvornom e-poštom i unaprijed definiranim tekstom

Najprije biste trebali otvoriti karticu "Developer" i kliknuti gumb "Visual Basic".
Zatim u novom prozoru “Microsoft Visual Basic for Applications” trebate dvaput kliknuti na projekt “ThisOutlookSession” na lijevoj strani.
Nakon toga otvorit će se projekt “ThisOutlookSession”. Sada biste trebali kopirati i zalijepiti sljedeće VBA kodove u njega.

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

Zatim biste trebali potpisati ovaj kod kao i obično i nastaviti mijenjati postavke makronaredbi kako biste dopustili samo digitalno potpisane makronaredbe.
Na kraju, nakon dovršetka gornjih koraka, Outlook će automatski poslati odgovor s izvornim informacijama u tijelu poruke. To bi izgledalo kao na slici ispod:

Bilješka: Bez obzira na pravilo korištenja automatskog odgovora ili automatskog odgovora korištenjem VBA kodova, oba mogu imati efekte samo kada je Outlook pokrenut.

Riješite pogreške podataka programa Outlook

Bez ikakve sumnje, Outlook ne može biti imun na pogreške. Stoga je za obične korisnike Outlooka ključno da dobiju neke trikove za rješavanje problema. Očito, najbolji način da se nosite s Oštećenje Outlook podataka izrađuje redovitu sigurnosnu kopiju. Sve dok imate učinkovitu sigurnosnu kopiju, bit ćete mirni čak i ako se Outlook sruši. Naravno, osim osiguranja, bolje bi vam bilo da imate pri ruci i moćan alat za popravak.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak oštećenja SQL mdf datoteke i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com