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

Conas ríomhphoist a easpórtáil ó iliomad fillteán / fofhillteán le barr feabhais a chur ar Outlook?

Nuair a dhéantar fillteán a onnmhairiú leis an draoi Iompórtála agus Easpórtála in Outlook, ní thacaíonn sé leis an Cuir Fofhillteáin san áireamh rogha má onnmhairíonn tú an fillteán go comhad CSV. Tógfaidh sé go leor ama agus tedious, áfach, gach fillteán a easpórtáil go comhad CSV agus ansin é a thiontú go leabhar oibre Excel de láimh. Anseo, tabharfaidh an t-alt seo VBA isteach chun ilfhillteáin agus fofhillteáin a onnmhairiú go tapa chuig leabhair oibre Excel ar a suaimhneas.

Easpórtálacha ríomhphoist iomadúla ó iliomad fillteán / fofhillteán go Excel 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á.

mboilgeog cheart gorm saighead Easpórtálacha ríomhphoist iomadúla ó iliomad fillteán / fofhillteán go Excel le VBA

Lean na céimeanna thíos le do thoil chun ríomhphoist a easpórtáil ó iliomad fillteán nó fofhillteán chuig leabhair oibre Excel le VBA in Outlook.

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

2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog nua an Mhodúil.

VBA: Easpórtáil ríomhphoist ó iliomad fillteán agus fofhillteán chuig Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Déan an cód VBA thuas a choigeartú de réir mar is gá duit.

(1) Ionadaigh ceann scríbe_folder_path sa chód thuas le cosán fillteán an fhillteáin chinn scríbe sábhálfaidh tú na leabhair oibre a onnmhairítear, mar shampla C: \ Úsáideoirí \ DT168 \ Doiciméid \ TÁSTÁIL.
(2) Cuir cosáin fillteáin na bhfofhillteán in Outlook, mar shampla, in ionad do_email_accouny \ folder \ subfolder_1 agus your_email_accouny \ folder \ subfolder_2 sa chód thuas Kelly @extendoffice.com \ Bosca Isteach \ A. agus Kelly @extendoffice.com \ Bosca Isteach \ B.

4. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith. Agus ansin cliceáil ar an OK cnaipe sa bhosca popping amach Export Outlook Folders go bosca dialóige Excel. Féach an pictiúr:

Agus anois déantar ríomhphoist ó gach fofhillteán nó fillteán sonraithe sa chód VBA thuas a onnmhairiú agus a shábháil i leabhair oibre Excel.


mboilgeog cheart gorm saigheadAirteagail 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 (10)
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ú
Conas is féidir liom é seo a dhéanamh arís go huathoibríoch i bhfofhillteáin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a stór, gach rud ag obair go maith go leor buíochas ach ní dhéantar an comhlacht a onnmhairiú, conas is féidir liom comhlacht ríomhphoist a onnmhairiú freisin, tá an comhad excel díreach (Ábhar, Faighte, agus Seoltóir), más féidir leat mé a thabhairt cothrom le dáta beidh sé réiteach ar ábhar ollmhór i mo ghnó go raibh míle maith agat arís
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Montaser,
Ritheann an script VBA bunaithe ar ghné Easpórtála Outlook nach dtacaíonn le heaspórtáil ábhar teachtaireachta agus ríomhphoist á n-onnmhairiú mórchóir ó fhillteán ríomhphoist. Mar sin, ní féidir leis an script VBA seo ábhar na teachtaireachta a easpórtáil freisin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
oibríonn sé seo go hiontach, ach an bhfuil bealach ann chun an fhaisnéis a chur leis ní hamháin na 4 réimsí thuas ach go léir a thugann onnmhairiú Outlook go PST? Comhlacht Ábhar Ó: (Ainm) Ó: (Seoladh) Ó: (Cineál) Go: (Ainm) Go: (Seoladh) Go: (Cineál) CC: (Ainm) CC: (Seoladh) CC: (Cineál) BCC: ( Ainm) BCC: (Seoladh) BCC: (Cineál) Faisnéise Billeála Catagóirí Tábhacht Íogaireacht Míleáiste

Rinne mé iarracht "Tábhacht" a chur leis agus oibríonn sé, ach bheinn buíoch dá bhféadfadh duine an cód a sholáthar do na réimsí eile. go raibh maith agat!!
Le excWks
.Cells(1, 1) = "Ábhar"
.Cells(1, 2) = "Faighte"
.Cells(1, 3) = "Seoltóir"
.Cells(1, 4) = "Comhlacht"
.Cells(1, 5) = "Tábhacht"
Deireadh Le
inRow = 2
Do Gach olkMsg In olkFld.Items
‘Ní easpórtáil ach teachtaireachtaí, ní admhálacha nó iarratais ar choinne, etc.
Má olkMsg.Class = olMail Ansin
'Cuir sraith leis do gach réimse sa teachtaireacht is mian leat a easpórtáil
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, seiceáil an cód thíos de réir do chuid riachtanas:
Const MACRO_NAME = "Easpórtáil Fillteáin Outlook go Excel"

Fo-EaspórtáilPríomh()

EaspórtáilToExcel "destination_folder_path\A.xlsx", "your_email_accouny\fillteán\fofhillteán_1"

EaspórtáilToExcel "destination_folder_path\B.xlsx", "your_email_accouny\fillteán\fofhillteán_2"

MsgBox "Próiseas críochnaithe.", vbInformation + vbOKO amháin, MACRO_NAME

Fo Deireadh

Fo-easpórtáilToExcel(strFilename As Teaghrán, strFolderPath As Teaghrán)

Dim olkMsg Mar Réad

Dim olkFld Mar Réad

Dim excApp Mar Réad

Dim excWkb Mar Réad

Dim excWks Mar Réad

Dim inRow As Slánuimhir

Dim intVersion Mar Slánuimhir

If strFilename <> "" Ansin

Má strFolderPath <> "" Ansin

Socraigh olkFld = OpenOutlookFolder(strFolderPath)

Más rud é TypeName(olkFld) <> "Ní dhéanfaidh aon ní" Ansin

intVersion = GetOutlookVersion()

Socraigh excApp = CreateObject("Excel.Application")

Socraigh excWkb = excApp.Workbooks.Add()

Socraigh excWks = excWkb.ActiveSheet

‘Scríobh Ceanntásca Colún Excel

Le excWks

.Cells(1, 1) = "Ábhar"

.Cells(1, 2) = "Comhlacht"

.Cells(1, 3) = "Faighte"

.Cells(1, 4) = "Ó: (Ainm)"

.Cells(1, 5) = "Ó: (Seoladh)"

.Cells(1, 6) = "Ó: (Cineál)"

.Cells(1, 7) = "Chuig: (Ainm)"

.Cells(1, 8) = "Chuig: (Seoladh)"

.Cells(1, 9) = "Chuig: (Cineál)"

.Cells(1, 10) = "CC: (Ainm)"

.Cells(1, 11) = "CC: (Seoladh)"

.Cells(1, 12) = "CC: (Cineál)"

.Cells(1, 13) = "BCC: (Ainm)"

.Cells(1, 14) = "BCC: (Seoladh)"

.Cells(1, 15) = "BCC: (Cineál)"

.Cells(1, 16) = "Eolas Billeála"

.Cells(1, 17) = "Catagóirí"

.Cells(1, 18) = "Tábhacht"

.Cealla(1, 19) = "Míleáiste"

.Cells(1, 20) = "Íogaireacht"

Deireadh Le

inRow = 2

Do Gach olkMsg In olkFld.Items

‘Ní easpórtáil ach teachtaireachtaí, ní admhálacha nó iarratais ar choinne, etc.

Má olkMsg.Class = olMail Ansin

'Cuir sraith leis do gach réimse sa teachtaireacht is mian leat a easpórtáil

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Catagóirí

excWks.Cells(intRow, 18) = olkMsg.Importance

excWks.Cells(intRow, 19) = olkMsg.Mileage

excWks.Cells(intRow, 20) = olkMsg.Íogaireacht

intRow = intRow+1

Deireadh Má

Ar Aghaidh

Socraigh olkMsg = Ní dhéanfaidh aon ní

excWkb.SaveAs strFilename

excWkb.Dún

Eile

msgstr "Níl an fillteán '" &strFolderPath &"' ann in Outlook.", vbCritical + vbOKOnly, MACRO_NAME

Deireadh Má

Eile

MsgBox "Bhí conair an fhillteáin folamh.", vbCritical + vbOKOnly, MACRO_NAME

Deireadh Má

Eile

msgstr "Bhí ainm an chomhaid folamh.", vbCritical + vbOKOnly, MACRO_NAME

Deireadh Má



Socraigh olkMsg = Ní dhéanfaidh aon ní

Socraigh olkFld = Ní dhéanfaidh aon ní

Socraigh excWks = Ní dhéanfaidh aon ní

Socraigh excWkb = Ní dhéanfaidh aon ní

Socraigh excApp = Ní dhéanfaidh aon ní

Fo Deireadh



Feidhm Phoiblí OpenOutlookFolder(strFolderPath Mar Teaghrán) Mar Outlook.MAPIFolder

Dim arrFolders Mar mhalairt ar

Dim varFolder Mar Leagan

Dim bolBeyondRoot Mar Boole

Ar Lean Earráid Aghaidh

Má strFolderPath="" Ansin

Socraigh OpenOutlookFolder = Ní dhéanfaidh aon ní

Eile

Déan Agus Ar Chlé(strFolderPath, 1) = "\"

strFolderPath = Ar dheis(strFolderPath, Len(strFolderPath) - 1)

Lúb

arrFolders = Scoilt(strFolderPath, "\")

Le haghaidh Gach varFolder In arrFolders

Roghnaigh Cás bolBeyondRoot

Cás Bréagach

Socraigh OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Fíor

Cás Fíor

Socraigh OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Roghnaigh Roghnaigh

Má Err.Number <> 0 Ansin

Socraigh OpenOutlookFolder = Ní dhéanfaidh aon ní

Scoir Do

Deireadh Má

Ar Aghaidh

Deireadh Má

Ar Earráid TéighTo 0

Feidhm Deireadh



Feidhm GetOutlookVersion() Mar Shlánuimhir

Dim arrVer As Variant

arrVer = Scoilt(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

Feidhm Deireadh



Feidhm SMTPEX(Iontráil Mar SeoladhEntry) Mar Theaghrán

Níl aon rogha agat ach mar Outlook.PropertyAccessor

Ar Lean Earráid Aghaidh

Socraigh olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

Ar Earráid TéighTo 0

Socraigh olkPA = Ní dhéanfaidh aon ní

Feidhm Deireadh



Feidhm GetAddress(Iontráil Mar SeoladhIontráil, Leagan InOutlook Mar Shlánuimhir) Mar Theaghrán

Dim olkEnt As Object

Ar Lean Earráid Aghaidh

Roghnaigh Cás inOutlookVersion

Cás Is <14

Má Entry.Type = "EX" Ansin

GetAddress = SMTPEX(Iontráil)

Eile

GetAddress = Entry.Address

Deireadh Má

Cás Eile

Má tá Entry.AddressEntryUserType = olExchangeUserAddressEntry Ansin

Socraigh olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Eile

GetAddress = Entry.Address

Deireadh Má

Roghnaigh Roghnaigh

Ar Earráid TéighTo 0

Socraigh olkEnt = Ní dhéanfaidh aon ní

Feidhm Deireadh



Feidhm Faigh Faighteoir

Dim xRcp Mar Faighteoir

Dim xNames As Teaghrán

xNames=""

Do Gach xRcp I bhFaighteoirí Mír

Má tá xRcp.Type = rcpType Ansin

Má Ret = 1 Ansin

Má tá xNames="" Ansin

xNames = xRcp.Name

Eile

xNames = xNames &" ; " &xRcp.Name

Deireadh Má

ElseIf Ret = 2 Ansin

Má tá xNames="" Ansin

xNames = GetAddress(xRcp.AddressEntry, intoOutlookVersion)

Eile

xNames = xNames &" ; " & GetAddress(xRcp.AddressEntry, inOutlookVersion)

Deireadh Má

ElseIf Ret = 3 Ansin

Má tá xNames="" Ansin

xNames = xRcp.AddressEntry.Type

Eile

xNames = xNames &" ; " &xRcp.AddressEntry.Type

Deireadh Má

Deireadh Má

ElseIf xRcp.Type = rcpType Ansin

Má Ret = 1 Ansin

Má tá xNames="" Ansin

xNames = xRcp.Name

Eile

xNames = xNames &" ; " &xRcp.Name

Deireadh Má

ElseIf Ret = 2 Ansin

Má tá xNames="" Ansin

xNames = GetAddress(xRcp.AddressEntry, intoOutlookVersion)

Eile

xNames = xNames &" ; " & GetAddress(xRcp.AddressEntry, inOutlookVersion)

Deireadh Má

ElseIf Ret = 3 Ansin

Má tá xNames="" Ansin

xNames = xRcp.AddressEntry.Type

Eile

xNames = xNames &" ; " &xRcp.AddressEntry.Type

Deireadh Má

Deireadh Má

ElseIf xRcp.Type = rcpType Ansin

Má Ret = 1 Ansin

Má tá xNames="" Ansin

xNames = xRcp.Name

Eile

xNames = xNames &" ; " &xRcp.Name

Deireadh Má

ElseIf Ret = 2 Ansin

Má tá xNames="" Ansin

xNames = GetAddress(xRcp.AddressEntry, intoOutlookVersion)

Eile

xNames = xNames &" ; " & GetAddress(xRcp.AddressEntry, inOutlookVersion)

Deireadh Má

ElseIf Ret = 3 Ansin

Má tá xNames="" Ansin

xNames = xRcp.AddressEntry.Type

Eile

xNames = xNames &" ; " &xRcp.AddressEntry.Type

Deireadh Má

Deireadh Má

Deireadh Má

Ar Aghaidh

GetRecipientsName = xNames

Feidhm Deireadh




Tá súil agam go n-oibríonn sé seo duit.
Amanda
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
San fho- ExporttoExcel is féidir leat an corp a chur leis

‘Scríobh Ceanntásca Colún Excel
Le excWks
.Cells(1, 1) = "Ábhar"
.Cells(1, 2) = "Faighte"
.Cells(1, 3) = "Seoltóir"
.Cells(1, 4) = "Comhlacht"
Deireadh Le
inRow = 2
Do Gach olkMsg In olkFld.Items
‘Ní easpórtáil ach teachtaireachtaí, ní admhálacha nó iarratais ar choinne, etc.
Má olkMsg.Class = olMail Ansin
'Cuir sraith leis do gach réimse sa teachtaireacht is mian leat a easpórtáil
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow+1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá súil agam gur féidir le duine éigin cabhrú liom anseo, níl mórán eolais agam ar VB ach d'éirigh liom an script seo a chur ag obair domsa go dtí seo.

Mar sin féin tá thart ar 1500 fillteáin agus fofhillteáin agam faoi mo bhosca isteach san iomlán agus ba mhaith liom go mór script shimplí chun an seoladh ríomhphoist go léir a chuir mé chuig an ábhar agus an dáta ar cholúin ar leith in Excel a onnmhairiú.

Chuardaigh mé le laethanta, agus bhain mé triail as go leor suíomhanna éagsúla ach ní féidir liom aon chód a fháil chun oibriú seachas an ceann seo.


An féidir fiú an méid atá á iarraidh agam? Má tá, an bhfuil éinne amuigh ansin cineálta agus cliste go leor chun cabhrú liom cén script a theastaíonn uaim?
Glacaim leis go bhfuil baint aige leis an gcuid seo:


Fo-EaspórtáilPríomh()

EaspórtáilToExcel "destination_folder_path\A.xlsx", "your_email_accouny\fillteán\fofhillteán_1"

EaspórtáilToExcel "destination_folder_path\B.xlsx", "your_email_accouny\fillteán\fofhillteán_2"

MsgBox "Próiseas críochnaithe.", vbInformation + vbOKO amháin, MACRO_NAME

Fo Deireadh


Go raibh maith agat chun cinn
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Rith mé an Macra seo a oibríonn go breá.
Tuigim é sin sna habairtí
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTAddress(olkMsg, intVersion)

Baineann an olkMsg.* agus GetSMTAddress(olkMsg, intVersion) stuif amach as Outlook.

Cén argóint atá le húsáid chun an Seoladh a seoladh chucu a fháil?

Agus an Treoraí Easpórtála Outlook á úsáid agat, is féidir an seoladh seo a onnmhairiú, mar sin glacaim leis go bhféadfaí é a dhéanamh tríd an Macra seo (le roinnt modhnú).
An féidir le duine éigin cabhrú?

Maidir is
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ritheann mé an macra seo ach leanaim ar aghaidh ag fáil earráid tiomsaithe:

User=cineál sainithe gan sainmhíniú

Ar líne 62 " Feidhm Phoiblí OpenOutlookFolder(strFolderPath Mar Theaghrán) Mar Outlook.MAPIFolder "

Tá an cosán sonraithe agam mar seo a leanas cheana:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\Documekudus\Documents\MailExportTest\f2\B.xlsx", "myname@mydomain.com\Inbox\CPD\Kaplan Training"

Tá Outlook 2016 á úsáid agam ar eagla go mbeidh gá leis
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
seasta mé é. Ón fhuinneog amhairc bhunúsach, téigh go dtí Tools Reference - agus an bosca le haghaidh "Microsoft Outlook 16.0 Object Library"

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