- Rendkívül ütőképesnek tűnik az újragondolt Apple tv
- Kormányok / autós szimulátorok topicja
- Milyen belső merevlemezt vegyek?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Milyen videókártyát?
- OLED TV topic
- Nyomtató topik
- Fejhallgató erősítő és DAC topik
- Milyen egeret válasszak?
- LG LCD és LED TV-k
Hirdetés
-
Igencsak szerény méretekkel rendelkezik az Aetina Xe HPG architektúrás VGA-ja
ph Az 50 wattos modellt beágyazott rendszerekbe, MI-vel kapcsolatos munkafolyamatokhoz és edge applikációkhoz szánták.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Érkezőben a Poco M6 4G
ma 5G-s és 4G-s Pro modell már van, hamarosan lesz Poco M6 4G-s alapváltozat is.
Új hozzászólás Aktív témák
-
félisten
Hali!
Aláírás
Eszközök menü/Beállítások/Levélformátum fül/Aláírások gomb
Új levél írásakor meg a Beszúrás csoport/AláírásRules
Nem darabszámra, hanem méretre van korlátozás(folder-enként 32K), de ez csak Exchange server használatakor szokott jelentkezni. Nem tudom pontosan mihez kellene 11 szabály, de úgy gondolom, hogy egyszerűbben is megoldható lenne...
(több szabályt vonj össze, egyszerűsítsd le)Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Nézd, az hogy mi végből van ez a 32K korlátozás, azt nem tudom, de hogy van az biztos.
Itt minden olyan módszert megtalálsz, ami segíthet, hogy megoldódjon a problémád [link]
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Legegyszerűbben CTRL+SHIFT+L
Összetettebben, bal oldalt Névjegyalbum/Műveletek menü/Új terjesztési lista
Angolban Contacts/Actions menu/New Distribution ListFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Röviden: Igen.
Bővebben
(ez a példa egy adott feladótól érkező leveleket továbbít, általam megadott címzettnek)1. Eszközök/Szabályok és értesítések/Új szabály gomb
2. Teljesen új szabály(Üzenetek ellenőrzése érkezéskor), Tovább
3. A Feladó egy személy vagy címlista elé pipa, alul szerkeszted a szabályt(ki a feladó), Tovább
4. Képen látszik minden, mit kell bepipálni stb, tovább, tovább, befejezés.Remélem erre gondoltál.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
-
félisten
Hali!
Szoktam makrózni, de ilyet még nem írtam, de szerintem megoldom...
Akkor pontosítani: Az kellene, hogy minden leveledet HTML-ként külön fájlba mentse el.
Csatolmányt is ki kell menteni, vagy elég ha csak fel van tüntetve?Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
1. Készíts másolatot az eredeti PST-ről!
2. Indítsd el az Outlook-ot, ALT+F11, bal oldalon a Project csoportban Project/Microsoft Office Outlook/ThisOutlookSession-ön duplaklikk. A megjelenő jobb oldali ablakba kell majd beilleszteni a makrókódot és a menüszalagon megjelenő zöld, play gombra emlékeztető mini gombbal futtatni
3. Három lehetséges dolog történhet
# Sikeresen megcsinálja a dolgát, itt nincs teendő# Hibával kilép. Ez esetben azzal a levéllel van gond, ami az aktuális után következik, törölni kell (érkezett szerint rendezd a leveleket, mert a makró is azt teszi és abban a sorrendben megy végig rajta)
A makró megjeleniti ebben az esetben, az utolsó sikeresen feldolgozott levelet(megnyitja, hogy könnyebben megkeresd)
(A korábban a makró által létrehozott fájlokat célszerű törölni, mert a felülírás miatt még lassabb lesz a művelet)# Nem lép ki hibával, csak úgy látszólag nem történik semmi, ha úgy tetszik "megfagy". Ebben az esetben azzal a levéllel van gond, ami az épp aktuális, annak ellenére, hogy látszólag ki is mentette HTML formátumban. Törölni kell.
(A korábban a makró által létrehozott fájlokat célszerű törölni, mert a felülírás miatt még lassabb lesz a művelet)Ezeket a hibákat nem tudtam lekezelni sajnos, sőt arra is fény derült a témába való belemélyedés során, hogy vannak olyan mail-ek, amiket maga az Outlook sem tud HTML-ként menteni, hiába van 1 darab kijelölve.
Vannak tipikus levelek, ami miatt hibára fut, vagy "lefagy". Ilyenek a visszaigazolások (kézbesítési értesítés, vagy az ismeretlen címzettről szóló visszaigazolás)
Aztán olyan levelek, amikben valamelyik mező hibás vagy üres, pl a Küldő mezője üres(ez szabálytalan). Szóval mielőtt a makrót futtatnád, kapásból szabadulj meg a visszaigazolásoktól(töröld őket)A makró nem tesz kárt, de mindenképp mielőtt használod a PST-ről legyen másolat(hisz lehet, hogy kell törölni is belőle) illetve csak saját felelősségre használni!
Ez a makró a Beérkezett üzenetek mappa elemin megy végig
Sub FSCD()
Dim MyInBox As Outlook.MAPIFolder
Dim MyEmail As MailItem
Dim MyItems As Outlook.Items
Dim i As Long, j As Long
Dim DestPATH As String
DestPATH = InputBox("Adja meg a mappát, ahova az EMAIL-k kerüljenek" & vbCrLf & _
"(A mappának léteznie kell és a végére nem kell a visszaperjel!)", "FSCD - HTML Exporter", "D:\MyOutlook")
WhatYouWant = MsgBox(Prompt:="Biztos benne, hogy futtatja a makrót?", _
Buttons:=vbYesNo, Title:="Makró futtatás megerősítése")
If WhatYouWant = vbNo Then Exit Sub
Set MyInBox = Me.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Set MyItems = MyInBox.Items
MyItems.Sort "SentOn", 1
i = 1
MyEmailCount = MyItems.Count
For Each MyEmail In MyItems
On Error GoTo FSCD_Error
Dim mailObj As MailItem
Set mailObj = MyEmail
MySender = mailObj.SenderName
xstr = ""
For j = 1 To Len(MySender)
If (Mid(MySender, j, 1)) <> Chr(34) And (Mid(MySender, j, 1)) <> "." Then xstr = xstr & Mid(MySender, j, 1)
Next j
MyDate = mailObj.ReceivedTime
If (MyEmail.BodyFormat <> olFormatHTML) Then
mailObj.BodyFormat = olFormatHTML
End If
FName = "\" & Format(MyDate, "yyyymmdd_hhmmss_") & xstr & ".html"
mailObj.SaveAs DestPATH & FName, olHTML
i = i + 1
Next
MsgBox ("A művelet sikerült!" & vbCrLf & _
vbCrLf & i - 1 & "/" & MyEmailCount & " levél került feldolgozásra." & _
vbCrLf & "Mentési útvonal: " & DestPATH)
Free_Objects:
Set MyEmail = Nothing
Set MyInBox = Nothing
Set MyItems = Nothing
Exit Sub
FSCD_Error:
MsgBox (Err.Description & ": " & Err.Number & " => Nem sikerült a teljes művelet!" & vbCrLf & _
vbCrLf & i - 1 & "/" & MyEmailCount & " levél került feldolgozásra." & _
vbCrLf & "Az OK gombra kattintva, az utolsó feldolgozott levél meg fog nyílni.")
mailObj.Display
GoTo Free_Objects
End SubFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Samsung Galaxy S21 FE 5G - utóirat
- Windows 11
- Renault, Dacia topik
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Android szakmai topik
- Dacia topic
- Apple Watch Sport - ez is csak egy okosóra
- Rendkívül ütőképesnek tűnik az újragondolt Apple tv
- Kormányok / autós szimulátorok topicja
- Milyen belső merevlemezt vegyek?
- További aktív témák...