Hvordan bruke Embed Funksjon for en Outlook Message i Excel

February 4

Mens på og bruke den innebygde funksjonen i Excel krever litt arbeid, kan det være verdt arbeidet nødvendig hvis du er i stand til å bygge inn Outlook-meldinger du håper å legge ned. Til riktig eksportere meldinger fra Outlook til Excel, må du bruke en viss eksport kode.

Bruksanvisning

1 Åpne Outlook og trykk "Alt" og "F11".

2 Velg "Module" fra "Insert" -menyen.

3 Skriv inn følgende kode:

Sub ExportToExcel ()

På Error GoTo ErrHandler

Dim appExcel Som Excel.Application Dim WKB Som Excel.Workbook

Dim uker As Excel.Worksheet

Dim RNG Som Excel.Range

Dim strSheet As String

Dim strPath As String

Dim intRowCounter As Integer

Dim intColumnCounter As Integer

Dim msg Som Outlook.MailItem

Dim NMS Som Outlook.NameSpace

Dim Fld Som Outlook.MAPIFolder

Dim itm As Object

strSheet = "OutlookItems.xls" strPath = "C:Examples\"

strSheet = strPath & strSheet

Debug.Print strSheet

'Velg eksportmappe

Sett NMS = Application.GetNamespace ( "MAPI")

Sett Fld = nms.PickFolder

"Håndter potensielle feil med Velg mappe dialogboksen.

Hvis Fld Er Ingenting Deretter

MsgBox "Det er ingen e-postmeldinger til eksport", vbOKOnly, _

"Feil"

Exit Sub

ElseIf fld.DefaultItemType <> olMailItem Deretter

MsgBox "Det er ingen e-postmeldinger til eksport", vbOKOnly, _

"Feil"

Exit Sub

ElseIf fld.Items.Count = 0 Then

MsgBox "Det er ingen e-postmeldinger til eksport", vbOKOnly, _

"Feil"

Exit Sub

Slutt om

Åpne og aktivere Excel arbeidsbok.

Sett appExcel = Create ( "Excel.Application")

appExcel.Workbooks.Open (strSheet)

Sett WKB = appExcel.ActiveWorkbook

Sett wks = wkb.Sheets (1)

wks.Activate

appExcel.Application.Visible = True

«Kopier felt elementer i e-postmappe.

For hver itm I fld.Items

intColumnCounter = 1

Sett msg = itm

intRowCounter = intRowCounter + 1