Note: The other languages of the website are Google-translated. Back to English

Conas teagmhálacha ó r-phost a chur leis go huathoibríoch agus tú ag freagairt in Outlook?

In Outlook 2010 is féidir leat an Teagmhálacha a mholtar gné agus faighteoirí a chur leis go huathoibríoch mar theagmhálacha nua. Mar sin féin, seo Teagmhálacha a mholtar ní thacaítear leis an ngné seo in Outlook 2013 agus 2016. Anseo, tabharfaidh mé VBA isteach chun seoltóir agus faighteoirí ríomhphoist a chur leis go huathoibríoch mar theagmhálaithe nua agus iad ag freagairt in Outlook.

Cuir teagmhálacha le ríomhphost ó r-phost Outlook agus tú ag freagairt le VBA

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed san Oifig, agus Déan an Obair i bhfad Níos Éasca ...
Kutools for Outlook - Tugann sé 100 Gné Ardchumhachta Cumhachtacha chuig Microsoft Outlook
  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir rialacha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach rud a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost ag an am céanna; Beannacht Auto Cuir leis nuair a thabharfar freagra; Dáta agus Am Auto Cuir isteach san ábhar ...
  • Uirlisí Ceangail: Auto Detach, Compress All, Rename All, Auto Save All ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe, Bain Ríomhphoist agus Teagmhálacha Dúblacha ...
  • Déanfaidh níos mó ná 100 gné chun cinn an chuid is mó de do chuid fadhbanna a réiteach in Outlook 2021 - 2010 nó Office 365. Gnéithe iomlána triail saor in aisce 60-lá.

Cuir teagmhálacha le ríomhphost ó r-phost Outlook agus tú ag freagairt le VBA

Cuirfidh an VBA seo an seoltóir agus gach faighteoir ríomhphoist go huathoibríoch mar theagmhálaithe nua agus tú ag freagairt an ríomhphoist in Outlook. Déan mar a leanas le do thoil:

1. Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Leathnaigh an Tionscadal1, agus cliceáil faoi dhó ThisOutlookSession chun é a oscailt, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog ThisOutlookSession. Féach an pictiúr:

VBA: Auto Cuir Teagmhálacha ó r-phost agus tú ag freagairt in Outlook

Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub

Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub

3. Sábháil an cód VBA, agus déan do Microsoft Outlook a atosú.

As seo amach, nuair a thabharfaidh tú freagra ar r-phost in Outlook, sábhálfar seoltóir an ríomhphoist seo agus gach faighteoir mar theagmhálacha nua go huathoibríoch i bhfillteán teagmhála réamhshocraithe an chuntais ríomhphoist réamhshocraithe.


Airteagail gaolmhara


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (1)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, go raibh maith agat as an gcód seo.
Ach déanann sé dúbláil (i mo chás ar a laghad) na teagmhálacha chomh minic agus a scríobhaim chucu. Aon smaoineamh?
Dála an scéil, i roghanna dearcadh, seiceáiltear an bosca "cuardaigh le haghaidh dúbailt nuair a shábháiltear teagmháil nua".
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL