Visitenkarte Standardlayout formatieren

1. offizieller Beitrag

    Moin,


    gibt es ne Möglichkeit die Visitenkarten, die man im Outlook mit einem neuen Kontakt erstellt anzupassen? Und nicht nur manuell, sondern am Besten 1000 Stück auf einmal? Also was ich benötige ist das Standardlayout anzupassen.


    Ich habe z.B.


    Im Kontakt: Name, Tel, Tel Privat, E-Mail und möchte
    In der Visitenkarte: Name, Tel, E-Mail


    ist das möglich?


    Gruß Patric

    Moin NobbyausHB,


    joa stimmt das ist mir leider auch aufgefallen, daher hab ich nach stundenlanger Suche dann hier gepostet ;) Hab gedacht wenn es jemand weiß, dann finde ich den vielleicht hier im Forum. Im Exchange Bereich haben wir ja auch für fast alles Antworten.
    Wäre klasse wenn du jdm findest, der eine qualifizierte Aussage dazu treffen könnte. :)


    OL Version: Outlook 2010 Profesional Plus Version 14.0.6126.5003 SP1


    Gruß Patric

    • Offizieller Beitrag

    Moin,


    hier die Antwort (danke an Michael!)


    Die Info zum Layout steht in der Eigenschaft BusinessCardLayoutXml. Welche Werte möglich sind, muss sich der OP aus der "section Electronic Business Card Layout in the 2007 Microsoft Office System XML Schema Reference" bitte selbst raussuchen.


    VBA-Beispiele, wie das dann anzuwenden ist, findet er hier:
    http://www.slipstick.com/outlo…e-business-card-images/3/



    ;)

    ah wunderbar :)


    danke für die schnelle Antwort. Wenn jetzt das OP noch Office Programmierer heißen soll, dann ist es ganz sicher nicht meine Baustelle... Und ich muss den User an einen Programmierer weitergeben.


    Das Raussuchen aus der Schema Reference wird aber kein Problem sein.


    Gruß Patric

    Moin,


    so ich habe ein Makro gefunden, welches meine Problematik behoben hat, leider hab ich den Link nicht mehr:



    # Code Sample 3: Change the business card layout to match the selected contact
    # To use, first edit a business card so it is exactly as you want then run the macro.
    # To use this code, select the contact whose card you edited then run the macro to apply it to all contacts in the folder. As # with Sample 2, you can use If... Then statements to apply it to specific contacts.


    Public Sub CustomizeBusinessCards()
    Dim obj As Object
    Dim oFolder As Outlook.MAPIFolder
    Dim oContact As Outlook.ContactItem
    Dim oModel As Outlook.ContactItem
    Dim colItems As Outlook.Items
    Dim i As Long
    Dim lCount As Long
    Dim sXML As String

    Set oFolder = Application.Session.GetDefaultFolder(olFolderContacts)
    Set colItems = oFolder.Items

    Set oModel = Application.ActiveExplorer.Selection.Item(1)

    sXML = oModel.BusinessCardLayoutXml



    lCount = colItems.Count
    For i = 1 To lCount
    Set obj = colItems.Item(i)
    If (obj.Class = olContact) Then
    Set oContact = obj
    oContact.BusinessCardLayoutXml = sXML
    ' oContact.AddBusinessCardLogoPicture ("C:\image\logo.gif")
    oContact.Save
    End If
    Next
    End Sub