Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #46009 Memphis tag
    Új Válasz #46009
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Memphis

    tag

    Sziasztok,
    olyanban kérnék segitséget, hogy excelben irok éppen egy makrót amivel szeretném a következő infókat exportálni outlookból:
    from, subject, received date, category, flag completed date
    az első 3 működik is, de a category, flag completed date nem akar összejönni.
    hol rontottam el? előre szólok sose csináltam ilyet, internetről nézegettem dolgokat illetve logikai úton próbáltam kiegésziteni.
    ezt irtam:
    Sub getDataFromOutlook()
    Dim OutlookApp As Outlook.Application
    Dim OutlookNamespace As Namespace
    Dim Folder As MAPIFolder
    Dim OutlookMail As Variant
    Dim i As Integer
    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("impMail")
    i = 1
    For Each OutlookMail In Folder.Items
    If OutlookMail.ReceivedTime >= Range("email_Receipt_date").Value Then
    Range("email_Subject").Offset(i, 0) = OutlookMail.Subject
    Range("email_Subject").Offset(i, 0).Columns.AutoFit
    Range("email_Subject").Offset(i, 0).VerticalAlignment = x1Top
    Range("email_Date").Offset(i, 0) = OutlookMail.ReceivedTime
    Range("email_Date").Offset(i, 0).Columns.AutoFit
    Range("email_Date").Offset(i, 0).VerticalAlignment = x1Top
    Range("email_Sender").Offset(i, 0) = OutlookMail.SenderName
    Range("email_Sender").Offset(i, 0).Columns.AutoFit
    Range("email_Sender").Offset(i, 0).VerticalAlignment = x1Top
    Range("email_Category").Offset(i, 0) = OutlookMail.Categories
    Range("email_Category").Offset(i, 0).Columns.AutoFit
    Range("email_Category").Offset(i, 0).VerticalAlignment = x1Top
    Range("email_Completed").Offset(i, 0) = OutlookMail.FlagCompletedDate
    Range("email_Completed").Offset(i, 0).Columns.AutoFit
    Range("email_Completed").Offset(i, 0).VerticalAlignment = x1Top
    i = i + 1
    End If

    Next OutlookMail
    Set Folder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing



    End Sub

    előre is köszi

Új hozzászólás Aktív témák