Kā automātiski saglabāt konkrētus nosūtītos e-pastus noteiktā mapē, izmantojot programmu Outlook VBA

Outlook risinājumi Septembris 29, 2025
Kopīgot tūlīt:

Pēc noklusējuma programma Outlook saglabās nosūtītos e-pastus mapē “Nosūtītie vienumi”. Ja nevēlaties saglabāt konkrētās nosūtītās vēstules noklusējuma mapē, varat izmantot šajā rakstā ieviesto metodi.

Daži lietotāji vēlas automātiski nosūtīt dažus nosūtītos e-pastus norādītajā mapē, nevis tos saglabāt noklusējuma mapē “Nosūtītie vienumi”. Tādējādi daudzi izmanto Outlook kārtulu, kas piedāvā līdzīgu darbību - “kopijas pārvietošana uz norādīto mapi”, kas parādīta kā šāds ekrānuzņēmums. Tomēr ar šo nozīmē faktiski sākotnējais nosūtītais e-pasts joprojām tiek saglabāts mapē “Nosūtītie vienumi”. Tikai nosūtītā e-pasta ziņojuma kopija tiek pārvietota uz norādīto mapi. Acīmredzot šī funkcija nevar izpildīt reālās vajadzības.Izveidojiet kārtulu kopijas automātiskai pārvietošanai uz norādīto mapi

Protams, lietotāji var manuāli norādīt mapi, kas nav noklusējuma, lai saglabātu nosūtīto e-pastu. Vienkārši dodieties uz cilni “Opcijas” un noklikšķiniet uz “Saglabāt nosūtīto vienumu”> “Cita mape”. Bet šī pieeja būs apgrūtinoša, jo lietotājiem katru reizi ir manuāli jānorāda mape.Saglabāt nosūtītos vienumus citā mapē manuāli

Tagad, kad abi iepriekš minētie līdzekļi nav efektīvi, kāpēc neatkārtoties Outlook VBA? Šeit ir konkrēti kodi un darbības, kā automātiski saglabāt konkrētos nosūtītos e-pastus noteiktā mapē.

Automātiski saglabāt konkrētus nosūtītos e-pastus noteiktā mapē

  1. Uz start, palaidiet programmu Outlook.
  2. Tad jums jānospiež taustiņu taustiņi “Alt + F11”, kas palīdzēs piekļūt VBA redaktora logam.
  3. Uznirstošajā logā “Microsoft Visual Basic for Applications” kreisajā pusē varat atrast un divreiz noklikšķināt uz projekta “ThisOutlookSession”.
  4. Pēc tam atvērtajā “ThisOutlookSession” projekta logā jums tajā vajadzētu kopēt šādus VBA kodus.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim SentFolder As Folder
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'Specify the sent emails
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Specify the folder for saving the sent emails
          'You can change it as per your needs
          Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
          Set desFolder = SentFolder.Folders("Test")
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

VBA kodi - automātiska konkrētu nosūtīto e-pastu saglabāšana noteiktā mapē

  1. Pēc tam jums vajadzētu parakstīt šo kodu un pielāgot savu Outlook makro līmeni zemam.
  2. Visbeidzot, jūs varat iziet no pašreizējā loga. Turpmāk konkrētie nosūtītie pasti tiks automātiski saglabāti norādītajā pasta mapē.

Papildu padoms: sūtot, parādiet dialoglodziņu Atlasīt mapi

Ir daži cilvēki, kuri vēlētos manuāli atlasīt pasta mapi, lai saglabātu nosūtītos e-pastus. Bet vienmēr iet uz cilni “Opcija”, lai atlasītu mapi, būs netīrs. Šajā gadījumā viņi vēlas, lai Outlook sūtot varētu automātiski parādīt dialoglodziņu “Atlasīt mapi”. Atbildot uz šo prasību, šeit ir vēl citi VBA kodi. To var kopēt projektā “ThisOutlookSession”.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'specify the email
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Display the “Select Folder” dialog box
          Set desFolder = Application.Session.PickFolder
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

VBA kodi - sūtot, automātiski tiek parādīts dialoglodziņš “Atlasīt mapi”

Turpmāk katru reizi, kad esat pabeidzis e-pastu un noklikšķiniet uz pogas Nosūtīt, automātiski parādīsies dialoglodziņš Atlasīt mapi, piemēram, zemāk redzamais attēls. Tajā brīdī varat norādīt mapi, kurā saglabāt pašreizējo nosūtīto e-pastu.Atlasiet mapes dialoglodziņu

Remonts Outlook

Outlook nopelna daudz slavas par savām daudzajām funkcijām. Neskatoties uz to, pateicoties daudzajām funkcijām, programma Outlook ir diezgan neaizsargāta. Arī ļaunprātīgs e-pasts ir viens no most iespējamie draudi Outlook datiem. Tāpēc kā parastie Outlook lietotāji labāk iegūstiet priekšroku Outlook PST pasta labošanas rīks, piemēram, DataNumen Outlook Repair. Tādējādi jūs varat ātri novērst dažādas Outlook kļūdas un saglabāt savus Outlook datus labi aizsargātus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts bojāts SQL Server mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar

Kopīgot tūlīt:

Komentāri ir slēgti.