Cum să răspunzi automat cu e-mailul original și un text predefinit prin Outlook VBA

Dacă utilizați regula Outlook pentru a răspunde automat, veți descoperi că răspunsul automat nu poate include mesajul original în text. Acest articol va introduce o metodă ușoară, care poate insera e-mailul original și textul predefinit în corpul răspunsului automat prin Outlook VBA.

În Outlook, conturile Exchange permit utilizatorilor să seteze răspunsuri automate direct prin butonul „Răspunsuri automate” din fila „Informații” din meniul „Fișier”, ca în următoarea captură de ecran:

Dar dacă utilizați contul de e-mail de internet, indiferent de IMAP sau POP3, nu este disponibil butonul „Răspunsuri automate”. Singura modalitate de a activa un răspuns automat este de a crea o regulă de răspuns automat, prezentată în imaginea următoare:

Totuși, acest tip de răspuns automat prin regula Outlook nu poate include automat mesajul original. În realitate, majoritatea oamenilor ar dori să atașeze e-mailul original în corpul mesajului răspunsului automat. În astfel de cazuri, o regulă de răspuns automat nu poate realiza acest lucru cu siguranță. Prin urmare, ar trebui să folosim codurile VBA Outlook. Dacă sunteți interesat, citiți mai departe pentru a afla pașii detaliați și codurile VBA.

Răspuns automat cu e-mailul original și un text predefinit

1. La început, ar trebui să accesați fila „Dezvoltator” și să faceți clic pe butonul „Visual Basic”.
2. Apoi, în noua fereastră „Microsoft Visual Basic for Applications”, trebuie să faceți dublu clic pe proiectul „ThisOutlookSession” din partea stângă.
3. După aceea, se va deschide proiectul „ThisOutlookSession”. Acum ar trebui să copiați și să lipiți următoarele coduri VBA în el.

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

4. În continuare, ar trebui să semnați acest cod ca de obicei și să continuați să modificați setările macro pentru a permite numai macrocomenzile semnate digital.
5. În cele din urmă, după finalizarea pașilor de mai sus, Outlook va trimite automat un răspuns cu informațiile inițiale ale mesajului în corp. Ar arăta ca imaginea de mai jos:

Notă: Indiferent de răspunsul automat folosind regula sau de răspunsul automat folosind coduri VBA, ambele pot avea efecte numai atunci când Outlook rulează.

Adresați erorile de date Outlook

Fără îndoială, Outlook nu poate fi imun la erori. Prin urmare, este esențial pentru utilizatorii obișnuiți Outlook să obțină câteva trucuri pentru a le rezolva. Evident, cel mai bun mod de a face față Deteriorarea datelor Outlook face o copie de rezervă regulată. Atâta timp cât obțineți o copie de rezervă eficientă, veți fi liniștit chiar dacă Outlook se blochează. Desigur, în afara asigurării, ar fi bine să ții la îndemână și un instrument puternic de reparații.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați corupția fișierului SQL mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com