Geschrieben am Freitag, 21. November 2008 um 15:34
Fast jeder hat schon einmal mit dem Transport von Übersetzungen in SAP gekämpft. Manchmal gehts, manchmal nicht. Was hier die exakte Logik ist hat wohl niemand – oder zumindest ich nicht – begriffen. Wenigstens habe ich jetzt einen interessanten Report gefunden, um Übersetzungen automatisch in einem Tranport-Auftrag aufzunehmen: RS_LXE_RECORD_TORDER. Die entsprechende Transaktion dazu lautet: SLXT.
Der Report ist sogar offiziell dokumentiert und zwar hier.
Ganz oben kann man übrigens die entsprechende Sprache auswählen, auch wenn das Feld ausgegraut scheint…
Geschrieben am Samstag, 1. November 2008 um 11:15
Hat die grösse der Outlook Kontakte erst mal eine gewisse Grösse erreicht wird ersichtlich was für ein Chaos hier eigentlich vorherscht. Kontakte werden mal mit Nachname mal Vorname zuerst angezeigt, schreibt man E-Mails erscheinen teils nur die E-Mail Adressen, teils nur die Namen (auch hier in verschiedenen Variationen) und auch ein guter Mix von allen Varianten…
Schuld daran sind im Endeffekt die Felder “Speichern als” bzw. “Anzeigen als” für die E-Mail Adressen, welche beim Anlegen oder importieren eines Kontakts automatisch befüllt werden. Zwar kann in den Optionen von Outlook hier Einfluss genommen werden, was der Aufbau dieser Felder anbelangt, aber nachträglich bereinigt Outlook hier gar nichts mehr.
Genervt von diesem Umstand habe ich mir eine kleine Prozedur geschrieben, die ganz primitiv diese Felder neu aufbaut und so für eine Vereinheitlichung sorgt.
Getestet mit Microsoft Outlook 2007, Verwendung auf eigenen Gefahr
Public Sub KontakteAktualisieren(Optional bolLastNameFirst As Boolean = False, _
Optional bolAlwaysShowAdress As Boolean = False)
Dim items As items
Dim item As ContactItem
Dim folder As folder
Dim contactItems As Outlook.items
Dim itemContact As Outlook.ContactItem
Dim strName As String
Dim bolMultiple As Boolean
Set folder = Session.GetDefaultFolder(olFolderContacts)
Set items = folder.items
Count = items.Count
If Count = 0 Then
MsgBox "Keine Kontakte vorhanden", vbOKOnly + vbInformation
Exit Sub
End If
'Filter on the message class to obtain only contact items in the folder
Set contactItems = items.Restrict("[MessageClass]='IPM.Contact'")
For Each itemContact In contactItems
If bolAlwaysShowAdress = True Or itemContact.Email2Address <> "" Then
bolMultiple = True
Else
bolMultiple = False
End If
If bolLastNameFirst = False Then
strName = itemContact.FirstName + " " + itemContact.LastName
Else
strName = itemContact.LastName + ", " + itemContact.FirstName
End If
itemContact.FileAs = strName
If bolMultiple = False Then
If itemContact.Email1Address <> "" Or itemContact.Email1AddressType <> "SMTP" Then
itemContact.Email1DisplayName = strName
End If
If itemContact.Email2Address <> "" Then
itemContact.Email2DisplayName = strName
End If
If itemContact.Email3Address <> "" Then
itemContact.Email3DisplayName = strName
End If
Else
If itemContact.Email1Address <> "" Then
itemContact.Email1DisplayName = strName + " (" + itemContact.Email1Address + ")"
End If
If itemContact.Email2Address <> "" Then
itemContact.Email2DisplayName = strName + " (" + itemContact.Email2Address + ")"
End If
If itemContact.Email3Address <> "" Then
itemContact.Email3DisplayName = strName + " (" + itemContact.Email3Address + ")"
End If
End If
itemContact.Save
Next
MsgBox "Kontakte wurden aktualisiert", vbOKOnly + vbInformation
End Sub
