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

Hur exporterar jag e-post från flera mappar / undermappar för att utmärka sig i Outlook?

När du exporterar en mapp med guiden Importera och exportera i Outlook stöder den inte Inkludera undermappar alternativ om du exporterar mappen till CSV-fil. Det kommer dock att vara ganska tidskrävande och tråkigt att exportera varje mapp till CSV-fil och sedan konvertera den till Excel-arbetsbok manuellt. Här kommer den här artikeln att introducera en VBA för att snabbt exportera flera mappar och undermappar till Excel-arbetsböcker.

Exportera flera e-postmeddelanden från flera mappar / undermappar till Excel med VBA

Fliken Office - Aktivera redigering och surfning på flikar i Office, och gör arbetet mycket enklare ...
Kutools for Outlook - ger 100 kraftfulla avancerade funktioner till Microsoft Outlook
  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter regler; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden på en gång; Lägg automatiskt till hälsning när svar Lägg automatiskt till datum och tid i ämne ...
  • Tillbehörsverktyg: Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla automatiskt ... Snabbrapport, Räkna utvalda e-postmeddelanden, Ta bort duplicerade e-postmeddelanden och kontakter ...
  • Mer än 100 avancerade funktioner kommer lösa de flesta av dina problem i Outlook 2021 - 2010 eller Office 365. Fullständiga funktioner 60 dagars gratis provperiod.

pil blå höger bubbla Exportera flera e-postmeddelanden från flera mappar / undermappar till Excel med VBA

Följ stegen nedan för att exportera e-postmeddelanden från flera mappar eller undermappar till Excel-arbetsböcker med VBA i Outlook.

1. Tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulernaoch klistra sedan in under VBA-koden i det nya modulfönstret.

VBA: Exportera e-postmeddelanden från flera mappar och undermappar till 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. Justera ovanstående VBA-kod efter behov.

(1) Byt ut destinationsmappsväg i ovanstående kod med mappsökvägen till målmappen kommer du att spara de exporterade arbetsböckerna i, till exempel C: \ Användare \ DT168 \ Dokument \ TEST.
(2) Byt ut din_email_accouny \ mapp \ undermapp_1 och din_email_accouny \ mapp \ undermapp_2 i koden ovan med mappvägarna för undermappar i Outlook, t.ex. Kelly @extendoffice.com \ Inbox \ A och Kelly @extendoffice.com \ Inbox \ B

4. tryck på F5 eller klicka på run för att köra denna VBA. Klicka sedan på OK -knappen i dialogrutan Exportera Outlook-mappar till Excel. Se skärmdump:

Och nu exporteras e-postmeddelanden från alla angivna undermappar eller mappar i VBA-koden ovan och sparas i Excel-arbetsböcker.


pil blå höger bubblaRelaterade artiklar


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (10)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hur får jag detta att automatiskt återkomma i undermappar?
Denna kommentar minimerades av moderatoren på webbplatsen
hej kära, allt fungerar bra tack men kroppen är inte exporterad, hur kan jag exportera e-posttexten också, excel-filen har precis (Ämne, Mottagen och Avsändare), om du kan uppdatera mig med det kommer att lösa en stor fråga i min verksamhet många tack igen
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Montaser,
VBA-skriptet körs baserat på Outlooks exportfunktion som inte stöder export av meddelandeinnehåll vid massexport av e-postmeddelanden från en e-postmapp. Därför kan detta VBA-skript inte exportera meddelandeinnehåll också.
Denna kommentar minimerades av moderatoren på webbplatsen
det här fungerar utmärkt, men finns det ett sätt att lägga till informationen för inte bara de fyra fälten ovan utan för allt som Outlook-export till PST ger? Ämnestext Från: (Namn) Från: (Adress) Från: (Typ) Till: (Namn) Till: (Adress) Till: (Typ) CC: (Namn) CC: (Adress) CC: (Typ) BCC: ( Namn) BCC: (Adress) BCC: (Typ) Faktureringsinformation Kategorier Viktighet Körsträcka Känslighet

Jag försökte lägga till "Viktighet" och det fungerar, men jag skulle uppskatta om någon kunde ge koden för de andra fälten. tack!!
Med excWks
.Cells(1, 1) = "Ämne"
.Cells(1, 2) = "Mottagna"
.Cells(1, 3) = "Avsändare"
.Cells(1, 4) = "Kroppen"
.Cells(1, 5) = "Viktighet"
Sluta med
intRow = 2
För varje olkMsg i olkFld.Items
'Exportera endast meddelanden, inte kvitton eller mötesförfrågningar etc.
Om olkMsg.Class = olMail Då
'Lägg till en rad för varje fält i meddelandet som du vill exportera
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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, kontrollera koden nedan för dina behov:
Const MACRO_NAME = "Exportera Outlook-mappar till 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 är klar.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename As String, strFolderPath As String)

Dim olkMsg As Object

Dim olkFld som objekt

Dim excApp som objekt

Dim excWkb som objekt

Dim excWks As Object

Dim intRow Som heltal

Dim intVersion Som heltal

Om strFilnamn <> "" Då

Om strFolderPath <> "" Då

Ställ in olkFld = OpenOutlookFolder(strFolderPath)

Om Typnamn(olkFld) <> "Ingenting" Då

intVersion = GetOutlookVersion()

Ställ in excApp = CreateObject("Excel.Application")

Ange excWkb = excApp.Workbooks.Add()

Ange excWks = excWkb.ActiveSheet

'Skriv Excel-kolumnrubriker

Med excWks

.Cells(1, 1) = "Ämne"

.Cells(1, 2) = "Kroppen"

.Cells(1, 3) = "Mottagna"

.Cells(1, 4) = "Från: (Namn)"

.Cells(1, 5) = "Från: (Adress)"

.Cells(1, 6) = "Från: (Typ)"

.Cells(1, 7) = "Till: (Namn)"

.Cells(1, 8) = "Till: (Adress)"

.Cells(1, 9) = "Till: (Typ)"

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

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

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

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

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

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

.Cells(1, 16) = "Faktureringsinformation"

.Cells(1, 17) = "Kategorier"

.Cells(1, 18) = "Viktighet"

.Cells(1, 19) = "Körsträcka"

.Cells(1, 20) = "Känslighet"

Sluta med

intRow = 2

För varje olkMsg i olkFld.Items

'Exportera endast meddelanden, inte kvitton eller mötesförfrågningar etc.

Om olkMsg.Class = olMail Då

'Lägg till en rad för varje fält i meddelandet som du vill exportera

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ästa

Ställ in olkMsg = Ingenting

excWkb.SaveAs strFilnamn

excWkb.Stäng

annars

MsgBox "Mappen '" & strFolderPath & "' finns inte i Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

annars

MsgBox "Mappsökvägen var tom.", vbCritical + vbOKOnly, MACRO_NAME

End If

annars

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

End If



Ställ in olkMsg = Ingenting

Ange olkFld = Ingenting

Ange excWks = Ingenting

Ange excWkb = Ingenting

Ställ in excApp = Ingenting

End Sub



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

Dim arrFolders som variant

Dim varFolder Som variant

Dim bolBeyondRoot As Boolean

On Error Resume Next

Om strFolderPath = "" Då

Ställ in OpenOutlookFolder = Ingenting

annars

Gör medan vänster(strFolderPath, 1) = "\"

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

loop

arrFolders = Split(strFolderPath, "\")

För varje varFolder I arrFolders

Välj Case bolBeyondRoot

Fall False

Ställ in OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Sant

Fall Sant

Ställ in OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Avsluta Välj

Om Err.Number <> 0 Då

Ställ in OpenOutlookFolder = Ingenting

Avsluta för

End If

Nästa

End If

På Fel GoTo 0

Änden Funktion



Funktion GetOutlookVersion() Som heltal

Dim arrVer As Variant

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

GetOutlookVersion = arrVer(0)

Änden Funktion



Funktion SMTPEX(Entry As AddressEntry) Som String

Dim olkPA Som Outlook.PropertyAccessor

On Error Resume Next

Ställ in olkPA = Entry.PropertyAccessor

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

På Fel GoTo 0

Ställ in olkPA = Ingenting

Änden Funktion



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

Dim olkEnt As Object

On Error Resume Next

Välj Case intOutlookVersion

Fallet är < 14

Om Entry.Type = "EX" Då

GetAddress = SMTPEX(Entry)

annars

GetAddress = Entry.Address

End If

Case Else

Om Entry.AddressEntryUserType = olExchangeUserAddressEntry då

Ställ in olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

annars

GetAddress = Entry.Address

End If

Avsluta Välj

På Fel GoTo 0

Ställ in olkEnt = Ingenting

Änden Funktion



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

Dim xRcp Som mottagare

Dim xNames som sträng

xNames = ""

För varje xRcp In Item.Recipients

Om xRcp.Type = rcpType Då

Om Ret = 1 Då

Om xNames = "" Då

xNames = xRcp.Name

annars

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Då

Om xNames = "" Då

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

annars

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

End If

ElseIf Ret = 3 Då

Om xNames = "" Då

xNames = xRcp.AddressEntry.Type

annars

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

End If

End If

ElseIf xRcp.Type = rcpType Then

Om Ret = 1 Då

Om xNames = "" Då

xNames = xRcp.Name

annars

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Då

Om xNames = "" Då

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

annars

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

End If

ElseIf Ret = 3 Då

Om xNames = "" Då

xNames = xRcp.AddressEntry.Type

annars

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

End If

End If

ElseIf xRcp.Type = rcpType Then

Om Ret = 1 Då

Om xNames = "" Då

xNames = xRcp.Name

annars

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Då

Om xNames = "" Då

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

annars

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

End If

ElseIf Ret = 3 Då

Om xNames = "" Då

xNames = xRcp.AddressEntry.Type

annars

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

End If

End If

End If

Nästa

GetRecipientsName = xNames

Änden Funktion




Hoppas detta fungerar för dig.
Amanda
Denna kommentar minimerades av moderatoren på webbplatsen
I ExporttoExcel-underdelen kan du lägga till kroppen

'Skriv Excel-kolumnrubriker
Med excWks
.Cells(1, 1) = "Ämne"
.Cells(1, 2) = "Mottagna"
.Cells(1, 3) = "Avsändare"
.Cells(1, 4) = "Kroppen"
Sluta med
intRow = 2
För varje olkMsg i olkFld.Items
'Exportera endast meddelanden, inte kvitton eller mötesförfrågningar etc.
Om olkMsg.Class = olMail Då
'Lägg till en rad för varje fält i meddelandet som du vill exportera
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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Förhoppningsvis kan någon hjälpa mig här, jag har praktiskt taget ingen kunskap om VB men har lyckats få det här skriptet att fungera för mig hittills.

Men jag har totalt cirka 1500 mappar och undermappar under min inkorg och jag skulle verkligen vilja ha ett enkelt skript för att exportera all e-postadress som jag har skickat till med ämnesraden och datumet i separata kolumner i Excel.

Jag har sökt i flera dagar och provat många olika sajter men kan inte få någon kod att fungera förutom den här.


Är det jag frågar efter ens möjligt? Om så är fallet, finns det någon där ute som är snäll och smart nog att hjälpa mig med det manus jag behöver?
Jag antar att det har något med denna del att göra:


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 är klar.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Tack på avancerad
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Jag körde precis detta makro som fungerar bra.
Det förstår jag i uttrycken
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* och GetSMTPAddress(olkMsg, intVersion) extraherar saker från Outlook.

Vad är argumentet att använda för att få adressen som posten skickades till?

När du använder Export Wizard i Outlook är det möjligt att exportera den här adressen, så jag antar att det skulle vara möjligt att göra det genom detta makro (med viss modifiering).
Kan någon hjälpa?

Hälsningar
Denna kommentar minimerades av moderatoren på webbplatsen
Jag kör det här makrot men får hela tiden kompileringsfel:

Användare=definierad typ inte definierad

På rad 62 " Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder "

Jag har redan specificerat sökvägen enligt följande:

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"

Jag använder Outlook 2016 om det skulle behövas
Denna kommentar minimerades av moderatoren på webbplatsen
Jag fixade det. Från Visual Basic-fönstret, gå till Tools Reference - och rutan för "Microsoft Outlook 16.0 Object Library"

Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL