Hirdetés
-
Mindent megtudtunk az új Nokia 3210-ről
ma Részletes képek, specifikációk és euróban megadott ár is van a legendás modell újraélesztett verziójához.
-
Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
it Az AI-t kiszolgáló adatközpontok olyan nagy energiaigénnyel bírnak, hogy egyre több atomenergiára van szükség.
-
Ilyen lesz a SteamWorld Heist II
gp A folytatás a tervek szerint a nyár folyamán, pontosabban augusztus elején érkezik.
Ú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 SubHa ma nulla CELSIUS fok van és holnap kétszer olyan hideg várható, hány CELSIUS fok lesz holnap? :D (bezártam a kiskaput)
Új hozzászólás Aktív témák
- AirPods Max - Silver (Hibátlan és tökéletes állapot, tulajdonképpen új, pár napot volt használva)
- LEGJOBB ÁR! GAMER PC - RTX 3070 - Ryzen 5500 - 16GB DDR4 - 500GB Nvme SSD
- ÚJ Playstation 5 CFW képes (feltörhető), lemezes
- ÚJ Dell Vostro 3520 - 15.6" IPS 120Hz / i5-1235U / 8-16Gb DDR4 / 512Gb / HUN backlit / 3 ÉV GAR.
- Nikon D7000, Tamron 18-270mm, Sigma 150-500mm
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest