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

• #46009 Memphis tag

  Új Válasz 2021-02-10 17:02:03 #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