Conas na ceangaltáin a bhaint go huathoibríoch tar éis ríomhphoist a sheoladh ó na míreanna seolta?
Agus ríomhphost á sheoladh le roinnt ceangaltán, stórálfar na ceangaltáin leis na ríomhphoist isteach san fhillteán earraí seolta de réir réamhshocraithe. Chun méid do chomhad PST a laghdú, b’fhéidir gur mhaith leat na ceangaltáin a bhaint de na míreanna seolta go huathoibríoch tar éis ríomhphoist a sheoladh. An t-alt seo, labhróidh mé faoin tasc seo in Outlook.
Bain na ceangaltáin go huathoibríoch tar éis ríomhphoist a sheoladh ó na míreanna seolta
Bain na ceangaltáin go huathoibríoch tar éis ríomhphoist a sheoladh ó na míreanna seolta
Is féidir leis an gcód VBA seo a leanas cabhrú leat na ceangaltáin a scriosadh go huathoibríoch tar éis ríomhphoist a sheoladh ó do Outlook, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.
Cód VBA: Bain ceangaltáin go huathoibríoch tar éis ríomhphoist a sheoladh ó na míreanna seolta:
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. Tar éis duit an cód thuas a chur isteach, déan do Outlook a atosú le do thoil chun go mbeidh an cód i bhfeidhm.
4. As seo amach, nuair a sheolann tú ríomhphoist le ceangaltáin, scriosfar na ceangaltáin go huathoibríoch ó na míreanna seolta mar a thaispeántar an scáileán a leanas:
nótaí: Níl an cód seo ar fáil ach don chuntas sonraí réamhshocraithe.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.