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

Hvordan eksporteres e-mails fra flere mapper / undermapper for at udmærke sig i Outlook?

Når du eksporterer en mappe med guiden Import og eksport i Outlook, understøtter den ikke Inkluder undermapper indstilling, hvis du eksporterer mappen til CSV-fil. Det vil dog være ret tidskrævende og kedeligt at eksportere hver mappe til CSV-fil og derefter konvertere den til Excel-projektmappe manuelt. Her introducerer denne artikel en VBA til hurtig eksport af flere mapper og undermapper til Excel-projektmapper.

Eksporter flere e-mails fra flere mapper / undermapper til Excel med VBA

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2021 - 2010 eller Office 365. Fuld funktioner 60-dages gratis prøveperiode.

pil blå højre boble Eksporter flere e-mails fra flere mapper / undermapper til Excel med VBA

Følg nedenstående trin for at eksportere e-mails fra flere mapper eller undermapper til Excel-projektmapper med VBA i Outlook.

1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Eksporter e-mails fra flere mapper og undermapper til 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. Juster ovenstående VBA-kode efter behov.

(1) Udskift destination_mappe_sti i ovenstående kode med mappestien til destinationsmappen, gemmer du de eksporterede projektmapper i, f.eks C: \ Brugere \ DT168 \ Dokumenter \ TEST.
(2) Udskift din_email_accouny \ mappe \ undermappe_1 og din_email_accouny \ mappe \ undermappe_2 i ovenstående kode med mappestier til undermapper i Outlook, såsom Kelly @extendoffice.com \ Indbakke \ A. og Kelly @extendoffice.com \ Indbakke \ B

4. Tryk på F5 eller klik på Kør knap for at køre denne VBA. Og klik derefter på OK knap i pop op-vinduet Eksporter Outlook-mapper til Excel-dialogboksen. Se skærmbillede:

Og nu eksporteres e-mails fra alle specificerede undermapper eller mapper i ovenstående VBA-kode og gemmes i Excel-projektmapper.


pil blå højre bobleRelaterede artikler


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (10)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan får jeg dette til automatisk at vende tilbage i undermapper?
Denne kommentar blev minimeret af moderatoren på webstedet
hej kære, alt fungerer godt mange tak, men brødteksten er ikke eksporteret, hvordan kan jeg også eksportere e-mail-tekst, excel-filen har lige (emne, modtaget og afsender), hvis du kan opdatere mig med det, vil det løse en kæmpe sag i min virksomhed mange tak igen
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Montaser,
VBA-scriptet kører baseret på Outlooks eksportfunktion, som ikke understøtter eksport af beskedindhold ved masseeksport af e-mails fra en mailmappe. Derfor kan dette VBA-script heller ikke eksportere beskedindhold.
Denne kommentar blev minimeret af moderatoren på webstedet
dette fungerer godt, men er der en måde at tilføje info for ikke kun de 4 felter ovenfor, men alt det Outlook-eksport til PST giver? Emne Brødtekst Fra: (Navn) Fra: (Adresse) Fra: (Type) Til: (Navn) Til: (Adresse) Til: (Type) CC: (Navn) CC: (Adresse) CC: (Type) BCC: ( Navn) BCC: (Adresse) BCC: (Type) Faktureringsoplysninger Kategorier Vigtighed Kilometerfølsomhed

Jeg prøvede at tilføje "Vigtigt", og det virker, men jeg ville sætte pris på, hvis nogen kunne give koden til de andre felter. tak skal du have!!
Med excWks
.Cells(1, 1) = "Emne"
.Cells(1, 2) = "Modtaget"
.Cells(1, 3) = "Afsender"
.Cells(1, 4) = "Krop"
.Cells(1, 5) = "Betydning"
Slut med
intRow = 2
For hver olkMsg I olkFld.Items
'Eksportér kun beskeder, ikke kvitteringer eller aftaleanmodninger osv.
Hvis olkMsg.Class = olMail Så
'Tilføj en række for hvert felt i den besked, du vil eksportere
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, tjek venligst nedenstående kode efter dine behov:
Const MACRO_NAME = "Eksporter Outlook-mapper til 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 "Processen er fuldført.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilnavn Som String, strFolderPath As String)

Dæmp olkMsg som objekt

Dim olkFld Som Objekt

Dæmp excApp som objekt

Dæmp excWkb som objekt

Dim excWks som objekt

Dæmp intRow som heltal

Dim intVersion Som heltal

Hvis strFilnavn <> "" Så

Hvis strFolderPath <> "" Så

Indstil olkFld = OpenOutlookFolder(strFolderPath)

Hvis TypeName(olkFld) <> "Intet" Så

intVersion = GetOutlookVersion()

Indstil excApp = CreateObject("Excel.Application")

Indstil excWkb = excApp.Workbooks.Add()

Indstil excWks = excWkb.ActiveSheet

'Skriv Excel-kolonneoverskrifter

Med excWks

.Cells(1, 1) = "Emne"

.Cells(1, 2) = "Krop"

.Cells(1, 3) = "Modtaget"

.Cells(1, 4) = "Fra: (navn)"

.Cells(1, 5) = "Fra: (Adresse)"

.Cells(1, 6) = "Fra: (Type)"

.Cells(1, 7) = "Til: (navn)"

.Cells(1, 8) = "Til: (Adresse)"

.Cells(1, 9) = "Til: (Skriv)"

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

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

.Cells(1, 12) = "CC: (Type)"

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

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

.Cells(1, 15) = "BCC: (Type)"

.Cells(1, 16) = "Faktureringsoplysninger"

.Cells(1, 17) = "Kategorier"

.Cells(1, 18) = "Betydning"

.Cells(1, 19) = "Kilometertal"

.Cells(1, 20) = "Sensitivitet"

Slut med

intRow = 2

For hver olkMsg I olkFld.Items

'Eksportér kun beskeder, ikke kvitteringer eller aftaleanmodninger osv.

Hvis olkMsg.Class = olMail Så

'Tilføj en række for hvert felt i den besked, du vil eksportere

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.Categories

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

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

excWks.Cells(intRow, 20) = olkMsg.Sensitivity

intRow = intRow + 1

End If

Næste

Indstil olkMsg = Ingenting

excWkb.SaveAs strFilnavn

excWkb.Luk

Else

MsgBox "Mappen '" & strFolderPath & "' findes ikke i Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

Else

MsgBox "Mappestien var tom.", vbCritical + vbOKOnly, MACRO_NAME

End If

Else

MsgBox "Filnavnet var tomt.", vbCritical + vbOKOnly, MACRO_NAME

End If



Indstil olkMsg = Ingenting

Indstil olkFld = Intet

Indstil excWks = Intet

Indstil excWkb = Intet

Indstil excApp = Ingenting

End Sub



Offentlig funktion OpenOutlookFolder(strFolderPath As String) Som Outlook.MAPIfolder

Dim arrFolders Som Variant

Dim varFolder Som Variant

Dim bolBeyondRoot As Boolean

On Error Resume Next

Hvis strFolderPath = "" Så

Indstil OpenOutlookFolder = Ingenting

Else

Gør mens venstre(strFolderPath, 1) = "\"

strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)

Loop

arrFolders = Split(strFolderPath, "\")

For hver varFolder I arrFolders

Vælg Case bolBeyondRoot

Sag Falsk

Indstil OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Sand

Sagen Sandt

Indstil OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Afslut Vælg

Hvis Err.Number <> 0 Så

Indstil OpenOutlookFolder = Ingenting

Afslut til

End If

Næste

End If

På Fejl GoTo 0

End Function



Funktion GetOutlookVersion() Som heltal

Dim arrVer As Variant

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

GetOutlookVersion = arrVer(0)

End Function



Funktion SMTPEX(Entry As AddressEntry) Som streng

Dæmp olkPA som Outlook.PropertyAccessor

On Error Resume Next

Indstil olkPA = Entry.PropertyAccessor

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

På Fejl GoTo 0

Indstil olkPA = Ingenting

End Function



Funktion GetAddress(Entry As Address Entry, intOutlookVersion Som Heltal) Som String

Dæmp olkEnt som objekt

On Error Resume Next

Vælg Case inOutlookVersion

Sagen er < 14

Hvis Entry.Type = "EX" Så

GetAddress = SMTPEX(Entry)

Else

GetAddress = Entry.Address

End If

Sag ellers

Hvis Entry.AddressEntryUserType = olExchangeUserAddressEntry, så

Indstil olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Else

GetAddress = Entry.Address

End If

Afslut Vælg

På Fejl GoTo 0

Indstil olkEnt = Ingenting

End Function



Funktion GetRecipientsName(Item As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) Som String

Dim xRcp som modtager

Dim xNames som streng

xNames = ""

For hver xRcp In Item.Recipients

Hvis xRcp.Type = rcpType Så

Hvis Ret = 1 Så

Hvis xNames = "" Så

xNames = xRcp.Name

Else

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Så

Hvis xNames = "" Så

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

End If

ElseIf Ret = 3 Så

Hvis xNames = "" Så

xNames = xRcp.AddressEntry.Type

Else

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

End If

End If

ElseIf xRcp.Type = rcpType Then

Hvis Ret = 1 Så

Hvis xNames = "" Så

xNames = xRcp.Name

Else

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Så

Hvis xNames = "" Så

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

End If

ElseIf Ret = 3 Så

Hvis xNames = "" Så

xNames = xRcp.AddressEntry.Type

Else

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

End If

End If

ElseIf xRcp.Type = rcpType Then

Hvis Ret = 1 Så

Hvis xNames = "" Så

xNames = xRcp.Name

Else

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Så

Hvis xNames = "" Så

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

End If

ElseIf Ret = 3 Så

Hvis xNames = "" Så

xNames = xRcp.AddressEntry.Type

Else

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

End If

End If

End If

Næste

GetRecipientsName = xNames

End Function




Håber det virker for dig.
Amanda
Denne kommentar blev minimeret af moderatoren på webstedet
I ExporttoExcel-underdelen kan du tilføje brødteksten

'Skriv Excel-kolonneoverskrifter
Med excWks
.Cells(1, 1) = "Emne"
.Cells(1, 2) = "Modtaget"
.Cells(1, 3) = "Afsender"
.Cells(1, 4) = "Krop"
Slut med
intRow = 2
For hver olkMsg I olkFld.Items
'Eksportér kun beskeder, ikke kvitteringer eller aftaleanmodninger osv.
Hvis olkMsg.Class = olMail Så
'Tilføj en række for hvert felt i den besked, du vil eksportere
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow + 1
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, forhåbentlig kan nogen hjælpe mig her, jeg har stort set ingen viden om VB, men det er lykkedes at få dette script til at fungere for mig indtil videre.

Jeg har dog omkring 1500 mapper og undermapper under min indbakke i alt, og jeg vil virkelig gerne have et simpelt script til at eksportere al den e-mailadresse, som jeg har sendt til med emnelinje og dato i separate kolonner i Excel.

Jeg har søgt i dagevis og prøvet mange forskellige sider, men kan ikke få nogen anden kode til at virke end denne.


Er det overhovedet muligt, hvad jeg beder om? Hvis ja, er der nogen derude, der er venlige og kloge nok til at hjælpe mig med det script, jeg har brug for?
Jeg formoder, at det har noget at gøre med denne del:


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 "Processen er fuldført.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Tak på avanceret
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Jeg har lige kørt denne makro, som fungerer fint.
Det forstår jeg i udtrykkene
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* og GetSMTPAddress(olkMsg, intVersion) udtrækker ting fra Outlook.

Hvad er argumentet til at bruge for at få den adresse, posten blev sendt til?

Når du bruger Export Wizard i Outlook, er det muligt at eksportere denne adresse, så jeg antager, at det ville være muligt at gøre det gennem denne makro (med nogle ændringer).
Kan nogen hjælpe?

Hilsen
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kører denne makro, men bliver ved med at få kompileringsfejl:

Bruger=defineret type ikke defineret

På linje 62 " Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIfolder "

Jeg har allerede specificeret stien som følger:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "mitnavn@mitdomæne.com\Indbakke\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "mitnavn@mitdomæne.com\Indbakke\CPD\Kaplan Training"

Jeg bruger Outlook 2016, hvis det er nødvendigt
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ordnede det. Fra det visuelle grundlæggende vindue skal du gå til Værktøjer Reference - og boksen for "Microsoft Outlook 16.0 Objektbibliotek"

Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL