- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Az AI megmondja, hogy van-e fájdalma a macskának
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- DIGI internet
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Bittorrent topik
- Router gondok
- YouTube
- Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
- Béta iOS-t használók topikja
- Proxmox VE
- Álláskeresés, interjú, önéletrajz
Új hozzászólás Aktív témák
-
félisten
Hali!
Akkor próbáljuk meg!(Nálam működik x64 Vista, 2007 Outlook)
Fontos: A makró csak MS Office Outlook 2003, 2007 verziónál használható!!!
Továbbá, csak akkor működik helyesen, ha az email cím ELSŐDLEGES!!!
(tehát ha valakinek több email címe van, akkor csak az elsőt nézi, a többit nem. Ha nem ebben van a kicserélendő rész, akkor ne használd)1. indítsd el az Outlook-ot
2. ALT+F11 - ekkor megjelenik a VBA editor
3. INSERT menu/Module (NEM Class Module!!!)
Most megjelenik egy üres "ablak" "VbaProject.OTM - Module1 (Code)" fejléccel, na ebbe kell bemásolni az általam küldött makró-kódot. (persze a CTRL+C ill. CTRL+V segítségével)Option Explicit
Public Sub TestAddressBookFindReplace()
AddressBookFindReplace "Névjegyalbum", "@ubul", "@gmail."
End Sub
Public Sub AddressBookFindReplace(addressBookName As String, findText As String, replaceText As String, Optional compareMethod As VbCompareMethod = vbBinaryCompare)
Const lngStart_c As String = "1"
Const lngNotFound As Long = 0
Const lngCount_c As Long = -1
Dim ns As Outlook.NameSpace
Dim al As Outlook.AddressList
Dim ae As Outlook.AddressEntry
Dim strAddr As String
Set ns = Outlook.Session
Set al = ns.AddressLists(addressBookName)
For Each ae In al.AddressEntries
On Error GoTo err
strAddr = vbNullString
strAddr = ae.Address
If strAddr <> "" Then
If InStrB(lngStart_c, strAddr, findText, compareMethod) <> lngNotFound Then
ae.Address = VBA.Replace(strAddr, findText, replaceText, lngStart_c, lngCount_c, compareMethod)
ae.Update True, False
End If
End If
Next
Exit Sub
err: err.Clear
Resume Next
End Sub4. a makró elején van ez a sor
AddressBookFindReplace "Névjegyalbum", "@ubul.", "@gmail."
Jelen esetben a "@ubul."-ot cseréli "@gmail."-ra, tehát módosítsd a Neked megfelelőre.
Ha magyar az Outlook, akkor "Névjegyalbum", ha Angol akkor meg "Contacts" az első paraméter5. DEBUG menu/Compile Project1
6. FILE menu/Save project
7. A futtatáshoz F5 vagy az eszköztáron a zöld kis nyíl
Fontos!
Elöször feltétlenül készíts másolatot a leveleidről, azaz archiváld, vagy exportáld PST fájlba!!!
Mint említettem x64 Vista + MS Office Outlook 2007 alatt próbáltam, itt működött, de más verziónál nem tudom garantálom a helyes működést!Ha minden rendben megcsináltál, és már nincs szükséged a makróra, akkor meg töröld.
1. Outlook indít
2. ALT+F11
3. jobbegérgomb a Module1-n, REMOVE Module1
4. megjelenik egy kérdés, hogy mielött törlöd, exportálja-e a makrót: NEM
5. VBA editor becsuk
6. Outlook becsuk
7. megint kérdés, mentse-e a Project változásait: IGENNa, asszem ennyi, remélem sikerül minden!
Azért írj, hogy mi lett az eredmény.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)
Új hozzászólás Aktív témák
- Honor Magic5 Pro - kamerák bűvöletében
- Xbox Series X|S
- Skoda, VW, Audi, Seat topik
- Windows Phone felhasználók OFF topikja
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- EAFC 24
- Mibe tegyem a megtakarításaimat?
- M0ng00se: Northwood vs Prescott + tuning: a tesztek
- iPhone topik
- Fallout 3
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül