Outlook névjegyek

Outlook névjegyek
2007-12-01T13:47:39+01:00
2007-12-08T13:34:54+01:00
2022-11-06T23:30:38+01:00
sarao
Sziasztok!
Excel-ből importáltam magamnak sok száz névjegyet Outlook névjegyalbumba.
A probléma az, hogy az importált névjegyek "Tárolási formá"-ja: Vezetéknév, Utónév.
Viszont nekem a Cég( Vezetéknév, Utónév) megjelenítés kellenne. Át tudom-e állítani a "Tárolási Formá"-t egy mozdulattal a már meglévő névjegyekre az Outlook programon belül, vagy valami makrót kellen kreálni hozzá?
Segítséget szeretnék kérni tőletek, hogy merre induljak el?

Kösz.
Mutasd a teljes hozzászólást!
Jelöld ki azokat.
Pl. Kattints az elsőre majd az utolsóra shift-el.

Utána futtasd.

De az alapértelmezett névjegyalbumon:

Sub ttt() Dim elem As ContactItem, mapi, mappa Set mapi = Application.GetNamespace("MAPI") Set mappa = mapi.GetDefaultFolder(olFolderContacts) For Each elem In mappa.Items elem.FileAs = elem.CompanyName & " (" & elem.FullName & ")" Next End Sub

Tetszőleges nevű mappán:
Sub ttt() Dim elem As ContactItem, mapi, mappa Set mapi = Application.GetNamespace("MAPI") Set mappa = mapi.Folders(1).Folders("Névjegyalbum") For Each elem In mappa.Items elem.FileAs = elem.CompanyName & " (" & elem.FullName & ")" Next End Sub

Ha nem a főmappában van, akkor itt értelemszerűen.
Set mappa = mapi.Folders(1).folders("ez").folders("az").Folders("Névjegyalbum")
Mutasd a teljes hozzászólást!

  • Beteszed az Outlookba ezt a kis programot:
    Sub ttt() Dim elem As ContactItem For Each elem In Application.ActiveExplorer.Selection elem.FileAs = elem.CompanyName & " (" & elem.FullName & ")" Next End Sub
    kijelölöd az összes ilyen névjegykártyát (persze ha egy mappában van, akkor a mapi.folder-nek nézz utána) és futtasd!
    Mutasd a teljes hozzászólást!
  • A kód jól működik, de csak abban az esetben cseréli fel a "Tárolási formá"-t, ha egy megnyitott névjegykártyán futtatom. Ha a névjegy(ek) nincsenek megnyitva -nekem úgy tűnik- nem csinál semmit. Próbáltam úgyis, hogy csak egy kijelölt - de nem megnyitott- névjegykártyán futtatom, nem ment.
    Valamit én rontok el?
    (a névjegyek az alapértelmezett "Névjegyalbum" mappában vannak)
    Mutasd a teljes hozzászólást!
  • Jelöld ki azokat.
    Pl. Kattints az elsőre majd az utolsóra shift-el.

    Utána futtasd.

    De az alapértelmezett névjegyalbumon:

    Sub ttt() Dim elem As ContactItem, mapi, mappa Set mapi = Application.GetNamespace("MAPI") Set mappa = mapi.GetDefaultFolder(olFolderContacts) For Each elem In mappa.Items elem.FileAs = elem.CompanyName & " (" & elem.FullName & ")" Next End Sub

    Tetszőleges nevű mappán:
    Sub ttt() Dim elem As ContactItem, mapi, mappa Set mapi = Application.GetNamespace("MAPI") Set mappa = mapi.Folders(1).Folders("Névjegyalbum") For Each elem In mappa.Items elem.FileAs = elem.CompanyName & " (" & elem.FullName & ")" Next End Sub

    Ha nem a főmappában van, akkor itt értelemszerűen.
    Set mappa = mapi.Folders(1).folders("ez").folders("az").Folders("Névjegyalbum")
    Mutasd a teljes hozzászólást!
  • Micu!
    Csak akkor cserél, ha megnyitott a névjegykártya - ha egyet jelölök ki, ha mindet.

    Két megoldást találtam:
    Slovak Technical Services Code Samples
    OL2002: How to Change the File As Field for All Contacts

    Viszont ez a segítséged nélkül nem ment volna.
    Köszi, üdv.
    Mutasd a teljes hozzászólást!
  • Most sikerült átnéznem a kódokat.
    Egy sor hiányzik a tiédből.
    elem.save
    Így már jól működik.

    Mégegyszer kösz. Üdv.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd