- gban: Ingyen kellene, de tegnapra
- Kalandor: SYNTHONY - Darude Sandstorm (Live from Melbourne)
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- btz: Internet fejlesztés országosan!
- ricsi99: Mire is jó az utánvét eröltetése használt cucc vásárlása esetén?
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sh4d0w: Árnyékos sarok
- Gurulunk, WAZE?!
-
LOGOUT.hu
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
- Samsung S23 256GB Fekete / Újszerű állapotban / 12 hónap jótállással
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- BESZÁMÍTÁS! AMD Ryzen 5 2600 6 mag 12 szál processzor garanciával hibátlan működéssel
- Apple iPhone 11 Pro Max 64GB Zöld / normál állapotban / 100%-os akkumulátorral / 12 hónap jótállás
- ÁRGARANCIA! Épített KomPhone i5 13400F 32/64GB RAM RX 7700 XT 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest