- Milyen notebookot vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen egeret válasszak?
- Gaming notebook topik
- Fél tucat Core Ultra CPU jöhet az asztali piacra
- Nem indul és mi a baja a gépemnek topik
- LG C4 tévé, a népszerű OLED-sorozat legfrissebb tagja
- Házimozi belépő szinten
- Nvidia GPU-k jövője - amit tudni vélünk
- Vezetékes FEJhallgatók
Hirdetés
-
Színészek hangjait lopta el egy AI-cég
it Az USA-ban bepereltek egy AI-céget, mert a vád szerint ellopták a színészek hangjait, majd AI segítségével a saját céljaikra használták azokat.
-
Manor Lords - Túl a kétmillión
gp Alig három héttel a megjelenés után máris egy fontos mérföldkövet értek el a készítők.
-
LG C4 tévé, a népszerű OLED-sorozat legfrissebb tagja
ph Leteszteltük az OLED evo paneles, 4K felbontású, mélynyomókkal is felszerelt, 65 hüvelykes televíziót.
Ú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
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs