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

• #3 Memphis tag

  Új Válasz 2021-02-10 10:17:07 #3

  Ú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

• #2 khartm újonc

  Új Válasz 2017-02-02 19:32:53 #2

  Ú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

  

  khartm

  újonc

  Kedves Tagok!
  Köszön, hogy csatlakozhattam.Teljesen kezdő vagyok, de a munkahelyemen készlet nyilvántartást kellene csinálnom.
  Csináltam egy táblázatot, amelyben szerepel a cikkszám, induló készlet, kiadás, bevétel, aktuális készlet.
  függvény is megvan.Kérdésem az lenne, hogy hogyan lehet megoldani,ha van rá lehetőség hogy az adott kiadás dátumát, illetve feltüntetni a szállítólevél számát.Ha be szeretnék írni mozgást esetleg egy felúgró ablakban jelenjenek meg az adatok.
  Tud valaki segíteni, illetve van erre lehetőleg mód?
  Köszönöm!

• #1 frjeno újonc

  Új Válasz 2015-03-17 21:47:14 #1

  Ú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

  

  frjeno

  újonc

  Excel táblázatok készítését, adatrögzítést, nyers adatok megadott igény szerinti formázását vállalom, rövid határidővel.
  Az táblázatokban képletek, függvények, makrók, VBA programozás, diagramok, grafikonok, dinamikus grafikonok alkalmazására is lehetőség van.
  Tapasztalat és referencia van.
  Elérhetőség: frjeno@freemail.hu
  Ár: a munka jellegétől függően megegyezés szerint.

  
  
  

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