Sut i dynnu fy hun o'r ateb i gyd yn Outlook?

Os oes sawl cyfrif e-bost yn eich Camre, bydd yn achosi rhai problemau pan fyddwch chi'n ateb pob un i e-bost a dderbynnir. Er enghraifft, rydych chi'n derbyn e-bost trwy un cyfrif, ond eich holl gyfeiriadau cyfrif e-bost Outlook sy'n cael eu harddangos fel derbynwyr yn yr e-bost hwn, ar ôl clicio ar y botwm Reply All, mae holl gyfeiriadau'r cyfrif e-bost wedi'u cynnwys yn y blwch To, Cc neu Bcc. Ond mewn gwirionedd, nid ydych chi am i gyfrifon e-bost eraill ohonoch chi'ch hun dderbyn yr e-bost ateb hwn. Ond sut i dynnu fy hun o'r ateb i gyd? Bydd yr erthygl hon yn argymell dulliau i chi ei gyflawni.

Tynnwch fy hun wrth anfon e-byst gyda chod VBA
Un clic i dynnu fy hun rhag ateb i gyd gyda Kutools ar gyfer Outlook

Tynnwch fy hun wrth anfon e-byst gyda chod VBA

Gallwch ychwanegu cyfeiriadau eich cyfrif e-bost yn eich Camre yn y cod VBA canlynol i atal anfon e-byst atoch chi'ch hun. Gwnewch fel a ganlyn.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar y Project1 > Gwrthrychau Microsoft Outlook > SesiwnOutlook, ac yna copïo a gludo islaw cod VBA i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA: tynnwch fy hun o'r holl negeseuon e-bost sy'n anfon yn Outlook

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add ""
	RemoveAddrList.Add ""
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) Then
				Recipients.Remove i
				Exit For
			End If
		Next
	Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
	On Error Resume Next
	RemoveRecipientsWhenItemSend Item
End Sub

Nodiadau:

1. Newid y cyfeiriadau e-bost yn y cod VBA i'ch cyfrifon e-bost.

2. Sicrhewch fod yr opsiwn Galluogi pob macros wedi'i alluogi. Gweler y screenshot:

3. Cliciwch ar y Save botwm a chau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, pan fyddwch yn anfon e-byst, bydd cyfeiriadau e-bost penodedig eich cyfrifon Outlook yn cael eu tynnu'n awtomatig o'r blwch To, Cc neu Bcc yn awtomatig.

Un clic i dynnu fy hun rhag ateb i gyd gyda Kutools ar gyfer Outlook

Fel y dangosir y screenshot canlynol, ar gyfer tynnu fy hun oddi wrth ateb i gyd yn Outlook, gwnewch fel a ganlyn.

1. Ar ôl clicio ar y botwm Reply All i greu e-bost ateb, cliciwch Kutools > Fy Enwau. Gweler y screenshot:

Yna tynnir eich holl enwau (cyfeiriadau cyfrif e-bost) o'r blwch To, Cc neu Bcc ar unwaith.

Os ydych chi am gael treial am ddim o'r cyfleustodau hwn, ewch i dadlwythwch y meddalwedd am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.