- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- t72killer: Fürdőkád kontra elektromosság: XXI.század
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- TheLázs: Mi várható el a betegtől...?
- Magga: PLEX: multimédia az egész lakásban
- gerner1
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
-
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
-
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 Subelőre is köszi
Új hozzászólás Aktív témák
Hirdetés
- Új Apple iPhone 16 Pro 256GB, Kártyafüggetlen, 3 Év Garanciával
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- LG 34WQ75X-B - 34" Ívelt IPS Panel - 3440x1440 2K QHD - 60Hz 5ms - FreeSync - USB Type-C 90W
- DDR5 16GB 8GB 32GB 4800MHz 5600MHz RAM Több db
- Bomba ár! Lenovo ThinkPad T470 - i7-G7 I 16GB I 256SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest